r.snippets 2.3 KB

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