R version 2.15.1 (2012-06-22) -- "Roasted Marshmallows"
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(5.56754E+14
+ ,5.1287E+14
+ ,5.30152E+14
+ ,3.98241E+14
+ ,-2.07276E+14
+ ,0.634169042089626
+ ,-0.607366250923857
+ ,2.84623E+14
+ ,1.65489E+14
+ ,-1.89066E+14
+ ,1.04963E+14
+ ,1.03816E+14
+ ,-0.425113058550112
+ ,-7.24647E+14
+ ,1.42584E+14
+ ,-1.27131E+14
+ ,-2.47657E+14
+ ,0.502642195634472
+ ,-0.439077139213187
+ ,0.80201282541235
+ ,0.766196583207782
+ ,-5.08248E+14
+ ,2.28201E+14
+ ,2.90754E+14
+ ,2.04109E+13
+ ,3.53527E+14
+ ,-0.595906730661394
+ ,-3.61619E+14
+ ,0.137106119413905
+ ,1.06066E+14
+ ,-0.977878991914782
+ ,-0.431249032642949
+ ,-0.472074695196654
+ ,-1.14963E+14
+ ,5.87541E+14
+ ,4.94635E+14
+ ,-1.76744E+14
+ ,1.49683E+14
+ ,-0.512125560703577
+ ,1.79161E+14
+ ,2.40159E+14
+ ,1.26137E+14
+ ,-1.55991E+14
+ ,-1.86769E+14
+ ,0.824381660264801
+ ,-0.939438965345497
+ ,1.72725E+14
+ ,3.65797E+14
+ ,-4.45454E+12
+ ,1.28929E+14
+ ,-1.55094E+14
+ ,-3.34731E+14
+ ,-2.35707E+13
+ ,1.42987E+14
+ ,1.97798E+14
+ ,-0.956751971958517
+ ,-3.9716E+14
+ ,-3.91181E+14
+ ,2.32489E+14
+ ,4.31298E+14
+ ,0.754835741695906
+ ,-0.043964294886742
+ ,-1.79293E+14
+ ,-1.06833E+14
+ ,-1.24326E+13
+ ,-2.02401E+14
+ ,-2.63371E+14
+ ,0.0536863104868315
+ ,-1.43177E+14
+ ,-1.40236E+14
+ ,2.11896E+14
+ ,6.13541E+14
+ ,2.57254E+14
+ ,1.45719E+14
+ ,-5.82186E+14
+ ,-3.54883E+14
+ ,-0.739205451473027
+ ,-1.02568E+14
+ ,0.322912639428652
+ ,-2.53579E+14
+ ,-1.75278E+14
+ ,-1.50861E+14
+ ,2.48945E+14
+ ,0.871358946250279
+ ,2.02626E+14
+ ,2.91514E+14
+ ,3.05512E+14
+ ,5.96315E+14
+ ,2.90845E+14
+ ,8.58583E+14
+ ,4.02049E+14
+ ,0.130611921182486
+ ,5.87296E+14
+ ,-0.266409363864844
+ ,0.676303067391535
+ ,-3.42687E+14
+ ,0.349794990340346
+ ,-6.23085E+14
+ ,-7.40353E+14
+ ,-9.95434E+14
+ ,-1.0515E+14
+ ,-5.70601E+14
+ ,-6.87897E+14
+ ,-8.552E+14
+ ,-9.80164E+12
+ ,-1.60754E+14
+ ,-0.0762185246663855
+ ,0.136558503084006
+ ,-6.81065E+14
+ ,-4.86189E+14
+ ,-6.3213E+14
+ ,-6.89874E+14
+ ,-4.16125E+14
+ ,-7.0172E+14
+ ,-1.20835E+14
+ ,-1.25397E+14
+ ,-3.19608E+14
+ ,2.39711E+14
+ ,5.30793E+14
+ ,5.05866E+14
+ ,0.523198014956517
+ ,3.72983E+14
+ ,5.08263E+14
+ ,3.79278E+14
+ ,1.60712E+14
+ ,9.74114E+14
+ ,5.34694E+13
+ ,4.79539E+14
+ ,3.96083E+14
+ ,6.10507E+14
+ ,2.9368E+14
+ ,0.699996395074542
+ ,-2.73292E+14
+ ,-3.7388E+14
+ ,5.28676E+14
+ ,2.54231E+14
+ ,0.164629128878812
+ ,4.15922E+14
+ ,1.17216E+14
+ ,1.34643E+14
+ ,-2.92679E+14
+ ,-1.23441E+14
+ ,0.150911601313282)
> #'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/1tm301351899087.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.311   0.071   0.386