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(-4777.30286489562
+ ,23070.528130001
+ ,-8821.63337214709
+ ,-13679.6541906858
+ ,11180.1829460996
+ ,5010.30329824689
+ ,236674.448197586
+ ,-161375.659804557
+ ,-66545.1106213107
+ ,49070.753796459
+ ,-414.212527423893
+ ,-100241.675308561
+ ,-45068.1859403939
+ ,-68982.1874235818
+ ,11587.4031169388
+ ,82435.5025568545
+ ,-201025.240256427
+ ,85808.8345528482
+ ,-171483.174924518
+ ,128829.63550774
+ ,174210.399792212
+ ,90027.2143187103
+ ,76257.9363622707
+ ,105978.353626142
+ ,33463.7685088742
+ ,-24997.5673105846
+ ,-71607.2543106451
+ ,-71553.3799814415
+ ,-141257.563981324
+ ,-127220.357709647
+ ,-166137.167340866
+ ,20653.5916399585
+ ,36293.6892237336
+ ,-15222.9612910265
+ ,-42215.9997280694
+ ,-17642.7870087212
+ ,-54791.4829764715
+ ,52866.3269837782
+ ,56987.2562525371
+ ,-181764.973301219
+ ,62087.9921826122
+ ,-14743.6269557767
+ ,-111665.242178474
+ ,152134.382136938
+ ,58944.9312124372
+ ,2088.81779593873
+ ,3656.95695730158
+ ,-8639.39533530233
+ ,21079.2813432086
+ ,-53529.5967977272
+ ,-86176.3987739534
+ ,-29380.3585565979
+ ,-55862.0659882518
+ ,-49947.6945639323
+ ,-52455.1801053568
+ ,52284.44440755
+ ,-14839.3636447341
+ ,-15921.6970385855
+ ,-29059.9219029117
+ ,-27618.8745902494)
> #'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/1bock1354455873.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.277   0.077   0.334