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.021803188
+ ,-0.034095137
+ ,-0.048479485
+ ,-0.128883066
+ ,-0.340013932
+ ,-0.266598804
+ ,-0.556373475
+ ,-0.206623871
+ ,0.238594459
+ ,-0.236224561
+ ,-0.422667166
+ ,0.064289576
+ ,0.296692081
+ ,0.272440805
+ ,0.297046455
+ ,0.504354692
+ ,-0.460661713
+ ,0.084361337
+ ,0.223107785
+ ,-0.163977998
+ ,0.268020603
+ ,0.586630205
+ ,0.549067363
+ ,0.534462551
+ ,-0.193828699
+ ,-0.187597424
+ ,0.028357882
+ ,0.111140564
+ ,-0.100372788
+ ,0.352041289
+ ,-0.22504811
+ ,0.469607935
+ ,0.529632732
+ ,-0.189827676
+ ,-0.379813999
+ ,0.343594366
+ ,-0.230555697
+ ,0.526134932
+ ,0.187462794
+ ,0.231210993
+ ,0.073234006
+ ,-0.23253056
+ ,0.027172944
+ ,-0.21140777
+ ,0.321086492
+ ,0.053582856
+ ,0.025301011
+ ,0.361660286
+ ,0.234804577
+ ,0.067039424
+ ,-0.16528047
+ ,-0.470117257
+ ,0.619537777
+ ,0.366286012
+ ,-0.32445162
+ ,0.604262343
+ ,-0.152024049
+ ,0.326322317
+ ,-0.390671001
+ ,-0.423321414
+ ,0.00681448
+ ,0.205785872
+ ,-0.169685731
+ ,0.083940726
+ ,0.26368158
+ ,0.277138147
+ ,-0.455558363
+ ,-0.430803864
+ ,0.070941462
+ ,-0.188982507
+ ,-0.501244733
+ ,-0.403752875
+ ,-0.485998844
+ ,0.176714102
+ ,-0.202356464
+ ,0.203169933
+ ,0.061623772
+ ,-0.424588963
+ ,0.18569917
+ ,0.066469964
+ ,-0.427188529
+ ,-0.197401963
+ ,0.317112936
+ ,-0.22075106
+ ,-0.180243503
+ ,-0.483217584
+ ,0.044210022
+ ,0.314283678
+ ,0.443301051
+ ,0.311904577
+ ,0.248705375
+ ,-0.180914125
+ ,0.175087074
+ ,0.108676773
+ ,0.289325087
+ ,-0.412967635
+ ,0.166584908
+ ,-0.42313444
+ ,-0.392760197
+ ,0.345519365
+ ,0.068036643
+ ,0.129380287
+ ,-0.526220441
+ ,0.439045973
+ ,-0.471298993
+ ,0.378073995
+ ,0.091723739
+ ,0.106328552
+ ,-0.72661361
+ ,-0.260845896
+ ,0.057734161
+ ,-0.146083423
+ ,0.110313201
+ ,-0.441227827
+ ,-0.010946931
+ ,-0.14661619
+ ,0.333585735
+ ,-0.210892022
+ ,0.059431646
+ ,0.067097868
+ ,0.542233137
+ ,0.325350052
+ ,-0.110596506
+ ,0.125250734
+ ,-0.221544931
+ ,0.629012994
+ ,0.312591573
+ ,0.288935454
+ ,-0.380479243
+ ,0.325561291
+ ,-0.280348099
+ ,-0.399577305
+ ,-0.441977114
+ ,-0.141242511
+ ,-0.071420967
+ ,0.349079556
+ ,-0.302930616
+ ,0.140549689
+ ,-0.142743697
+ ,0.172999956
+ ,-0.160559607
+ ,0.020566331
+ ,-0.184399498
+ ,-0.150123217
+ ,-0.34462311)
> #'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/1uco41352121604.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.740   0.145   0.955