R version 2.13.0 (2011-04-13)
Copyright (C) 2011 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: i486-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(-45.03512967
+ ,-19.98355167
+ ,-0.074551362
+ ,39.39682555
+ ,72.98801962
+ ,86.25153542
+ ,81.85954852
+ ,74.94478284
+ ,69.70723837
+ ,64.50633009
+ ,53.75492821
+ ,49.41639653
+ ,45.07885206
+ ,41.80072257
+ ,39.84239199
+ ,28.4088146
+ ,23.53761382
+ ,15.42878963
+ ,10.48234204
+ ,-3.945293842
+ ,-11.12046172
+ ,-13.58078497
+ ,-12.97377734
+ ,-13.19251011
+ ,-16.30530139
+ ,-17.50622793
+ ,-6.990463307
+ ,-9.322066281
+ ,-13.79719762
+ ,-16.56337105
+ ,1.808042385
+ ,24.51609202
+ ,28.05684729
+ ,29.98667024
+ ,31.7491623
+ ,32.17105108
+ ,19.84045358
+ ,27.15438991
+ ,21.19110504
+ ,10.45659524
+ ,14.45270708
+ ,14.26168913
+ ,22.40533295
+ ,20.81234059
+ ,11.35697162
+ ,7.396648359
+ ,-4.4260515
+ ,-19.62293789
+ ,-22.24364508
+ ,-36.12970874
+ ,-40.23557131
+ ,-41.32955088
+ ,-42.61066025
+ ,-39.85315902
+ ,-41.61446948
+ ,-41.46290975
+ ,-40.66778511
+ ,-47.54584154
+ ,-55.46550672
+ ,-45.12780439
+ ,-44.89406915
+ ,-31.81775621
+ ,-37.18690953
+ ,-36.92246132
+ ,-34.59565478
+ ,-34.43716634
+ ,-35.79253531
+ ,-32.55285857
+ ,-32.35179244
+ ,-46.01198784
+ ,-43.93766758
+ ,-40.57621752
+ ,-36.67317698
+ ,-32.85132473
+ ,-30.05323848
+ ,-37.48083784
+ ,-37.37085032
+ ,-35.70444597
+ ,-34.59447672
+ ,-30.42114367
+ ,-37.66060776
+ ,-37.78723817
+ ,-34.83962726
+ ,-34.441541
+ ,-29.56917689
+ ,-21.52752574
+ ,-22.10764791
+ ,-21.1996348
+ ,-19.40845899
+ ,-14.83412046
+ ,-9.591482108
+ ,-13.24284746
+ ,-13.10710127
+ ,-9.684261822
+ ,-9.502994594
+ ,-10.09991752
+ ,-7.539454667
+ ,-2.414640805
+ ,-4.853135952
+ ,0.19937446
+ ,4.499416857
+ ,1.690629202
+ ,5.642170673
+ ,3.454114333
+ ,-1.318037127
+ ,3.151328839
+ ,-4.267330871
+ ,-12.17812947
+ ,-2.542291957
+ ,63.11243032
+ ,55.74843222
+ ,46.14756047
+ ,40.21796844
+ ,38.82596328
+ ,34.38741333
+ ,23.65480489
+ ,7.292488952
+ ,7.663847594
+ ,9.140197061
+ ,11.75906942
+ ,11.50170778
+ ,6.124547232
+ ,3.254315386
+ ,-3.566410062
+ ,-10.78713551
+ ,-9.808848164
+ ,-10.49293742
+ ,-18.15920218
+ ,-12.45120734
+ ,-9.002572686
+ ,-24.25492524
+ ,-25.6409889
+ ,-15.91515131
+ ,-19.37541977
+ ,-22.82585271
+ ,-16.81683414
+ ,-17.52368391
+ ,-16.04936365
+ ,-7.213653999
+ ,-8.953191147
+ ,-5.417481494
+ ,-6.643106439
+ ,-11.23699468
+ ,-5.395343534
+ ,-1.775447434
+ ,12.57607577
+ ,12.8018951
+ ,8.101114686
+ ,15.93187005
+ ,14.64088862
+ ,21.28948674
+ ,18.56281979
+ ,14.03021135
+ ,8.577822264
+ ,-6.029996451
+ ,0.287888707
+ ,1.431514269
+ ,9.469198332
+ ,-1.803940333
+ ,-6.690936406
+ ,1.639818954
+ ,8.420080711
+ ,18.77460206
+ ,18.74793512
+ ,6.566953605
+ ,8.461091035
+ ,2.465118786
+ ,4.719640139
+ ,7.379115785
+ ,11.99403933
+ ,1.812966486
+ ,-2.220537837
+ ,-4.686802595
+ ,-3.953067353
+ ,-8.113390613
+ ,-14.16084367
+ ,-14.68751062
+ ,-16.76560358
+ ,-19.06651185
+ ,-21.62584791
+ ,-17.4742699
+ ,-8.549492574
+ ,-10.89893831
+ ,-11.70578808
+ ,-5.831449559
+ ,-8.238299334
+ ,1.461724798
+ ,3.715222415
+ ,-2.979744364
+ ,-6.574711142
+ ,-15.80730132
+ ,-17.6022681
+ ,-18.01010508
+ ,-7.255565462
+ ,-5.519837544
+ ,-9.078113331
+ ,-6.14732144
+ ,-3.078924414
+ ,-0.786761395
+ ,-17.60536631
+ ,-17.41914479
+ ,-24.33292327
+ ,-22.15461765
+ ,-16.11691533
+ ,-10.38118741
+ ,-23.51562414
+ ,-62.02903731
+ ,-59.87649037
+ ,-56.54472954
+ ,-52.19907477
+ ,24.36040088
+ ,101.2410462
+ ,72.18000973
+ ,66.32173394
+ ,69.88122785
+ ,67.40797959
+ ,72.56546256
+ ,57.7100936
+ ,48.87450527
+ ,47.7933959
+ ,40.2450287
+ ,45.65496141
+ ,45.99363268
+ ,55.13029301
+ ,52.24719096
+ ,45.11257158
+ ,39.63840918
+ ,33.45929248
+ ,27.6810534
+ ,23.94158931
+ ,20.63969383
+ ,23.72191173
+ ,13.86261221
+ ,15.29634745
+ ,4.268766361
+ ,-24.58333048
+ ,-34.06241064
+ ,-37.87019283
+ ,-44.19386162
+ ,-27.34440416
+ ,-19.14439829
+ ,-53.41623924
+ ,-116.529214
+ ,-59.75999419
+ ,-84.51589373
+ ,-52.87718593
+ ,40.79150421
+ ,57.32810975
+ ,61.08455071
+ ,49.21523301
+ ,49.51622608
+ ,21.30358093
+ ,7.969016343
+ ,-10.58521929
+ ,23.59677942
+ ,12.88799177
+ ,26.25421346
+ ,19.85922842
+ ,16.34844809
+ ,11.81386523
+ ,19.10489492
+ ,10.34159178
+ ,-2.121583504
+ ,-7.901669139
+ ,-6.855063695
+ ,-2.229280893
+ ,0.221328169
+ ,1.857037822
+ ,7.67492298
+ ,0.01363078
+ ,10.99579389
+ ,16.44435548
+ ,20.69684762
+ ,29.50486073
+ ,-1.773104375
+ ,-23.92823589
+ ,12.62416493
+ ,35.7508984
+ ,29.15200107
+ ,31.94805811
+ ,28.66298165
+ ,28.65406614
+ ,30.60761855
+ ,37.76506499
+ ,28.69682582
+ ,24.20386999
+ ,14.19111524
+ ,13.8020717
+ ,20.96745231
+ ,32.04564833
+ ,30.30218063
+ ,16.43401452
+ ,5.830217688
+ ,31.63506825
+ ,26.32030257
+ ,19.90555515
+ ,15.96408012
+ ,25.83931453
+ ,17.36619413
+ ,11.46726026
+ ,9.611946089
+ ,13.22884404
+ ,-5.345227034
+ ,0.431158964
+ ,14.95688697
+ ,12.38069536
+ ,29.1311583
+ ,27.64408916
+ ,16.48091388
+ ,11.43249188
+ ,5.963338569
+ ,14.82765892
+ ,22.84069937
+ ,17.78829202
+ ,24.59723754
+ ,27.05777345
+ ,16.9687847
+ ,22.67277592
+ ,16.33729718
+ ,19.40070339
+ ,18.16813147
+ ,10.89592522
+ ,4.58613209
+ ,11.23476674
+ ,0.784479926
+ ,-3.490669682
+ ,-0.553899762
+ ,0.71645341
+ ,-10.10421724
+ ,-28.54858083
+ ,-0.038739435
+ ,-2.030708066
+ ,-15.3710863
+ ,-16.75616275
+ ,-38.54899073
+ ,-57.01308016
+ ,-31.31000308
+ ,-68.09283115
+ ,-87.58357513
+ ,-50.61728037
+ ,-36.44793267
+ ,-15.01033993
+ ,-4.904483893
+ ,9.859964311
+ ,15.16591168
+ ,-3.361541556
+ ,-25.98316288
+ ,-32.06326678
+ ,-61.312402
+ ,-49.55901398
+ ,-25.62635727
+ ,-28.87574821
+ ,-16.79651019
+ ,-22.89555365
+ ,-25.77662649
+ ,-33.25662079
+ ,-28.72590197
+ ,-29.70306251
+ ,-50.76413553
+ ,-70.04806039)
> #'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/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/wessaorg/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/wessaorg/rcomp/tmp/1gcvj1324133758.tab")
>
>
>
> proc.time()
user system elapsed
0.290 0.023 0.304