priority -50

snippet #! "Hashbang for Rscript (#!)" b
#!/usr/bin/env Rscript
endsnippet

snippet lib "Import a library (lib)"
library(${0:package})
endsnippet

snippet req "Require a file (req)"
require(${0:package})
endsnippet

snippet source "Source a file (source)"
source('${0:file}')
endsnippet

snippet if "If statement (if)"
if (${1}) {
	${0}
}
endsnippet

snippet eif "Else-If statement (eif)"
else if (${1}) {
	${0}
}

snippet el "Else statement (el)"
else {
	${0}
}
endsnippet

snippet ife "if .. else (ife)"
if (${1}) {
	${2}
} else {
	${3}
}
endsnippet

snippet wh "while loop (wh)"
while(${1}) {
	${2}
}
endsnippet

snippet for "for loop (for)"
for ({${1:item} in ${2:list}) {
	${3}
}
endsnippet

snippet fun "Function definition (fun)"
${1:name} <- function (${2}) {
	${0}
}
endsnippet

snippet ret "Return call (ret)"
return(${0})
endsnippet

snippet df "Data frame (df)"
${1:name}[${2:rows}, ${0:cols}]
endsnippet

snippet c "c function (c)"
c(${0:items})
endsnippet

snippet li "list function (li)"
list(${0:items})
endsnippet

snippet mat "matrix function (mat)"
matrix(${1:data}, nrow = ${2:rows}, ncol = ${0:cols})
endsnippet

snippet apply "apply function"
apply(${1:array}, ${2:margin}, ${0:function})
endsnippet

snippet lapply "lapply function"
lapply(${1:list}, ${0:function})
endsnippet

snippet sapply "sapply function"
lapply(${1:list}, ${0:function})
endsnippet

snippet vapply "vapply function"
vapply(${1:list}, ${2:function}, ${0:type})
endsnippet

snippet mapply "mapply function"
mapply(${1:function}, ${0:...})
endsnippet

snippet tapply "tapply function"
tapply(${1:vector}, ${2:index}, ${0:function})
endsnippet

snippet rapply "rapply function"
endsnippet
rapply(${1:list}, ${0:function})

snippet pl "Plot function (pl)"
plot(${1:x}, ${0:y})
endsnippet

snippet ggp "ggplot2 plot (ggp)"
ggplot(${1:data}, aes(${0:aesthetics}))
endsnippet

snippet fis "Fisher test (fis)"
fisher.test(${1:x}, ${0:y})
endsnippet

snippet chi "Chi Squared test (chi)"
chisq.test(${1:x}, ${0:y})
endsnippet

snippet tt "t-test (tt)"
t.test(${1:x}, ${0:y})
endsnippet

snippet wil "Wilcox test (wil)"
wilcox.test(${1:x}, ${0:y})
endsnippet

snippet cor "Correlation test (cor)"
cor.test(${1:x}, ${0:y})
endsnippet

snippet fte "FTE test (fte)"
var.test(${1:x}, ${0:y})
endsnippet

snippet kvt "KV test (kvt)"
kv.test(${1:x}, ${0:y})
endsnippet