1 files changed, 131 insertions, 0 deletions
diff --git a/vim/bundle/vim-snippets/snippets/r.snippets b/vim/bundle/vim-snippets/snippets/r.snippets
new file mode 100644
index 0000000..7bdeeec
--- /dev/null
+++ b/vim/bundle/vim-snippets/snippets/r.snippets
@@ -0,0 +1,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})