151 lines
2.4 KiB
Plaintext
151 lines
2.4 KiB
Plaintext
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 eif "Else-If statement (eif)"
|
|
else if (${1}) {
|
|
${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
|