R version 2.12.0 (2010-10-15)
Copyright (C) 2010 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(27193.6309360353
+ ,-9144.89621524469
+ ,3135.67819224758
+ ,-51794.7932133165
+ ,30821.7701533084
+ ,-12766.3763572889
+ ,90479.9714238749
+ ,4106.47451153601
+ ,10684.9908296095
+ ,-14885.0943729161
+ ,23115.7243993552
+ ,33926.3799605782
+ ,-7130.66170044977
+ ,-1699.97007058423
+ ,28080.860136826
+ ,21946.760901923
+ ,-51043.2254530336
+ ,20303.4682191928
+ ,26548.9751025278
+ ,-9327.81492779207
+ ,-20179.7489355775
+ ,873.957735280959
+ ,124480.122795846
+ ,27000.7927422642
+ ,-43361.204049651
+ ,-74871.4845681525
+ ,-36566.7279775128
+ ,-5592.51669223838
+ ,34558.7786213982
+ ,6430.53378026173
+ ,24409.6482744548
+ ,10068.6475890679
+ ,-17422.1651884165
+ ,43852.5673512091
+ ,-8584.79425443908
+ ,32575.8855971485
+ ,29359.3799118769
+ ,37773.688922587
+ ,76917.309633031
+ ,8659.1313307631
+ ,13464.2298518783
+ ,31655.9282682404
+ ,-41790.3232992451
+ ,11228.8632037495
+ ,21972.7429286264
+ ,1429.67989283895
+ ,-41942.2816847124
+ ,8901.3678190403
+ ,-7097.93536011859
+ ,-30796.762416752
+ ,26031.8670171294
+ ,-1398.16731327408
+ ,-29917.0488056638
+ ,-46850.6805556887
+ ,-37163.385334015
+ ,1559.19227545363
+ ,-219.040013050795
+ ,63628.8847299366
+ ,-595.827202252845
+ ,5052.18111469776
+ ,-338.922304709106
+ ,-4702.21477312757
+ ,-34732.5272567292
+ ,14653.6892020834
+ ,-66875.6996034105
+ ,17191.5167368552
+ ,33211.7298821244
+ ,-419.993627458232
+ ,-23707.1847936737
+ ,-10078.7062251652
+ ,7114.58829966119
+ ,43765.1521865971
+ ,25757.4459761395
+ ,-36933.2912635153
+ ,-40228.6405017992
+ ,-20146.1844343226
+ ,-23830.7021092332
+ ,-20361.9979126654
+ ,-7818.33880020864
+ ,2875.55186125761
+ ,7212.48317428334
+ ,-34487.174574341
+ ,70243.8020432567
+ ,38628.333827384
+ ,7733.97029832328
+ ,-28485.209964136
+ ,6.35859257659635
+ ,-7233.76486530655
+ ,64285.31615657
+ ,22011.6078562232
+ ,9985.007591899
+ ,-387.67667823421
+ ,-5829.26850447256
+ ,-8250.14790981181
+ ,17002.4136957521
+ ,32174.7032534975
+ ,50866.2133204234
+ ,-123507.923535421
+ ,29552.2412245156
+ ,-31691.6914277631
+ ,2505.6178537957
+ ,-8596.13376156402
+ ,37662.2405414321
+ ,-359.973151498545
+ ,2176.7438192962
+ ,7078.52292323207
+ ,-39542.2584454612
+ ,-19442.4586030109
+ ,-3286.50968553719
+ ,8902.75345087029
+ ,-1612.25821770359
+ ,5575.6338956419
+ ,-25081.129760723
+ ,2968.79383621611
+ ,-37222.3417227809
+ ,2091.73828523203
+ ,7656.58394952746
+ ,44968.7539051454
+ ,-15325.1114716018
+ ,-28022.5905210083
+ ,-8796.34508771337
+ ,-28093.2660974918
+ ,-43411.7236878598
+ ,-50563.3803286893
+ ,59303.4997230226
+ ,16866.4125180556
+ ,12181.4248187124
+ ,-33635.4128168653
+ ,18821.2427484134
+ ,8205.07967698097
+ ,-5698.52779708578
+ ,-25320.7385452767
+ ,17857.9041041584
+ ,-62059.6623601455
+ ,-22562.2473217708
+ ,54943.5751167768
+ ,8888.55875227353
+ ,43768.1617591206
+ ,-26164.6247749893
+ ,-5519.18780988977
+ ,-13329.2562724282
+ ,-25426.6008345856
+ ,12379.2317407942
+ ,-5951.72390391005
+ ,2102.7778361849
+ ,-32285.7543911336
+ ,-5930.45658404779
+ ,-24475.5995120935
+ ,-659.416576002189
+ ,-54.3627997370153
+ ,32285.9554998445
+ ,3926.51074590123
+ ,-6918.03921375841
+ ,39558.0793611913
+ ,19657.5351044016
+ ,12875.2545345818
+ ,29461.8544114165
+ ,10824.4533966365
+ ,-14029.7330434209
+ ,-1804.4259000589
+ ,6786.83017333844
+ ,-18878.5757102982
+ ,-10810.0450064891
+ ,14516.7628623267
+ ,-22070.8339246538
+ ,28702.8379813422
+ ,-17071.6921161668
+ ,12620.7636780781
+ ,15565.4050924249
+ ,87693.3088463561
+ ,11234.6570680812
+ ,-23401.8730454737
+ ,20548.5086879546
+ ,4517.48726119538
+ ,-77942.4677046269
+ ,18024.2299697292
+ ,-29616.3536668418
+ ,12790.1641775183
+ ,-15383.7546865028
+ ,40151.2161415634
+ ,-25777.6444992236
+ ,-42686.3912322241
+ ,12912.2077570913
+ ,14057.2481387402
+ ,18662.5909608583
+ ,9112.70875682994
+ ,20103.8074392483
+ ,20363.2331671825
+ ,-1302.45233651642
+ ,12200.7525792307
+ ,28349.0100259517
+ ,18555.6596793845
+ ,-26754.458229615
+ ,-42585.3273039861
+ ,2524.89617215639
+ ,-10889.5570631085
+ ,-5655.22101399079
+ ,-4205.43759112233
+ ,-25494.4349921278
+ ,-20075.9299732616
+ ,1166.20409271797
+ ,3769.07838531972
+ ,19249.1643657198
+ ,4622.0150064217
+ ,-30455.7240687065
+ ,-4542.91141117206
+ ,-10842.4460641622
+ ,53863.7655900813
+ ,27130.3278537252
+ ,12338.6136614205
+ ,6534.35379212919
+ ,16393.4444936018
+ ,-3552.25328625709
+ ,13072.0286154999
+ ,-31667.0626334799
+ ,-14414.8407957035
+ ,-26948.4243759803
+ ,-3458.67284488021
+ ,4866.85412509118
+ ,33020.1414739577
+ ,-13553.315522891
+ ,-35973.6412889749
+ ,-67124.0817471844
+ ,-707.858525690612
+ ,4523.64506199332
+ ,-10102.8473569386
+ ,13458.8626981102
+ ,-35130.0980595255
+ ,-31883.6519562292
+ ,-50031.0415010269
+ ,-12610.6255957191
+ ,-13011.584985004
+ ,-34361.6104563112
+ ,-7660.47287781584
+ ,-27674.4110529388
+ ,-10860.8617360019
+ ,57094.2670758909
+ ,-11430.7676641997
+ ,-11329.3352082015
+ ,-20782.4191461034
+ ,4734.06824397621
+ ,-26551.3572135672
+ ,-17708.6541070574
+ ,-6946.98421886945
+ ,-3232.62594395472
+ ,-7392.50630348212
+ ,-33718.8572159232
+ ,25897.6958331006
+ ,8216.68235905865
+ ,-8673.30555663826
+ ,14661.7942961765
+ ,-1350.87460982862
+ ,12434.0642244371
+ ,-309.854740443767
+ ,-3179.28169316589
+ ,10177.51743105
+ ,-10498.5761338311
+ ,17260.9264657642
+ ,13804.7486587684
+ ,6507.64036613557
+ ,-8452.01882496037
+ ,-4035.18560347989
+ ,11734.4207953785
+ ,-9474.13984560676
+ ,-12445.9537440748
+ ,9300.05521443232
+ ,-20389.5767710507
+ ,-3534.44447075847
+ ,49835.9747366288
+ ,-15187.7120220769
+ ,-17766.4302292592
+ ,8314.81169633009
+ ,7319.52451669765
+ ,3654.50260377349
+ ,8138.39223531805
+ ,-16623.394799953
+ ,9638.13965500108
+ ,8639.68552520659
+ ,-8413.93383480451
+ ,15682.3627328455
+ ,-3168.34714634059
+ ,19344.5168249153
+ ,3030.60470120573
+ ,14630.0179897846
+ ,11667.6900101622
+ ,-25145.920529864
+ ,-546.237225972644
+ ,-22224.5540907133
+ ,3335.59949325359)
> #'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/www/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/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/www/rcomp/tmp/15zyr1324663303.tab")
>
>
>
> proc.time()
user system elapsed
0.420 0.020 0.413