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.00509986101484714
+ ,-0.367556066315499
+ ,-0.0537354466224309
+ ,-0.166704772282988
+ ,-0.126300049308617
+ ,0.327023686536905
+ ,0.692054233801963
+ ,-0.417564341193504
+ ,-0.232739197967506
+ ,0.158028515484774
+ ,0.141962601907719
+ ,0.0977015093305773
+ ,0.178499162542409
+ ,0.354710779485382
+ ,-0.354746935306964
+ ,0.0473075914423155
+ ,0.12548482811567
+ ,0.049678532976494
+ ,0.399090003338055
+ ,-0.246526990945034
+ ,0.21685291463498
+ ,-0.219593868435001
+ ,0.0652702639292979
+ ,-0.0665262770468571
+ ,0.308815292012484
+ ,-0.424601314868768
+ ,0.145355814680874
+ ,-0.0441183515794435
+ ,-0.221659463846152
+ ,0.122084195491148
+ ,0.0536801423020546
+ ,0.148492555999408
+ ,0.24474869125267
+ ,0.278323125606182
+ ,-0.309036135905256
+ ,0.264314084072332
+ ,0.17628378438955
+ ,0.241921702176668
+ ,-0.0565203845695072
+ ,0.238898007832185
+ ,0.108691572225452
+ ,0.343634820779181
+ ,0.0945164374426331
+ ,0.286201922339716
+ ,0.169943261563564
+ ,0.0957444165846209
+ ,-0.0751006897446516
+ ,0.135229078535882
+ ,0.636783916469131
+ ,0.143957130800366
+ ,-0.0621808412835195
+ ,-0.179444688104042
+ ,-0.0242396923945499
+ ,-0.0669552206506127
+ ,0.122304332221848
+ ,0.122161018305001
+ ,0.0441032730401381
+ ,0.193670631917222
+ ,-0.00500574026816254
+ ,-0.0808552739975925
+ ,0.0558677003038862
+ ,-0.250407187862639
+ ,0.193849819804146
+ ,0.414954798600835
+ ,-0.461344114086046
+ ,0.155266476855029
+ ,0.119974629604623
+ ,-0.0358831783828276
+ ,0.33240331269403
+ ,0.13904839615431
+ ,0.0356716080180407
+ ,-0.130743874142015
+ ,0.203701793870735
+ ,-0.332119742643951
+ ,0.2858057337555
+ ,-0.00330579177147433
+ ,0.05277378155592)
> #'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/fisher/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/fisher/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/fisher/rcomp/tmp/1v32v1355753888.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.320   0.092   0.387