1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
snippet #!
#!/usr/bin/env Rscript
# includes
snippet lib
library(${0:package})
snippet req
require(${0:package})
snippet source
source('${0:file}')
# conditionals
snippet if
if (${1:condition}) {
${0}
}
snippet el
else {
${0}
}
snippet ei
else if (${1:condition}) {
${0}
}
# loops
snippet wh
while(${1}) {
${2}
}
snippet for
for (${1:item} in ${2:list}) {
${3}
}
# functions
snippet fun
${1:name} <- function (${2:variables}) {
${0}
}
snippet ret
return(${0})
# dataframes, lists, etc
snippet df
${1:name}[${2:rows}, ${0:cols}]
snippet c
c(${0:items})
snippet li
list(${0:items})
snippet mat
matrix(${1:data}, nrow = ${2:rows}, ncol = ${0:cols})
# apply functions
snippet apply
apply(${1:array}, ${2:margin}, ${0:function})
snippet lapply
lapply(${1:list}, ${0:function})
snippet sapply
lapply(${1:list}, ${0:function})
snippet vapply
vapply(${1:list}, ${2:function}, ${0:type})
snippet mapply
mapply(${1:function}, ${0:...})
snippet tapply
tapply(${1:vector}, ${2:index}, ${0:function})
snippet rapply
rapply(${1:list}, ${0:function})
# plyr functions
snippet dd
ddply(${1:frame}, ${2:variables}, ${0:function})
snippet dl
dlply(${1:frame}, ${2:variables}, ${0:function})
snippet da
daply(${1:frame}, ${2:variables}, ${0:function})
snippet d_
d_ply(${1:frame}, ${2:variables}, ${0:function})
snippet ad
adply(${1:array}, ${2:margin}, ${0:function})
snippet al
alply(${1:array}, ${2:margin}, ${0:function})
snippet aa
aaply(${1:array}, ${2:margin}, ${0:function})
snippet a_
a_ply(${1:array}, ${2:margin}, ${0:function})
snippet ld
ldply(${1:list}, ${0:function})
snippet ll
llply(${1:list}, ${0:function})
snippet la
laply(${1:list}, ${0:function})
snippet l_
l_ply(${1:list}, ${0:function})
snippet md
mdply(${1:matrix}, ${0:function})
snippet ml
mlply(${1:matrix}, ${0:function})
snippet ma
maply(${1:matrix}, ${0:function})
snippet m_
m_ply(${1:matrix}, ${0:function})
# plot functions
snippet pl
plot(${1:x}, ${0:y})
snippet ggp
ggplot(${1:data}, aes(${0:aesthetics}))
snippet img
${1:(jpeg,bmp,png,tiff)}(filename = '${2:filename}', width = ${3}, height = ${4}, unit = '${5}')
${0:plot}
dev.off()
# statistical test functions
snippet fis
fisher.test(${1:x}, ${0:y})
snippet chi
chisq.test(${1:x}, ${0:y})
snippet tt
t.test(${1:x}, ${0:y})
snippet wil
wilcox.test(${1:x}, ${0:y})
snippet cor
cor.test(${1:x}, ${0:y})
snippet fte
var.test(${1:x}, ${0:y})
snippet kvt
kv.test(${1:x}, ${0:y})
|
