R version 2.15.2 (2012-10-26) -- "Trick or Treat"
Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: i686-pc-linux-gnu (32-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> 
> 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)
+ }
> x <- c(0.0139999928758755
+ ,0
+ ,0.991249780297647
+ ,-1.9825E+14
+ ,-4.95625E+14
+ ,-0.999845548344493
+ ,-3.86856E+14
+ ,-0.261648570446432
+ ,0.345724354779861
+ ,-0.133123243465308
+ ,-4.51506E+14
+ ,-4.03483E+14
+ ,-9.95394E+14
+ ,-4.01773E+13
+ ,9.39875E+14
+ ,6.4627E+14
+ ,0.67448955903596
+ ,0.464980444210721
+ ,-0.748417438571021
+ ,1.8606E+13
+ ,-0.910181776886513
+ ,-0.938081000128958
+ ,-2.09966E+14
+ ,0.247766892136843
+ ,-0.121204119470928
+ ,-1.12492E+14
+ ,-4.2796E+14
+ ,-0.967006186254003
+ ,-4.01614E+14
+ ,-5.1498E+14
+ ,6.43011E+14
+ ,1.87123E+13
+ ,-1.53481E+14
+ ,-3.68577E+14
+ ,2.85626E+14
+ ,6.24918E+13
+ ,-1.02044E+14
+ ,8.50919E+14
+ ,0.380353607959635
+ ,3.83217E+13
+ ,0.641136079640628
+ ,-0.866876570477264
+ ,-0.949350310727556
+ ,-1.48969E+14
+ ,6.08538E+14
+ ,-4.11544E+14
+ ,1.87358E+14
+ ,-0.198374180216538
+ ,-3.18964E+14
+ ,-1.54803E+14
+ ,1.24949E+14
+ ,-0.0264164461106143
+ ,2.57525E+14
+ ,0.793856834559239
+ ,-2.83361E+14
+ ,-6.00352E+13
+ ,0.342932776130615
+ ,0.10571373888873
+ ,0.622662881529458
+ ,-4.79946E+13
+ ,6.04567E+14
+ ,-0.98592265745745
+ ,4.08292E+14
+ ,3.36088E+14
+ ,-0.194930385847366
+ ,-3.13129E+14
+ ,1.5437E+14
+ ,-1.55245E+14
+ ,3.97404E+14
+ ,-0.416977436264647
+ ,0.205566481657038
+ ,-0.206731477871678
+ ,4.5292E+14
+ ,-1.05553E+14
+ ,-8.97263E+14
+ ,6.97247E+14
+ ,2.60313E+14
+ ,-2.14056E+13
+ ,1.80516E+14
+ ,0.928487241407985
+ ,-0.653354864680803
+ ,-2.28505E+14
+ ,-0.759615989224523
+ ,0.123641761998834
+ ,0.912996169385005
+ ,-7.30429E+14
+ ,3.89885E+14
+ ,-1.98354E+14
+ ,3.12158E+14
+ ,-0.972673569826267
+ ,-3.48081E+14
+ ,-2.26414E+14
+ ,-1.58432E+14
+ ,-2.12953E+14
+ ,1.53648E+13
+ ,1.6985E+14
+ ,-8.21097E+14
+ ,-5.28358E+13
+ ,-2.7954E+14
+ ,5.22618E+14
+ ,-5.09341E+14
+ ,-0.70358625710686
+ ,1.62775E+14
+ ,3.69594E+14
+ ,0.321737069280819
+ ,0.906307119077976
+ ,6.21676E+14
+ ,0.492169272926968
+ ,-0.957155966854324
+ ,2.12069E+13
+ ,-4.17215E+14
+ ,0.0655395932141151
+ ,-0.127459425366045
+ ,2.2824E+12
+ ,4.44442E+14
+ ,-4.99127E+14
+ ,3.98303E+14
+ ,2.30394E+14
+ ,3.59184E+14
+ ,-0.664661495838645
+ ,2.5304E+14
+ ,2.3068E+14
+ ,-1.52169E+14
+ ,-1.08851E+14
+ ,4.33696E+14
+ ,-2.69282E+13
+ ,0.797364066644051
+ ,1.85505E+14
+ ,-3.42247E+14
+ ,-1.35859E+14
+ ,-4.89382E+14
+ ,0.247027106774191
+ ,1.54425E+14
+ ,-7.18092E+13
+ ,1.34832E+14
+ ,-3.9671E+14
+ ,-3.79436E+14
+ ,7.04376E+14
+ ,0.179548127635319
+ ,1.47172E+14
+ ,-0.505275050084831
+ ,-2.06202E+14
+ ,-2.97609E+14)
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Dr. Ian E. Holliday
> #To cite this work: Ian E. Holliday, 2011, YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/
> #Source of accompanying publication: 
> #Technical description: 
> library(moments)
> agostino <- agostino.test(x)
> anscombe <- anscombe.test(x)
> geary <- geary(x)
> jarque <- jarque.test(x)
> 
> #Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/wessaorg/rcomp/createtable")
> 
> 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('<pre>',RC.texteval('agostino'),'</pre>',sep=''))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,paste('<pre>',RC.texteval('anscombe'),'</pre>',sep=''))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,paste('<pre>',RC.texteval('jarque'),'</pre>',sep=''))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,paste('<pre>',RC.texteval('geary'),'</pre>',sep=''))
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/wessaorg/rcomp/tmp/1duhq1353515023.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.353   0.066   0.431