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")