R version 2.13.0 (2011-04-13)
Copyright (C) 2011 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: i486-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(124252
+ ,98956
+ ,98073
+ ,106816
+ ,41449
+ ,76173
+ ,177551
+ ,22807
+ ,126938
+ ,61680
+ ,72117
+ ,79738
+ ,57793
+ ,91677
+ ,64631
+ ,106385
+ ,161961
+ ,112669
+ ,114029
+ ,124550
+ ,105416
+ ,72875
+ ,81964
+ ,104880
+ ,76302
+ ,96740
+ ,93071
+ ,78912
+ ,35224
+ ,90694
+ ,125369
+ ,80849
+ ,104434
+ ,65702
+ ,108179
+ ,63583
+ ,95066
+ ,62486
+ ,31081
+ ,94584
+ ,87408
+ ,68966
+ ,88766
+ ,57139
+ ,90586
+ ,109249
+ ,33032
+ ,96056
+ ,146648
+ ,80613
+ ,87026
+ ,5950
+ ,131106
+ ,32551
+ ,31701
+ ,91072
+ ,159803
+ ,143950
+ ,112368
+ ,82124
+ ,144068
+ ,162627
+ ,55062
+ ,95329
+ ,105612
+ ,62853
+ ,125976
+ ,79146
+ ,108461
+ ,99971
+ ,77826
+ ,22618
+ ,84892
+ ,92059
+ ,77993
+ ,104155
+ ,109840
+ ,238712
+ ,67486
+ ,68007
+ ,48194
+ ,134796
+ ,38692
+ ,93587
+ ,56622
+ ,15986
+ ,113402
+ ,97967
+ ,74844
+ ,136051
+ ,50548
+ ,112215
+ ,59591
+ ,59938
+ ,137639
+ ,143372
+ ,138599
+ ,174110
+ ,135062
+ ,175681
+ ,130307
+ ,139141
+ ,44244
+ ,43750
+ ,48029
+ ,95216
+ ,92288
+ ,94588
+ ,197426
+ ,151244
+ ,139206
+ ,106271
+ ,1168
+ ,71764
+ ,25162
+ ,45635
+ ,101817
+ ,855
+ ,100174
+ ,14116
+ ,85008
+ ,124254
+ ,105793
+ ,117129
+ ,8773
+ ,94747
+ ,107549
+ ,97392
+ ,126893
+ ,118850
+ ,234853
+ ,74783
+ ,66089
+ ,95684
+ ,139537
+ ,144253
+ ,153824
+ ,63995
+ ,84891
+ ,61263
+ ,106221
+ ,113587
+ ,113864
+ ,37238
+ ,119906
+ ,135096
+ ,151611
+ ,144645
+ ,0
+ ,6023
+ ,0
+ ,0
+ ,0
+ ,0
+ ,77457
+ ,62464
+ ,0
+ ,0
+ ,1644
+ ,6179
+ ,3926
+ ,42087
+ ,0
+ ,87656)
> #'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/153fp1323534725.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.259   0.030   0.312