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) { ${0} } snippet el else { ${0} } snippet ei else if ($1) { ${0} } # loops snippet wh while(${1:true}) { ${0} } snippet wht while(true) { ${0} } snippet for for (${1:item} in ${2:list}) { ${3} } snippet foreach foreach (${1:item} = ${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})