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(192283569097448.000
+ ,0.294968105108048
+ ,178238896532304.000
+ ,-0.528798764064595
+ ,159412861706118.000
+ ,-0.196626857213022
+ ,119551775480277.000
+ ,-0.343002706267642
+ ,173589463415305.000
+ ,10193587835052.000
+ ,0.28816784391097
+ ,18703479728737.000
+ ,-217629178248699.000
+ ,149386465476362.000
+ ,0.705690234613127
+ ,1386023134671.000
+ ,-0.188363719706505
+ ,-0.600200249281295
+ ,0.621081671147038
+ ,211887753964865.000
+ ,-279671077931852.000
+ ,0.619689462303168
+ ,107916191665139.000
+ ,0.688931397470784
+ ,0.642078237951686
+ ,0.52715673744495
+ ,0.396216093677352
+ ,-0.196870914178259
+ ,0.9237715805306
+ ,0.855401279565833
+ ,-0.546804809246844
+ ,-0.0467702322549522
+ ,0.511255493521058
+ ,0.477182306170213
+ ,0.915556992353865
+ ,-0.207663388072362
+ ,139615821852376.000
+ ,165056149786515.000
+ ,124106215756823.000
+ ,-0.881504285911194
+ ,120372520041253.000
+ ,0.486013703944818
+ ,0.793404200164013
+ ,-0.297789393243881
+ ,161872019125241.000
+ ,-0.967257793234837
+ ,-0.274128089477851
+ ,-105903242204624.000
+ ,0.137679744119193
+ ,-0.501359286301505
+ ,0.418785783593874
+ ,-0.46418749162396
+ ,-129617437833856.000
+ ,-0.565384658859462
+ ,0.824301986122837
+ ,-111010480496657.000
+ ,-0.666816231688351
+ ,-12788342145597.000
+ ,-0.561031099211263
+ ,0.174188939944474
+ ,-0.183314075737355
+ ,-0.605559659276489
+ ,0.199483736353345
+ ,0.182708481448122
+ ,0.00144146835580372
+ ,0.647464216712559
+ ,0.515699137182352
+ ,-0.172568857905004
+ ,-0.0986142887686041
+ ,0.028482422106917
+ ,-0.347520985050124
+ ,101557957436341.000
+ ,-0.245459859226715
+ ,0.686778061693284
+ ,0.721738783172442
+ ,0.501448621915213
+ ,0.167888170121379
+ ,0.560443857558282
+ ,0.914805502891852
+ ,-0.300170234787728
+ ,-0.156479504188136
+ ,-0.238924247021377
+ ,-141211734246638.000
+ ,-0.977918973427019
+ ,-0.318673106970024
+ ,-147856465718585.000
+ ,-129103627225027.000
+ ,-117930570510201.000
+ ,0.0711665392585377
+ ,-0.870874992386959
+ ,-0.104474686776165
+ ,0.266716692799392
+ ,-0.730038395664851
+ ,-0.669046312119896
+ ,-0.187898940786524
+ ,-0.672758164365316
+ ,-0.212576909938501
+ ,-0.177544090585276
+ ,-0.414501751114827
+ ,0.0118917040126762
+ ,-0.037614098283186
+ ,0.00747245355275739
+ ,0.117839244240899
+ ,-0.165968667829519
+ ,-0.0237089105446586
+ ,-0.0728407441072881
+ ,-0.542072843201889
+ ,-0.88013679694143
+ ,-0.971984149139327
+ ,-0.93907788717381
+ ,-0.869375855302048
+ ,-0.875946768080893
+ ,-0.800075319282285
+ ,-0.921697611581262
+ ,-0.875293263226346
+ ,-0.859185436495526
+ ,-0.873284686316112
+ ,-0.844085887484423
+ ,-0.879198101801539)
> #'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/141us1355936451.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.330   0.106   0.411