Файл: concrete5.7.5.6/concrete/js/ace/snippets/r.js
Строк: 257
<?php
define("ace/snippets/r",["require","exports","module"],function(e,t,n){t.snippetText='snippet #!n #!/usr/bin/env Rscriptnn# includesnsnippet libn library(${1:package})nsnippet reqn require(${1:package})nsnippet sourcen source('${1:file}')nn# conditionalsnsnippet ifn if (${1:condition}) {n ${2:code}n }nsnippet eln else {n ${1:code}n }nsnippet ein else if (${1:condition}) {n ${2:code}n }nn# functionsnsnippet funn ${1:name} = function (${2:variables}) {n ${3:code}n }nsnippet retn return(${1:code})nn# dataframes, lists, etcnsnippet dfn ${1:name}[${2:rows}, ${3:cols}]nsnippet cn c(${1:items})nsnippet lin list(${1:items})nsnippet matn matrix(${1:data}, nrow=${2:rows}, ncol=${3:cols})nn# apply functionsnsnippet applyn apply(${1:array}, ${2:margin}, ${3:function})nsnippet lapplyn lapply(${1:list}, ${2:function})nsnippet sapplyn lapply(${1:list}, ${2:function})nsnippet vapplyn vapply(${1:list}, ${2:function}, ${3:type})nsnippet mapplyn mapply(${1:function}, ${2:...})nsnippet tapplyn tapply(${1:vector}, ${2:index}, ${3:function})nsnippet rapplyn rapply(${1:list}, ${2:function})nn# plyr functionsnsnippet ddn ddply(${1:frame}, ${2:variables}, ${3:function})nsnippet dln dlply(${1:frame}, ${2:variables}, ${3:function})nsnippet dan daply(${1:frame}, ${2:variables}, ${3:function})nsnippet d_n d_ply(${1:frame}, ${2:variables}, ${3:function})nnsnippet adn adply(${1:array}, ${2:margin}, ${3:function})nsnippet aln alply(${1:array}, ${2:margin}, ${3:function})nsnippet aan aaply(${1:array}, ${2:margin}, ${3:function})nsnippet a_n a_ply(${1:array}, ${2:margin}, ${3:function})nnsnippet ldn ldply(${1:list}, ${2:function})nsnippet lln llply(${1:list}, ${2:function})nsnippet lan laply(${1:list}, ${2:function})nsnippet l_n l_ply(${1:list}, ${2:function})nnsnippet mdn mdply(${1:matrix}, ${2:function})nsnippet mln mlply(${1:matrix}, ${2:function})nsnippet man maply(${1:matrix}, ${2:function})nsnippet m_n m_ply(${1:matrix}, ${2:function})nn# plot functionsnsnippet pln plot(${1:x}, ${2:y})nsnippet ggpn ggplot(${1:data}, aes(${2:aesthetics}))nsnippet imgn ${1:(jpeg,bmp,png,tiff)}(filename="${2:filename}", width=${3}, height=${4}, unit="${5}")n ${6:plot}n dev.off()nn# statistical test functionsnsnippet fisn fisher.test(${1:x}, ${2:y})nsnippet chin chisq.test(${1:x}, ${2:y})nsnippet ttn t.test(${1:x}, ${2:y})nsnippet wiln wilcox.test(${1:x}, ${2:y})nsnippet corn cor.test(${1:x}, ${2:y})nsnippet ften var.test(${1:x}, ${2:y})nsnippet kvt n kv.test(${1:x}, ${2:y})n',t.scope="r"})
?>