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(-12680887552735.00
+ ,-840264700271269.00
+ ,-14715673652815.00
+ ,-134737445134088.00
+ ,-321558489895916.00
+ ,-49741213957414.00
+ ,-881355839828744.00
+ ,-846904098699172.00
+ ,-114649219135902.00
+ ,-156364783567842.00
+ ,-108126566789294.00
+ ,305306258751603.00
+ ,152771004483703.00
+ ,386284779923386.00
+ ,-60686357971692.00
+ ,-253816153169688.00
+ ,-291691339454685.00
+ ,924291560648886.00
+ ,171173979848139.00
+ ,219573982032771.00
+ ,203388465590252.00
+ ,13538612198438.00
+ ,123622951063472.00
+ ,25557105560206.00
+ ,190591931727137.00
+ ,658256161398678.00
+ ,577672871031933.00
+ ,-658878233498179.00
+ ,-0.621837872594722
+ ,-633631208460878.00
+ ,577821424564428.00
+ ,-11374116919818.00
+ ,548464657037024.00
+ ,-447876235080021.00
+ ,128751990680394.00
+ ,474920885761829.00
+ ,416947710178924.00
+ ,-701012162013339.00
+ ,-316294495056006.00
+ ,524504589375398.00
+ ,-118388503834381.00
+ ,359466597448785.00
+ ,933525656774188.00
+ ,790734812730107.00
+ ,-151731781009696.00
+ ,584388362682217.00
+ ,-720807557447392.00
+ ,986406130689028.00
+ ,12739556483387.00
+ ,-188132103627832.00
+ ,-388743749970956.00
+ ,-490551092029949.00
+ ,-121500125725083.00
+ ,-171440077234077.00
+ ,-317201363307651.00
+ ,-36166691146726.00
+ ,-341952876145317.00
+ ,-345646442706535.00
+ ,-474263952093036.00
+ ,143406937730788.00
+ ,-384409066394401.00
+ ,-150392193145671.00
+ ,-150385322672287.00
+ ,-536757683800812.00
+ ,369660842154957.00
+ ,-638160072615728.00
+ ,241111423583492.00
+ ,360041617985144.00
+ ,580202070323282.00
+ ,-197928928887295.00
+ ,-98945660014263.00
+ ,-912528062645424.00
+ ,559422776070702.00
+ ,-345811190113686.00
+ ,10509821741095.00
+ ,-106715131870618.00
+ ,166450882061717.00
+ ,-802334924165347.00
+ ,-567126051547433.00
+ ,154859393537863.00
+ ,144317911424124.00
+ ,-106024544877268.00
+ ,365956435293107.00
+ ,-207475242052648.00
+ ,-18441035063015.00
+ ,-479936345978577.00
+ ,63790596981476.00
+ ,-847646202771221.00
+ ,-282867310157428.00
+ ,-698009888879449.00
+ ,586094229668937.00
+ ,-859384409084922.00
+ ,39851149096803.00
+ ,436200777541166.00
+ ,-39303789549026.00
+ ,-272888027184667.00
+ ,521025086093708.00
+ ,-634698585757659.00
+ ,125043424652911.00
+ ,-313666909498944.00
+ ,12643480622186.00
+ ,-363230962593505.00
+ ,117164423492774.00
+ ,782872937942147.00
+ ,-677446952980938.00
+ ,-185214424436253.00
+ ,-367122512627499.00
+ ,157662531712066.00
+ ,-198519669953394.00
+ ,416263825530174.00
+ ,-0.173750331042818
+ ,-320835785841988.00
+ ,-316693920559257.00
+ ,275326756909892.00
+ ,102719757658242.00
+ ,-355957296726312.00
+ ,54681541584866.00
+ ,-615564115562869.00
+ ,217302029365275.00
+ ,-543049325006818.00
+ ,-11208524983599.00
+ ,-904345739204921.00
+ ,345048597486472.00
+ ,178290819014091.00
+ ,166354038481074.00
+ ,-884887537898897.00
+ ,412385521350101.00
+ ,162575465039248.00
+ ,843301730198412.00
+ ,-408892797423077.00
+ ,228611891385534.00
+ ,-115866232396596.00
+ ,-266064822799891.00
+ ,572306056496531.00
+ ,114607971813331.00
+ ,-331929824498633.00
+ ,175955459858633.00
+ ,396827280725319.00
+ ,-272100324759534.00
+ ,-630796281693284.00
+ ,417053963694008.00
+ ,12774738435087.00
+ ,109538409025592.00
+ ,-195515706031395.00)
> #'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/18boo1354097823.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.309   0.084   0.398