source('/home/pw/wessanet/cretab') RC.capture <- function (expression, collapse = NULL) { resultConn <- textConnection('RC.resultText', open = 'w', local=TRUE) sink(resultConn) on.exit(function() { sink() close(resultConn) }) expression on.exit(NULL) sink() close(resultConn) return(paste(c(RC.resultText, ''), collapse = collapse, sep = '')) } RC.texteval <- function (sourceText, collapse = NULL, echo = TRUE) { sourceConn <- textConnection(sourceText, open = 'r') on.exit(close(sourceConn)) result <- RC.capture(source(file = sourceConn, local = FALSE, echo = echo, print.eval = TRUE), collapse = collapse) on.exit(NULL) close(sourceConn) res <- '' for(i in 1:length(result)) { if (result[i]!='') res <- paste(res,result[i],' ',sep='') } return(res) } myrfcuid = 'q0899991-2018' x <- c(-0.0837744178482282,-0.511920356412996,-0.302826611499292,-0.51462742056145,-1.20265125165187,-0.421277589865898,-1.13567217729552,-0.705646349519674,-0.361027061485276,1.76253814006137,3.25809669417749,-0.355278920167739,0.991648818941044,0.848985585697655,-0.242896839596061,0.175388050261258,-0.163585781332844,-0.309176756301983,0.346886569435097,0.902715271425229,-1.11213017436548,-1.24176670647179,0.339935977867587,0.079917028375865,0.0257626370749478,-0.243813840765949,-0.000803553818037566,0.116945148810584,-0.0608955749752088,-0.302955249837876,0.754453630137068,-0.861038677624605,-0.15537181121784,-0.230674579760916,-0.0509622624320076,-0.392252503985706,-0.0990905394788674,-0.322743134459798,-0.54478132283909,0.492940917243168,-3.02069039052779,-0.0420927473056475,-0.557046108616887,-0.345214149553079,-0.138924900531401,-0.262983943774474,1.02750176929732,0.00576890010230789,-0.0886125538220584,-0.2681856533319,-1.80137490724277,-1.23332206076581,0.0206991048464136,-0.564078657514838,-1.38665297566901,-0.252798430634208,-0.589631806793107,-0.245381999639678,0.0694348016681445,-0.0459423269745703,0.27160920708755,-0.184771402855397,-0.250888511986903,-0.374092727450599,-0.292052632273492,-0.552780265469353,0.0437020754480273,0.149263885843472,-1.82270333464803,0.831141149859765,-1.22917184537349,-0.303716894055642,-0.877313410927341,-0.362013195908015,2.61551215735224,-0.351846968378373,1.01626167064003,2.84043577961886,0.0438162393345263,-0.533564083632459,-0.566178971087742,0.747316608078588,0.138536997389797,0.021880534355787,0.831034129829612,-0.181715023557888,3.73241584745601,0.605100310273404,-0.344201914626138,-0.0877881491665191,0.221747071950341,-0.00891223505282127,0.101965546429563,0.206623503466746,-0.0753303905222807,-0.0272452181033564,0.823532019068278,0.349299787413194,-0.271872037229605,0.0728802500257788,-0.434147712639313,-0.0927282593572269,-0.367088125906412,-1.89319919827331,-1.22330940906715,-0.424246999222137,0.237750461557709,-0.32504028714296,3.0715197300032,-0.1641194287742,-0.318130524570163,-0.120501604740896,-0.156429776252911,-0.788117467985471,-0.688728245473462,0.310763732340788,-0.746214996703389,1.7522928432495,-0.415778212408579,1.71948702244062,-0.257193855225489,1.38957766125726,-0.0257489366590766,-0.295026259128803,-0.230059042901498,1.28789243218726,0.00833461968081699,0.060016201315086,0.00968520737684106,0.850086298895842,0.218049439688376,1.09716228685557,-0.455556342235927,0.952036636054416,-1.36951032789756,-0.822924718409043,1.45983685376083,-0.074257243503843,-1.54707865407784,-3.12008936675204,-0.661800381941619,-0.266627402776566,0.123302324011084,-0.942632106500755,0.0185973144822222,-0.456358333672911,4.50110704907642,-0.225866435742276,0.0574203647318389,2.86101761020927,-0.248155724020129,0.561494325009834,-1.11990899630588,2.35210752777671,1.02320033105813,-1.21405084852558,0.408484115158222,0.272469297707846,-0.184099412128681,-0.0160257686123832,-0.48104050604621,0.155139699926519) #'GNU S' R Code compiled by R2WASP v. 1.2.327 (Mon, 17 Jul 2017 23:18:04 +0200) #Author: root #To cite this work: Wessa P., (2017), Skewness and Kurtosis Test (v1.0.4) in Free Statistics Software (v$_version), Office for Research Development and Education, URL https://www.wessa.net/rwasp_skewness_kurtosis.wasp/ #Source of accompanying publication: # library(moments) agostino <- agostino.test(x) anscombe <- anscombe.test(x) geary <- geary(x) jarque <- jarque.test(x) a<-table.start() a<-table.row.start(a) a<-table.element(a,'Skewness and Kurtosis Test',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('
',RC.texteval('agostino'),'',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('
',RC.texteval('anscombe'),'',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('
',RC.texteval('jarque'),'',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('
',RC.texteval('geary'),'',sep='')) a<-table.row.end(a) a<-table.end(a) table.save(a,file="/home/pw/wessanet/rcomp/tmp/1buoi1563995248.tab")