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(-2.8383455253
+ ,-6.8876476771
+ ,-7.4106697959
+ ,21.5609086781
+ ,-14.7163972633
+ ,-8.9731065875
+ ,-21.3856911445
+ ,-12.92515467
+ ,29.2447935282
+ ,3.2344204049
+ ,-35.2373838504
+ ,-27.1792379163
+ ,5.6337793547
+ ,-17.4188046701
+ ,1.57717113
+ ,14.7492731318
+ ,-8.6464544896
+ ,-28.2505458756
+ ,11.8466034378
+ ,-4.2815086526
+ ,-19.5294728073
+ ,-9.7870674112
+ ,3.9260353751
+ ,-10.6842063204
+ ,5.2482378668
+ ,-8.2496164978
+ ,11.8185907956
+ ,13.5347210251
+ ,-8.3055882213
+ ,-11.4457118176
+ ,-29.7146224435
+ ,-2.9525507815
+ ,11.8343015352
+ ,-14.580699983
+ ,17.468430382
+ ,-18.3658451479
+ ,-12.4496913271
+ ,14.4134668292
+ ,14.7736363482
+ ,28.5434853104
+ ,5.6047909046
+ ,-20.0055017819
+ ,-11.8235293595
+ ,13.2232096387
+ ,42.9217520606
+ ,15.1990682348
+ ,5.4721970806
+ ,-1.235261552
+ ,6.2473801417
+ ,2.6208358575
+ ,-4.731176187
+ ,34.2228181964
+ ,-15.9938460107
+ ,13.4948790191
+ ,8.5358919008
+ ,-38.9718418159
+ ,9.3537516169
+ ,-0.9476791512
+ ,29.4611346487
+ ,-20.0530302742
+ ,5.187887602
+ ,1.0711050037
+ ,15.2581910924
+ ,10.1549289227
+ ,-24.470923332
+ ,27.0065923012
+ ,7.1923091618
+ ,13.2445018346
+ ,12.1883858068
+ ,-29.4688903527
+ ,6.8485379664
+ ,15.2470262084
+ ,18.1806960883
+ ,18.6627589331
+ ,15.5690757884
+ ,-3.8188078036
+ ,13.4365678512
+ ,-10.7144988358
+ ,17.2186220641
+ ,1.8802105698
+ ,24.7921510147
+ ,-13.5084923467
+ ,23.966532712
+ ,26.9724458943
+ ,11.1740372181
+ ,-2.4950325527
+ ,-21.2665295414
+ ,-13.0130569535
+ ,10.579067621
+ ,-15.5669323549
+ ,0.7161494212
+ ,26.6346510236
+ ,3.7208761669
+ ,-27.9710694652
+ ,-0.0648377608
+ ,-9.1023753862
+ ,-14.1195227024
+ ,-0.9888045718
+ ,23.994963672
+ ,6.1141151687
+ ,18.8590831063
+ ,-6.2679218578
+ ,33.654771004
+ ,-11.8338248695
+ ,-66.1273159327
+ ,-14.8034081555
+ ,4.7257859336
+ ,35.0184266599
+ ,41.5978086796
+ ,-50.0753579077
+ ,-50.4927006049
+ ,-44.4856366272
+ ,0.0336439267
+ ,-5.0427554882
+ ,9.8664792844
+ ,-30.5456405658
+ ,30.510595308
+ ,32.9930138008
+ ,4.9380784794
+ ,-17.486826193
+ ,-29.1683681672
+ ,2.5726588033
+ ,15.9187027322
+ ,-7.4464242839
+ ,-37.0097494808
+ ,12.1802755329
+ ,-24.857269276
+ ,0.8353015574
+ ,8.7395262687
+ ,37.1026630382
+ ,-28.3412120096
+ ,28.0745111985
+ ,-4.4937418387
+ ,6.7722682701
+ ,17.3390204789
+ ,-1.9768117774
+ ,-4.7802133527
+ ,-9.6924338679
+ ,5.2322440793
+ ,-6.1785460882
+ ,14.5541593128
+ ,9.4626062006
+ ,-7.1795635107
+ ,23.139950353
+ ,-15.3692470207
+ ,0.6380593989
+ ,-0.1913211067
+ ,8.393052097
+ ,-2.7043425142
+ ,19.3025817229
+ ,11.8590522423
+ ,13.737435535
+ ,-32.976809998
+ ,8.9321765586
+ ,-23.4072121248
+ ,29.1797829312
+ ,-6.4315902457
+ ,-33.6187541773
+ ,-12.7532638124
+ ,17.900629555
+ ,-28.6638737224
+ ,-7.9134852185
+ ,0.5440465541
+ ,1.5308076778
+ ,-9.9445935911
+ ,24.2138934862
+ ,34.2585254263
+ ,-21.6496089751
+ ,21.8993054602
+ ,-64.3898034075
+ ,3.8566750666
+ ,22.0351854485
+ ,-41.4050648243
+ ,-28.600778474
+ ,-1.7926413646
+ ,-23.0791094171
+ ,44.2911962949
+ ,-34.4859128744
+ ,15.9985201915
+ ,-13.0489016616
+ ,24.6440844032
+ ,8.4955651609
+ ,23.7684747276
+ ,2.5890443113
+ ,27.7934097507
+ ,4.4967994243
+ ,5.171841539
+ ,-46.4502832315
+ ,-1.0057205665
+ ,-21.0381984609
+ ,0.9399927234
+ ,13.5110981027
+ ,12.6978693833
+ ,19.9779995145
+ ,30.217075069
+ ,-23.2973535559
+ ,-37.1214968815
+ ,-1.3331763845
+ ,8.6701470333
+ ,-17.857403047
+ ,1.1282704284
+ ,17.2453755416
+ ,21.0867167816
+ ,2.929145428
+ ,6.8033064931
+ ,-32.4708151229
+ ,19.3329284734
+ ,43.7845158826
+ ,-23.5864717383
+ ,-31.6624837326
+ ,5.1618724628
+ ,-7.5894285805
+ ,-46.6677640237
+ ,-6.4590214655
+ ,8.6433795337
+ ,27.5144187137
+ ,2.7080226974
+ ,-0.8711790688
+ ,-38.3967541283
+ ,-40.8912582438
+ ,24.0155339282
+ ,110.9616414718
+ ,5.9051934629
+ ,-36.6386140834
+ ,-21.0086524619
+ ,-21.8505511409
+ ,52.5971924268
+ ,19.3857309698
+ ,33.592904279
+ ,1.0945412587
+ ,5.8081517202
+ ,-12.6016245649
+ ,48.2523678578
+ ,-45.1149045784
+ ,-19.4985759372
+ ,26.0414455706
+ ,-24.6417039855
+ ,-40.4089848418
+ ,36.0058194456
+ ,1.6296105786
+ ,-7.7212461123
+ ,-10.7484313744
+ ,12.9541166185
+ ,-12.8221559942
+ ,48.5900401558
+ ,-37.6556594764
+ ,-9.9746259919
+ ,7.5428874735
+ ,23.8640277893
+ ,18.2360952313
+ ,49.0302087067
+ ,-12.020615523
+ ,-38.1531654177
+ ,37.8849583281
+ ,-36.9571423385
+ ,-18.5873987221
+ ,-18.2247924757
+ ,7.7544651181
+ ,0.3562041314
+ ,-11.0810827941
+ ,36.1855810186
+ ,-17.1381672207
+ ,-14.1659765118
+ ,-13.647508575
+ ,-24.1415952183
+ ,4.538750917
+ ,12.2560450727
+ ,2.144174854
+ ,-6.6478122338)
> #'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('',RC.texteval('agostino'),'',sep=''))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,paste('',RC.texteval('anscombe'),'',sep=''))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,paste('',RC.texteval('jarque'),'',sep=''))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,paste('',RC.texteval('geary'),'',sep=''))
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/fisher/rcomp/tmp/1vosl1355751650.tab")
>
>
>
> proc.time()
user system elapsed
0.374 0.086 0.437