| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121 |
- snippet #!
- #!/usr/bin/env Rscript
- # includes
- snippet lib
- library(${1:package})
- snippet req
- require(${1:package})
- snippet source
- source('${1:file}')
- # conditionals
- snippet if
- if (${1:condition}) {
- ${2:code}
- }
- snippet el
- else {
- ${1:code}
- }
- snippet ei
- else if (${1:condition}) {
- ${2:code}
- }
- # functions
- snippet fun
- ${1:name} = function (${2:variables}) {
- ${3:code}
- }
- 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
- sapply(${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})
- # plot functions
- snippet pl
- plot(${1:x}, ${2:y})
- snippet ggp
- ggplot(${1:data}, aes(${2:aesthetics}))
- snippet img
- ${1:(jpeg,bmp,png,tiff)}(filename="${2:filename}", width=${3}, height=${4}, unit="${5}")
- ${6:plot}
- dev.off()
- # statistical test functions
- snippet fis
- fisher.test(${1:x}, ${2:y})
- snippet chi
- chisq.test(${1:x}, ${2:y})
- snippet tt
- t.test(${1:x}, ${2:y})
- snippet wil
- wilcox.test(${1:x}, ${2:y})
- snippet cor
- cor.test(${1:x}, ${2:y})
- snippet fte
- var.test(${1:x}, ${2:y})
- snippet kvt
- kv.test(${1:x}, ${2:y})
|