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(-3.11760101149508
+ ,0.0314095423110451
+ ,2.82620869209528
+ ,3.26387265584104
+ ,-1.45263709744899
+ ,-1.88348932266714
+ ,3.93863868429912
+ ,-1.59441138999828
+ ,-1.88329862900193
+ ,2.56646109614508
+ ,0.801769699893772
+ ,-0.196710790688073
+ ,0.636573305652221
+ ,0.692451451614239
+ ,-0.353645489751352
+ ,-0.0219820117331483
+ ,0.448428914340278
+ ,3.87178314070815
+ ,2.58748254820759
+ ,0.802533083030439
+ ,0.758692721056456
+ ,1.29012967077078
+ ,2.58441716838169
+ ,1.31747698733264
+ ,2.22848118596487
+ ,0.118860325165605
+ ,1.0372926466607
+ ,-1.04284071207008
+ ,0.559138014281356
+ ,0.0390243334045331
+ ,-0.594186433383495
+ ,-0.184903151197658
+ ,-1.11149063623154
+ ,0.569799207264144
+ ,-1.64202430275481
+ ,-5.90257345633603
+ ,-0.866817164637676
+ ,-1.77949067189796
+ ,1.77884407716565
+ ,1.41607509282467
+ ,0.954616002309845
+ ,-1.55957660718381
+ ,2.08528287184129
+ ,-0.206202869707291
+ ,-0.898546594920809
+ ,-4.59163412605
+ ,-2.42508979912194
+ ,0.0683991774524221
+ ,0.800952617186765
+ ,-2.01858608666736
+ ,-0.490631866380993
+ ,-0.111764505922894
+ ,-2.68477800765184
+ ,0.809386321558708
+ ,-2.51757108398172
+ ,1.37130487753543
+ ,-0.0923517617659263
+ ,0.916882834289958
+ ,-0.323702882863365
+ ,1.86873289872845
+ ,0.570716868083456
+ ,0.0223851483499508
+ ,-0.466440278448962
+ ,-0.370634890266963
+ ,0.564048311356834
+ ,1.09360035333709
+ ,1.89793032195701
+ ,3.32654536380641
+ ,-3.88091423781219
+ ,0.578839151225445
+ ,-3.449196578141
+ ,-0.323948285798518
+ ,1.46220553898166
+ ,0.845093066019571
+ ,0.273624586124044
+ ,3.11285623992386
+ ,-0.365942087919187
+ ,1.5488362723385
+ ,-1.84285245948429
+ ,-0.0260086189541596
+ ,0.424121948916667
+ ,3.22789371728898
+ ,0.308208809227862
+ ,-1.02477677459206
+ ,0.256431299478507
+ ,1.73171130609916
+ ,-0.223327636188002
+ ,0.662336718373708
+ ,1.41673022801113
+ ,0.787728044617952
+ ,-1.4826033949017
+ ,-0.00934603174746024
+ ,0.513187104398811
+ ,-0.285606991993591
+ ,-2.17892398401912
+ ,0.781685537460747
+ ,0.140519350734551
+ ,1.8158469109597
+ ,-0.159901087906952
+ ,-0.340573483908861
+ ,-1.3668114814765
+ ,1.18707146453032
+ ,2.58522068841896
+ ,0.410210237843217
+ ,1.43672737170409
+ ,-2.39717121644233
+ ,0.932990452643163
+ ,0.0588776925115655
+ ,1.40203554776461
+ ,-0.311586001104149
+ ,0.987859589625233
+ ,0.10292801173956
+ ,2.45174372432212
+ ,-1.99888326543019
+ ,-2.9367482002426
+ ,1.3271147856896
+ ,-1.54759871332326
+ ,0.98240207296779
+ ,-1.98791936604673
+ ,0.27493901740351
+ ,-1.33388698873322
+ ,0.304154405116597
+ ,-3.02389397058424
+ ,-1.12986310505213
+ ,-1.05943824530504
+ ,-0.865806131319397
+ ,-0.513911569999371
+ ,0.657837937398815
+ ,1.1070938222292
+ ,-3.03523672661142
+ ,1.75787926942027
+ ,-3.39549935808545
+ ,1.81702140891525
+ ,-2.00107980795329
+ ,-1.74079830137736
+ ,-0.194351716219724
+ ,0.640535211451566
+ ,0.468402482455295
+ ,-2.2551506775076
+ ,-1.45204943317969
+ ,-5.45372005985958
+ ,2.81092598360207
+ ,1.58878901071358
+ ,0.364109134913822
+ ,1.06882586947583
+ ,-4.25454724104455
+ ,1.98059128612218
+ ,-2.27529286469313
+ ,0.757020011545189
+ ,-0.116840102291911
+ ,-3.20880937956498
+ ,-1.52564528945141
+ ,1.80197704792237
+ ,3.90954420223143
+ ,1.45339800477955
+ ,-2.59446613585403
+ ,-0.00934603174746024
+ ,1.28833219642779
+ ,1.1070938222292
+ ,0.829427293903479
+ ,-0.604839934876992
+ ,0.31316350056888)
> #'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/1m2po1355995304.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.325   0.102   0.403