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(-958125253237586.00
+ ,-136612915198097.00
+ ,-277294047385342.00
+ ,282740572597627.00
+ ,-263996905390088.00
+ ,-247739060943675.00
+ ,-135854389555794.00
+ ,174265553959447.00
+ ,100820974131722.00
+ ,-245384034928716.00
+ ,387603617908178.00
+ ,847338532454894.00
+ ,-110581719069521.00
+ ,-11293010569006.00
+ ,-968666382007923.00
+ ,273099617400269.00
+ ,-490699660120746.00
+ ,-103938536994007.00
+ ,-101037764921168.00
+ ,410501438107472.00
+ ,-119910873558507.00
+ ,-390107701056265.00
+ ,-911836043497934.00
+ ,40772484918598.00
+ ,-96983969962298.00
+ ,181576056331947.00
+ ,-951962200573639.00
+ ,519411501105972.00
+ ,495511006201841.00
+ ,243557610539893.00
+ ,-568682036630551.00
+ ,-258765270490805.00
+ ,-211003709563713.00
+ ,289858351728012.00
+ ,-163013019291424.00
+ ,134647547171883.00
+ ,-789480215092653.00
+ ,-445722648777858.00
+ ,-711276703277028.00
+ ,183020452304839.00
+ ,345110959708522.00
+ ,-171936302568126.00
+ ,62480058275433.00
+ ,-124298323321082.00
+ ,-472948755252794.00
+ ,995602684669234.00
+ ,-17298909535752.00
+ ,166797940424895.00
+ ,389681436866941.00
+ ,116600070235632.00
+ ,22341426549665.00
+ ,159521168669175.00
+ ,-307483023608958.00
+ ,-125113958164271.00
+ ,283976219586791.00
+ ,-988990301684474.00
+ ,-133387716216216.00
+ ,647276206877495.00
+ ,-197446182881157.00
+ ,158693345783045.00
+ ,-356064804832939.00
+ ,123958354992761.00
+ ,-980368785924419.00
+ ,-19074135857101.00
+ ,136570312810828.00
+ ,-161444753103438.00
+ ,115448922655977.00
+ ,-27042506112076.00
+ ,-14604086004657.00
+ ,-36439095296125.00
+ ,-177347156913307.00
+ ,523462285132873.00
+ ,711060141424057.00
+ ,-813031263604222.00
+ ,624562818446881.00
+ ,274341827786917.00
+ ,-335686525398316.00
+ ,120792065381979.00
+ ,-26203184327371.00
+ ,-198559274809302.00
+ ,-129896688512924.00
+ ,81584333119286.00
+ ,-255236163012784.00
+ ,134791663183571.00
+ ,120995685099739.00
+ ,997755109529159.00
+ ,37933486515371.00
+ ,888231198909381.00
+ ,128694925703012.00
+ ,-136971888599449.00
+ ,185133923593092.00
+ ,-342708447135138.00
+ ,-142051379433829.00
+ ,223614097305739.00
+ ,246526840068009.00
+ ,-111619752915399.00
+ ,0.670219014473323
+ ,-557949323018642.00
+ ,-209710902594652.00
+ ,-515641616947663.00
+ ,525532200138517.00
+ ,-209463604264841.00
+ ,-229669855389124.00
+ ,-101099422739546.00
+ ,171917979697444.00
+ ,-125685370038393.00
+ ,733381431508814.00
+ ,134594700070435.00
+ ,-957119818743815.00
+ ,344655299133075.00
+ ,-693369362240217.00
+ ,278610375236767.00
+ ,401992535536973.00
+ ,-324585478299501.00
+ ,213358392375625.00
+ ,991636515624583.00
+ ,-592218943632272.00
+ ,338621841734784.00
+ ,-607756240568079.00
+ ,-117531481876429.00
+ ,278501709489064.00
+ ,93743385719142.00
+ ,-156848064109994.00
+ ,-426565945624224.00
+ ,-614288419180241.00
+ ,355544340909767.00
+ ,-146644751102078.00
+ ,-306042328789306.00
+ ,204489417152593.00
+ ,-467166566273596.00
+ ,621290029649694.00
+ ,667922984167785.00
+ ,211893450526648.00
+ ,-46660808817105.00
+ ,942180761408344.00
+ ,-255395175363863.00
+ ,309210017419263.00
+ ,-648302284692604.00
+ ,-826732886689662.00
+ ,11179861665125.00
+ ,-301733893362867.00
+ ,-148925288808296.00
+ ,131285887765409.00
+ ,-137793289783365.00
+ ,-973436827635255.00
+ ,-337881458138383.00
+ ,-412209782757133.00
+ ,215161097793528.00
+ ,-23792845033429.00
+ ,-999005737458152.00
+ ,-241417220395861.00
+ ,-571384181647245.00
+ ,-27136404778216.00
+ ,-906352722166178.00
+ ,-119823861684609.00
+ ,281645326998066.00
+ ,137648550277567.00
+ ,54207950253635.00
+ ,-456944930334911.00
+ ,228902468348088.00
+ ,153635571632583.00
+ ,-181845132692166.00
+ ,-31256112886623.00
+ ,847738334293469.00
+ ,212711946920437.00
+ ,246949955159777.00
+ ,-111699090486247.00
+ ,475344280179544.00
+ ,113870988425177.00
+ ,-876113716729416.00
+ ,670081801041923.00
+ ,713443318079602.00
+ ,-110244292373388.00
+ ,-204982532641013.00
+ ,-106858306645336.00
+ ,256772244995306.00
+ ,284137626314523.00
+ ,692943893670105.00
+ ,-156408020535038.00
+ ,77692507393318.00
+ ,172688272591039.00
+ ,-160288439026807.00
+ ,794804110319408.00
+ ,-860802110476016.00
+ ,-453685694390781.00
+ ,-394505130578013.00
+ ,-325977915592356.00
+ ,-138218724683593.00
+ ,-240151631019557.00
+ ,-485790114509162.00
+ ,223818251303224.00
+ ,19938683026185.00
+ ,177076155801981.00
+ ,157747881462886.00
+ ,-551991392469019.00
+ ,166026561606054.00
+ ,-500427288804504.00
+ ,871872450559497.00
+ ,241122544067664.00
+ ,933751405860155.00
+ ,-887633416015932.00
+ ,847121217018082.00
+ ,536963343061616.00
+ ,-0.859114373434798
+ ,-640455228137847.00
+ ,-290494630639512.00
+ ,-209507059795876.00
+ ,763237159083943.00
+ ,429714512561852.00
+ ,288535893037583.00
+ ,77762716132144.00
+ ,-804551602961918.00
+ ,792483486425317.00
+ ,-257317752366302.00
+ ,-772061147191461.00
+ ,115705845057946.00
+ ,336364990502184.00
+ ,627442075182514.00
+ ,187576793993712.00
+ ,110395550563171.00
+ ,251871071227206.00
+ ,-837146403223674.00
+ ,-167055364893904.00
+ ,542508204835978.00
+ ,31881916625986.00
+ ,-553473622371027.00
+ ,-548014914915786.00
+ ,111466243631424.00
+ ,242268377932629.00
+ ,-21895260213706.00
+ ,-564692394750235.00
+ ,-42725767306775.00
+ ,122521407589416.00
+ ,240579524103062.00
+ ,-689765567640722.00
+ ,-776760319129061.00
+ ,-102708310100125.00
+ ,877003909427001.00
+ ,17188154538847.00
+ ,-827890950873294.00
+ ,-318165173816352.00
+ ,-721879861993182.00
+ ,-84977914603367.00
+ ,-167047799394476.00
+ ,-659534730225699.00
+ ,-684004878094559.00
+ ,193289645300016.00
+ ,-2000476427154.00
+ ,510498705918604.00
+ ,535100827656761.00
+ ,574279029897441.00
+ ,-489569908992791.00
+ ,186693028337218.00
+ ,-328039551903765.00
+ ,-158099301457421.00
+ ,-910654274478961.00
+ ,-849768445542963.00
+ ,160454501104188.00
+ ,-588238775626822.00
+ ,-273325314467079.00
+ ,226643920796116.00
+ ,557181227127861.00
+ ,105437921661249.00
+ ,842360008721683.00
+ ,-435675328490062.00
+ ,119397466713078.00
+ ,-282903785551654.00
+ ,861252452571753.00
+ ,-275431459558185.00
+ ,219169794422305.00
+ ,-349461827946007.00
+ ,-668349276060222.00
+ ,388259191620518.00
+ ,130237813588395.00
+ ,887175911481231.00
+ ,345704547074191.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/1wrs01356099080.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.396   0.100   0.474