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.00
+ ,-0.0444630198027383
+ ,0.360524437139486
+ ,-0.526273130782507
+ ,-0.107821018746853
+ ,0.315667117200098
+ ,-291356333360034.00
+ ,-320006524017127.00
+ ,155147061089406.00
+ ,387266379145731.00
+ ,138606790653778.00
+ ,0.646192003721311
+ ,0.143794742003424
+ ,-0.52332734584932
+ ,0.418181552681014
+ ,-0.655595327010974
+ ,-0.457764247789411
+ ,-0.185132367080547
+ ,-109367031344713.00
+ ,-192728426099601.00
+ ,172297257579309.00
+ ,0.751238066463147
+ ,144576884957914.00
+ ,0.809200690708658
+ ,-0.0217542197044055
+ ,0.734642303727645
+ ,-0.135794636901696
+ ,0.381002417826397
+ ,-0.500310721184709
+ ,-0.294117414964036
+ ,-0.398795255190011
+ ,-0.605209716060285
+ ,0.483912792396615
+ ,0.555294193381863
+ ,-0.335696117293448
+ ,126440901480222.00
+ ,0.482508123064026
+ ,0.611421992282634
+ ,143940534387595.00
+ ,0.157979752309502
+ ,-0.745518642283325
+ ,-0.415743928687551
+ ,-172909383552137.00
+ ,-0.549434601839517
+ ,0.381285137019485
+ ,0.243308311094852
+ ,142177462632016.00
+ ,-0.644783629498079
+ ,10218455407762.00
+ ,-0.245519770577
+ ,-0.351980343407318
+ ,-0.268195473357659
+ ,0.844006197175531
+ ,0.693133463438753
+ ,-0.645399469533269
+ ,-0.498919998501138
+ ,-0.46450523414113
+ ,-0.508073264365704
+ ,-0.780374127471211
+ ,0.79976246114784
+ ,127826816074499.00
+ ,0.920668314341161
+ ,-107603310635026.00
+ ,-0.658497597887056
+ ,0.451198494901602
+ ,-108917660321024.00
+ ,-0.277903496593212
+ ,-0.157109273965743
+ ,-117165865249605.00
+ ,0.689833203608197
+ ,130882922794767.00
+ ,0.475320399090417
+ ,-0.579874284458086
+ ,-0.125663826139505
+ ,0.652662697891046
+ ,0.899561807409983
+ ,-121789348815966.00
+ ,-0.459352572708449
+ ,-0.0606662760049782
+ ,0.0770830069199614
+ ,0.900111016220085
+ ,183338754344646.00
+ ,-0.0826690225568126
+ ,-0.789783983249319
+ ,-0.037835257187956
+ ,-0.591229892137465
+ ,-0.0991105159246446
+ ,0.78860138638812
+ ,-0.400778527673236
+ ,181004159197182.00
+ ,131329848607158.00
+ ,-0.563206040190319
+ ,0.86226495431942
+ ,-0.697835704692295
+ ,-0.141624435788432
+ ,191788366022479.00
+ ,0.11894384303206
+ ,0.532683392293619
+ ,209668663215774.00
+ ,-0.625348307475803
+ ,-0.624557680848542
+ ,-134274054734612.00
+ ,-0.930979104526215
+ ,-0.38183522712832
+ ,0.594873902731027
+ ,-0.240036878710386
+ ,200553104521738.00
+ ,-0.803293655142661
+ ,0.123168731334578
+ ,0.18783108776674
+ ,-0.0584109390440604
+ ,-0.440192811514697
+ ,0.320559452573175
+ ,-0.167274300831065
+ ,-0.00323427436621745
+ ,0.00562203019148305
+ ,-0.0150416600611853
+ ,-0.0196848707480036
+ ,-123107331809738.00
+ ,-0.510909865194458
+ ,-0.187415551024846
+ ,107821007328533.00
+ ,0.529521171961031
+ ,-0.566040387021278
+ ,236728143742717.00
+ ,-114336303131602.00
+ ,-0.595242112218979
+ ,-0.530242233624219
+ ,112070791619668.00
+ ,232424421543855.00
+ ,-0.640547210461122
+ ,0.282030228434567)
> #'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/1mgn81352580252.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.313   0.069   0.364