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(60.1055021367521
+ ,7.90731258924438
+ ,-1.62949188711269
+ ,-1.52395755944974
+ ,-1.56642760660441
+ ,-3.78955456643666
+ ,54.2004570745614
+ ,-32.1635106722219
+ ,-30.4020143785102
+ ,33.7236460413397
+ ,-53.2955718993481
+ ,-14.1045987620579
+ ,7.82365037164504
+ ,-23.4921574619217
+ ,-39.2028497955702
+ ,-54.4387265527371
+ ,-63.1601181060856
+ ,-14.48551331217
+ ,-6.62855877161644
+ ,-37.2510501532606
+ ,7.17046288923711
+ ,-12.4675813866814
+ ,23.6426683154577
+ ,-1.0887918864747
+ ,-51.6623259933685
+ ,-35.5122515223484
+ ,5.73025876853075
+ ,-4.40211395441639
+ ,-19.4014405155752
+ ,1.52063759742936
+ ,20.3016343284285
+ ,21.1295525782726
+ ,32.2990417939228
+ ,25.4055202815389
+ ,16.2498176329084
+ ,-24.0171540733444
+ ,-24.7816209458666
+ ,-15.6228583221851
+ ,-11.7649527027905
+ ,15.3856144718968
+ ,-5.43160372391736
+ ,-13.8785890382636
+ ,24.5441173885148
+ ,28.9999634713956
+ ,1.82338154604037
+ ,9.40807037018644
+ ,3.02766433004112
+ ,-4.92427593400538
+ ,-9.91460921120554
+ ,-41.1941808015788
+ ,4.53720023967503
+ ,23.2702181643558
+ ,-20.0749351322602
+ ,-20.5090421219108
+ ,10.7596261151817
+ ,24.2694718389698
+ ,35.9265649976673
+ ,32.3183244265131
+ ,37.8729236732796
+ ,36.1102685433414
+ ,50.3675863667696
+ ,19.6745378760142
+ ,10.7696217062501
+ ,-6.48780000100203
+ ,-27.566236037287
+ ,-51.733367569896
+ ,-6.99229036259692
+ ,8.94622588610736
+ ,8.8801878265719
+ ,-23.8105094880509
+ ,-0.27886280597977
+ ,-15.4532983890202
+ ,-10.4670754712891
+ ,-30.767386022288
+ ,-18.4731603002825
+ ,8.49149930995566
+ ,-40.768910811547
+ ,-21.2330914097927
+ ,-22.8815421056147
+ ,22.7883322578464
+ ,3.88746760486373
+ ,34.5571102251398
+ ,16.9861404560139
+ ,10.8770645540691
+ ,-23.97306919561
+ ,-13.3654801542449
+ ,12.4854386129
+ ,-15.1738167359828
+ ,21.2131829788488
+ ,0.785421269383164
+ ,-19.0081826996459
+ ,-25.5088561804516
+ ,-0.0938131575317982
+ ,16.8883581186024
+ ,43.7088648495929
+ ,14.5420441737
+ ,-11.2401118352251
+ ,-29.3691955168528
+ ,-20.5986856349709
+ ,4.57739767359607
+ ,11.0297602111226
+ ,14.7366850764681
+ ,-23.5318661749727
+ ,-4.92153194813298
+ ,15.3266292277048
+ ,29.0892613513254
+ ,54.2945909415411
+ ,31.1167715024629
+ ,48.848504485953
+ ,50.6547888333779
+ ,6.2595864768499
+ ,0.125927575412106
+ ,-29.312377188484
+ ,-14.2127746927911
+ ,-16.3218999684809
+ ,-34.7892329719472
+ ,-53.2988006826901
+ ,-14.1234721396601
+ ,-19.9040781129979
+ ,34.5838100011579
+ ,-2.72543241287417
+ ,-14.1541234733052
+ ,-30.486335606016
+ ,-56.7223916467779
+ ,-17.0975671984976
+ ,6.781804301048
+ ,-4.19919131488905
+ ,5.91814919088711
+ ,5.25602160959932
+ ,29.7975342134231
+ ,28.0990602322143
+ ,-5.18018083637611
+ ,-0.795121167534489
+ ,-34.2181422474168
+ ,41.4161642631596
+ ,-24.5337303698354
+ ,-19.7305579893741
+ ,35.1280775837478
+ ,-13.5764651302848
+ ,8.64808286659621
+ ,-21.862534337187
+ ,39.6445869726741
+ ,30.126766094766
+ ,59.3669121365592
+ ,28.0532510044074
+ ,21.594556562414
+ ,-23.9849538457074
+ ,-29.9091507995927
+ ,-27.2760393915765
+ ,4.60291154331912
+ ,-22.207181163603
+ ,-34.7437395927311
+ ,-26.1647022086715
+ ,-10.1423295150425
+ ,-8.79803553054023
+ ,13.8844258240709
+ ,4.86911594589952
+ ,-17.8768094177293
+ ,-4.53099911344941
+ ,-8.67588325487247
+ ,14.5530699723015
+ ,-25.4444931791877
+ ,-18.5037463376605
+ ,28.668939513417
+ ,-12.8427688945945
+ ,-12.6739358630883
+ ,35.0655715701193
+ ,10.4919110743164
+ ,34.7998218147865
+ ,26.382577058531
+ ,-31.4502955788973
+ ,-13.3500101233498
+ ,-4.94676270306798
+ ,10.2147632128882
+ ,-20.151738608337
+ ,-21.2003841542007
+ ,-3.84196213907836
+ ,2.47718082937701
+ ,26.1175119769031
+ ,1.30620107589158
+ ,15.9763490593784
+ ,-4.29169039850666
+ ,-5.68239415097673
+ ,-5.66576469368721
+ ,-30.3324989384452
+ ,38.7297333632328
+ ,-47.8379972901823
+ ,3.32194019828319
+ ,-2.61471453477384
+ ,3.49949131977644
+ ,-10.9947350546675
+ ,18.5056877423781
+ ,-1.72721431457239
+ ,27.7345066494545
+ ,-23.8435940790949
+ ,12.4567135067414
+ ,-20.9705873196891
+ ,22.355040813274
+ ,-21.6690535061908
+ ,-14.5841502838757
+ ,-6.94826188821833
+ ,-3.84430073495002
+ ,-2.59217522043883
+ ,-2.60607963393284
+ ,-7.14857308864231
+ ,-11.1339318760226
+ ,18.4637905480442
+ ,10.4316061419681
+ ,20.1113949064753
+ ,17.5858171258652
+ ,-7.2877098892576
+ ,-10.7197948009177
+ ,-7.88901795592506
+ ,4.23622047291923
+ ,-9.49292694199659
+ ,14.0989998155771
+ ,-2.34044558003501
+ ,3.813803754015
+ ,2.05839351282185
+ ,4.05299785702346
+ ,-10.8448621371432
+ ,50.8530123243816
+ ,15.264595051527
+ ,-18.2315125326971
+ ,14.8577099312466
+ ,10.891750422089
+ ,-27.6845314333725
+ ,-22.2969023734349
+ ,-20.4482562506962
+ ,19.0497844116101
+ ,-9.46063640030042
+ ,-13.0326213373596
+ ,-8.54900594118786
+ ,57.140945046847
+ ,19.4241422121533
+ ,-26.830983001452
+ ,-2.37578942277605
+ ,-4.84198424550806
+ ,-10.4303433130984
+ ,-16.6855972708549
+ ,-8.53538924668408
+ ,-1.01146096407871
+ ,11.5303204357248
+ ,13.9952481889759
+ ,-12.3228254730913
+ ,24.0420580332989
+ ,39.9670595996923
+ ,-4.53148096219155
+ ,20.7906344047346
+ ,-6.63180905654662
+ ,-32.6830885253269
+ ,-13.2139532074752
+ ,21.0106300150749
+ ,32.2197158912835
+ ,19.9623395047617
+ ,10.7170144375114
+ ,-7.98705517865272
+ ,32.4425921860229
+ ,36.6868062570488
+ ,-3.43498511252898
+ ,8.7957703561168
+ ,-2.17704279311778
+ ,12.9133457304909
+ ,-7.73153139426097
+ ,7.1130728233876
+ ,-16.1825690886617
+ ,-11.5200705911252
+ ,-26.2053872685377
+ ,-25.1972823162915
+ ,5.07094486441963
+ ,33.5212777658004
+ ,5.46310060489913
+ ,-19.9485992588831
+ ,-25.5296990948981
+ ,1.53160101555767
+ ,-16.2678565682633
+ ,6.81923857665561
+ ,-13.6219483259765
+ ,0.640501844910659
+ ,-21.4384195231802
+ ,-25.5863776186362
+ ,3.7569904008036
+ ,24.5166438609038
+ ,8.50949766564275
+ ,-8.87056277420987
+ ,-10.8181041432497
+ ,-41.8791487283652
+ ,-16.8891603417301
+ ,-9.79445373111042
+ ,14.5000023231531
+ ,-5.71068802221339
+ ,4.47717044894159
+ ,-19.497295919866
+ ,0.746187934139982
+ ,20.6244015950107
+ ,11.7211537811301
+ ,13.5315050255502
+ ,-26.309844364408
+ ,13.4761586991746
+ ,2.53401068221564
+ ,29.75308044594
+ ,9.0469611444048
+ ,-12.2870769641206
+ ,-12.5231294188193
+ ,1.32750816720568
+ ,16.3470572133829
+ ,33.4494240502
+ ,6.39577689338842
+ ,43.7772573402013
+ ,1.29568120726367
+ ,38.1354315202941
+ ,39.4594797370748
+ ,131.183597606572
+ ,7.17554561646182
+ ,15.2926260674461
+ ,-37.5186845873162
+ ,-26.9732628980084
+ ,-35.786051835723
+ ,-14.023070258651
+ ,-20.9817713628479
+ ,-23.4088075684418
+ ,-18.8775860172879
+ ,-38.7087029897747
+ ,-15.7832767292801
+ ,5.9563156717054
+ ,-7.05804332137131
+ ,-29.8142497407767
+ ,-29.3245999066231
+ ,-50.0167531814983
+ ,20.360623535205
+ ,33.1065325690961
+ ,23.5299909998537
+ ,-20.7325694682676
+ ,-2.54691080969121
+ ,0.941329873098425
+ ,-12.5913300637409
+ ,-7.62474932805799
+ ,38.2574669634931
+ ,-22.4060624059783
+ ,-61.8041846234416
+ ,-30.8685789395701
+ ,10.9344688016622
+ ,-10.1262863319272
+ ,31.9257625815407
+ ,-10.2076480814758
+ ,-1.09025119130797
+ ,-8.30135673315863
+ ,-45.956006137365
+ ,13.5246718564608
+ ,-1.02069859380583
+ ,18.5098441840985
+ ,-24.7842696724545
+ ,-7.76045318964293
+ ,-32.8172361644375
+ ,54.0387263716307
+ ,3.62731714551694
+ ,13.0254176932274
+ ,-9.99376180617435
+ ,-2.36668994843342
+ ,17.7822391525889)
> #'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/11bqo1352551459.tab")
>
>
>
> proc.time()
user system elapsed
0.390 0.071 0.441