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(NA
+ ,NA
+ ,NA
+ ,NA
+ ,NA
+ ,-3.27408E+13
+ ,-0.141508838383838
+ ,2.30546E+14
+ ,4.5441E+14
+ ,0.839551767676767
+ ,-2.83848E+14
+ ,-1.09976E+14
+ ,-1.36226E+14
+ ,-3.29302E+14
+ ,2.32819E+14
+ ,4.26379E+14
+ ,5.59448E+14
+ ,2.51758E+14
+ ,3.10849E+14
+ ,0.680460858585858
+ ,0.710763888888888
+ ,-0.952114898989899
+ ,0.286521464646464
+ ,3.08576E+14
+ ,4.12743E+14
+ ,1.04031E+14
+ ,-0.796811868686872
+ ,-4.36121E+14
+ ,-8.69719E+14
+ ,-1.69075E+14
+ ,1.52516E+14
+ ,-0.319539141414142
+ ,-2.9559E+14
+ ,-2.28545E+14
+ ,2.41152E+14
+ ,-6.99757E+14
+ ,2.75243E+14
+ ,2.29031E+14
+ ,2.74485E+13
+ ,3.59713E+14
+ ,1.34448E+14
+ ,-0.73241792929293
+ ,-2.43318E+13
+ ,2.76379E+14
+ ,-0.414236111111111
+ ,1.21455E+14
+ ,1.07819E+14
+ ,-1.41424E+14
+ ,-0.997569444444444
+ ,0.748642676767678
+ ,-0.255145202020202
+ ,2.97213E+14
+ ,5.05281E+14
+ ,2.05925E+14
+ ,-3.14151E+14
+ ,-3.94454E+14
+ ,-3.49757E+14
+ ,-3.32711E+13
+ ,-7.42181E+14
+ ,0.169097222222223
+ ,0.0857638888888896
+ ,3.58198E+14
+ ,5.07819E+14
+ ,2.97213E+14
+ ,-0.613857323232323
+ ,-1.10742E+14
+ ,-3.30818E+13
+ ,-0.444539141414142
+ ,0.377430555555554
+ ,-0.327114898989899
+ ,-0.796811868686869
+ ,4.2941E+14
+ ,3.87743E+14
+ ,-5.50136E+14
+ ,-0.421811868686869
+ ,1.13879E+14
+ ,-0.613857323232323
+ ,1.93425E+14
+ ,3.06682E+14
+ ,1.43046E+14
+ ,0.169097222222222
+ ,-1.03545E+14
+ ,-0.963478535353536
+ ,2.00243E+14
+ ,-2.99757E+14
+ ,2.04031E+14
+ ,-0.713478535353534
+ ,2.76379E+14
+ ,3.67781E+14
+ ,0.0592487373737374
+ ,-0.0581755050505048
+ ,-1.44454E+14
+ ,-1.28924E+14
+ ,1.58955E+14
+ ,5.16152E+14
+ ,0.169097222222224
+ ,-2.62257E+14
+ ,-4.83469E+14
+ ,-1.13015E+13
+ ,-5.36121E+14
+ ,-5.03052E+14
+ ,-3.73242E+14
+ ,-0.808175505050507
+ ,-1.56954E+14
+ ,-0.497569444444444
+ ,4.33955E+14
+ ,3.32819E+14
+ ,2.7941E+14
+ ,5.12743E+14
+ ,-0.418023989898991
+ ,-2.96348E+14
+ ,-4.06954E+14
+ ,-2.40552E+14
+ ,1.30925E+14
+ ,-3.89151E+14
+ ,-1.69454E+14
+ ,-0.0392361111111121
+ ,1.21455E+14
+ ,-0.088478535353536
+ ,2.6691E+14
+ ,4.96076E+14
+ ,2.20698E+14
+ ,-0.921811868686869
+ ,2.76379E+14
+ ,0.427809343434343
+ ,1.26758E+14
+ ,4.69182E+14
+ ,0.847127525252525
+ ,1.50243E+14
+ ,-2.66045E+14
+ ,-1.54681E+14
+ ,2.83576E+14
+ ,-2.0809E+14
+ ,0.748642676767679
+ ,-4.33848E+14
+ ,-8.06954E+14
+ ,NA
+ ,NA
+ ,NA
+ ,NA
+ ,NA
+ ,NA)
> #'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/1qks01352751926.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.337   0.062   0.389