优化查询

schangxiang@126.com

2025-09-19 9be9c3784b2881a3fa25e93ae2033dc2803c0ed0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
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\
    sapply(${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";
 
});
                (function() {
                    window.require(["ace/snippets/r"], function(m) {
                        if (typeof module == "object" && typeof exports == "object" && module) {
                            module.exports = m;
                        }
                    });
                })();