Added *apply, **ply functions and array types.

snippets/r.snippets

@@ -14,7 +14,7 @@ snippet if
 	if (${1:condition}) {
 		${2:code}
 	}
-snippet else
+snippet el
 	else {
 		${1:code}
 	}
@@ -30,3 +30,66 @@ snippet fun
 	}
 snippet ret
 	return(${1:code})
+
+# dataframes, lists, etc
+snippet df
+	${1:name}[${2:rows}, ${3:cols}]
+snippet c
+	c(${1:items})
+snippet li
+	list(${1:items})
+snippet mat
+	matrix(${1:data}, nrow=${2:rows}, ncol=${3:cols})
+
+# apply functions
+snippet apply
+	apply(${1:array}, ${2:margin}, ${3:function})
+snippet lapply
+	lapply(${1:list}, ${2:function})
+snippet sapply
+	lapply(${1:list}, ${2:function})
+snippet vapply
+	vapply(${1:list}, ${2:function}, ${3:type})
+snippet mapply
+	mapply(${1:function}, ${2:...})
+snippet tapply
+	tapply(${1:vector}, ${2:index}, ${3:function})
+snippet rapply
+	rapply(${1:list}, ${2:function})
+
+# plyr functions
+snippet dd
+	ddply(${1:frame}, ${2:variables}, ${3:function})
+snippet dl
+	dlply(${1:frame}, ${2:variables}, ${3:function})
+snippet da
+	daply(${1:frame}, ${2:variables}, ${3:function})
+snippet d_
+	d_ply(${1:frame}, ${2:variables}, ${3:function})
+
+snippet ad
+	adply(${1:array}, ${2:margin}, ${3:function})
+snippet al
+	alply(${1:array}, ${2:margin}, ${3:function})
+snippet aa
+	aaply(${1:array}, ${2:margin}, ${3:function})
+snippet a_
+	a_ply(${1:array}, ${2:margin}, ${3:function})
+
+snippet ld
+	ldply(${1:list}, ${2:function})
+snippet ll
+	llply(${1:list}, ${2:function})
+snippet la
+	laply(${1:list}, ${2:function})
+snippet l_
+	l_ply(${1:list}, ${2:function})
+
+snippet	md
+	mdply(${1:matrix}, ${2:function})
+snippet	ml
+	mlply(${1:matrix}, ${2:function})
+snippet	ma
+	maply(${1:matrix}, ${2:function})
+snippet	m_
+	m_ply(${1:matrix}, ${2:function})