R version 2.12.0 (2010-10-15)
Copyright (C) 2010 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(919.389758388658
+ ,44251.4122052056
+ ,-12513.6654771173
+ ,-62475.9769850588
+ ,-38269.6032913212
+ ,-26433.5793144674
+ ,24342.1534154
+ ,23505.5674955919
+ ,-4069.38700205302
+ ,72151.8163681993
+ ,-47495.6634828155
+ ,-12576.2938058643
+ ,-59418.2144751869
+ ,-34652.2762189172
+ ,44411.8767687205
+ ,7597.28229474211
+ ,-44964.9200131698
+ ,-5773.07229225834
+ ,-68977.674821896
+ ,-50475.3281912243
+ ,-17256.2257107146
+ ,-16971.9008486908
+ ,40794.9015936341
+ ,-49989.1041945531
+ ,-13075.6608257843
+ ,48399.996730286
+ ,5288.55206600465
+ ,36107.6564347825
+ ,129622.84625155
+ ,31275.8796531673
+ ,24448.5482352195
+ ,37050.5555680899
+ ,-50938.6030426967
+ ,-35611.3452302493
+ ,23846.7550483907
+ ,-5877.06899025109
+ ,43383.8087212696
+ ,-15525.1551593278
+ ,-11110.5952798899
+ ,37512.4832264053
+ ,48538.3167412087
+ ,-7456.70072347462
+ ,-6265.02954656174
+ ,2689.79223073755
+ ,-3128.72455359062
+ ,45622.5273849873
+ ,-7026.83730091046
+ ,32659.8643944869
+ ,31412.9597997446
+ ,-37566.8285240439
+ ,-23748.2542421216
+ ,-21563.3257290206
+ ,84625.2655373932
+ ,56023.545590683
+ ,21113.2468679188
+ ,35319.4931141074
+ ,48312.4763147551
+ ,1531.63116191048
+ ,26420.4180348139
+ ,-10476.3689495533
+ ,19469.5038226566
+ ,-37599.4384978871
+ ,27467.3790101194
+ ,2485.04484376091
+ ,45061.1961370999
+ ,-26443.4601079792
+ ,-3262.53974823148
+ ,-95576.4952865121
+ ,-11949.1839849309
+ ,-12163.6574567382
+ ,31308.5895827809
+ ,18529.7826072853
+ ,-26521.8875914469
+ ,-26897.52398508
+ ,-79185.2215755373
+ ,-25401.3560761515
+ ,-30435.2366624086
+ ,-70459.9527763131
+ ,-8174.04130782662
+ ,-44863.1255061461
+ ,-29894.1298246692
+ ,112746.19527799
+ ,-23851.6725313611
+ ,-4641.0995597634
+ ,-24077.5585175183
+ ,9425.09057880312
+ ,-13693.3598574151
+ ,-17518.8141300065
+ ,-1803.95811306701
+ ,17659.6283079347
+ ,182.749065110148
+ ,-37689.0723188402
+ ,28104.5764560943
+ ,12457.9424713109
+ ,-33057.4664827595
+ ,32698.2875250512
+ ,5963.28184556008
+ ,-7027.87541392703
+ ,45199.5934499621
+ ,-20757.7434595314
+ ,3369.05811206089
+ ,-16380.0657361025
+ ,3905.3965698384
+ ,14786.4620090207
+ ,5803.97634944544
+ ,-28568.7385636487
+ ,-6675.53096538564
+ ,25268.2899001662
+ ,-5684.36365302935
+ ,-34836.959348979
+ ,-4430.31661104503
+ ,16607.9628092971
+ ,4681.24311339866
+ ,-14964.9634516811
+ ,-7326.34686653538
+ ,-5684.36365302935
+ ,80832.9823040114
+ ,-19583.0719180619
+ ,40.4970240628855
+ ,26663.7704260553
+ ,-14265.0924189724
+ ,6362.35857527158
+ ,5984.08377729442
+ ,-40535.9634865151
+ ,-2216.86625387061
+ ,-7678.06148673653
+ ,26267.683374449
+ ,24911.2765088984
+ ,-1976.09748465309
+ ,-11801.0776556145
+ ,-1980.41896115322
+ ,1997.27424961065
+ ,-2317.28925003426
+ ,17791.9655003272
+ ,-5124.42561696742
+ ,-2587.75144886963
+ ,-5684.36365302935
+ ,10695.181940815
+ ,-37580.1264211433
+ ,-1184.79393707387
+ ,-17190.731149322
+ ,-3624.14131703423
+ ,14058.0924310476
+ ,6543.76133893449)
> library(moments)
> agostino <- agostino.test(x)
> anscombe <- anscombe.test(x)
> geary <- geary(x)
> jarque <- jarque.test(x)
> 
> #Note: the /var/www/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/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/www/rcomp/tmp/1dkhh1324629912.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.360   0.020   0.368