define("ace/snippets/r",["require","exports","module"], function(require, exports, module) { "use strict"; exports.snippetText = "snippet #!\n\ #!/usr/bin/env Rscript\n\ \n\ # includes\n\ snippet lib\n\ library(${1:package})\n\ snippet req\n\ require(${1:package})\n\ snippet source\n\ source('${1:file}')\n\ \n\ # conditionals\n\ snippet if\n\ if (${1:condition}) {\n\ ${2:code}\n\ }\n\ snippet el\n\ else {\n\ ${1:code}\n\ }\n\ snippet ei\n\ else if (${1:condition}) {\n\ ${2:code}\n\ }\n\ \n\ # functions\n\ snippet fun\n\ ${1:name} = function (${2:variables}) {\n\ ${3:code}\n\ }\n\ snippet ret\n\ return(${1:code})\n\ \n\ # dataframes, lists, etc\n\ snippet df\n\ ${1:name}[${2:rows}, ${3:cols}]\n\ snippet c\n\ c(${1:items})\n\ snippet li\n\ list(${1:items})\n\ snippet mat\n\ matrix(${1:data}, nrow=${2:rows}, ncol=${3:cols})\n\ \n\ # apply functions\n\ snippet apply\n\ apply(${1:array}, ${2:margin}, ${3:function})\n\ snippet lapply\n\ lapply(${1:list}, ${2:function})\n\ snippet sapply\n\ lapply(${1:list}, ${2:function})\n\ snippet vapply\n\ vapply(${1:list}, ${2:function}, ${3:type})\n\ snippet mapply\n\ mapply(${1:function}, ${2:...})\n\ snippet tapply\n\ tapply(${1:vector}, ${2:index}, ${3:function})\n\ snippet rapply\n\ rapply(${1:list}, ${2:function})\n\ \n\ # plyr functions\n\ snippet dd\n\ ddply(${1:frame}, ${2:variables}, ${3:function})\n\ snippet dl\n\ dlply(${1:frame}, ${2:variables}, ${3:function})\n\ snippet da\n\ daply(${1:frame}, ${2:variables}, ${3:function})\n\ snippet d_\n\ d_ply(${1:frame}, ${2:variables}, ${3:function})\n\ \n\ snippet ad\n\ adply(${1:array}, ${2:margin}, ${3:function})\n\ snippet al\n\ alply(${1:array}, ${2:margin}, ${3:function})\n\ snippet aa\n\ aaply(${1:array}, ${2:margin}, ${3:function})\n\ snippet a_\n\ a_ply(${1:array}, ${2:margin}, ${3:function})\n\ \n\ snippet ld\n\ ldply(${1:list}, ${2:function})\n\ snippet ll\n\ llply(${1:list}, ${2:function})\n\ snippet la\n\ laply(${1:list}, ${2:function})\n\ snippet l_\n\ l_ply(${1:list}, ${2:function})\n\ \n\ snippet md\n\ mdply(${1:matrix}, ${2:function})\n\ snippet ml\n\ mlply(${1:matrix}, ${2:function})\n\ snippet ma\n\ maply(${1:matrix}, ${2:function})\n\ snippet m_\n\ m_ply(${1:matrix}, ${2:function})\n\ \n\ # plot functions\n\ snippet pl\n\ plot(${1:x}, ${2:y})\n\ snippet ggp\n\ ggplot(${1:data}, aes(${2:aesthetics}))\n\ snippet img\n\ ${1:(jpeg,bmp,png,tiff)}(filename=\"${2:filename}\", width=${3}, height=${4}, unit=\"${5}\")\n\ ${6:plot}\n\ dev.off()\n\ \n\ # statistical test functions\n\ snippet fis\n\ fisher.test(${1:x}, ${2:y})\n\ snippet chi\n\ chisq.test(${1:x}, ${2:y})\n\ snippet tt\n\ t.test(${1:x}, ${2:y})\n\ snippet wil\n\ wilcox.test(${1:x}, ${2:y})\n\ snippet cor\n\ cor.test(${1:x}, ${2:y})\n\ snippet fte\n\ var.test(${1:x}, ${2:y})\n\ snippet kvt \n\ kv.test(${1:x}, ${2:y})\n\ "; exports.scope = "r"; });