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(-22174.0733186205
+ ,-65514.4201467722
+ ,-31749.2836197642
+ ,-41089.9671648775
+ ,8913.27252977982
+ ,-73285.4527940576
+ ,164155.980754944
+ ,-31956.3824633743
+ ,34623.6990660573
+ ,-25622.4644569208
+ ,14280.0440464267
+ ,13742.0144898235
+ ,-29146.6235586834
+ ,-6677.81800278516
+ ,29222.9909789321
+ ,1212.6140306245
+ ,61233.8856063561
+ ,-12281.6494038646
+ ,49507.1601527336
+ ,-65921.4798134687
+ ,-39464.6438925566
+ ,-10881.2836778774
+ ,149032.224655831
+ ,10715.4049794051
+ ,-92892.8532286331
+ ,-35688.1915019428
+ ,-7834.73741913782
+ ,24020.2347149277
+ ,23893.2089848946
+ ,996.445998931713
+ ,16733.8934399229
+ ,-13444.292008359
+ ,-61253.6462167768
+ ,16011.7384483569
+ ,-38490.0301017568
+ ,42322.9126242022
+ ,22789.6719972466
+ ,58459.784888697
+ ,129349.666392193
+ ,-3923.69770560134
+ ,3708.9350673457
+ ,24000.2115240294
+ ,6017.1263486906
+ ,54327.8924528398
+ ,79638.3386225049
+ ,-26079.6137339359
+ ,49108.0182098117
+ ,701.915141388916
+ ,-25400.2703973621
+ ,16728.0803891364
+ ,188669.860924995
+ ,-11849.5697111485
+ ,-50510.2180139764
+ ,9819.74492009268
+ ,-50895.8352886698
+ ,-18884.7764188534
+ ,-1708.51547344574
+ ,79255.7932366256
+ ,-15521.2905553635
+ ,19400.7210217661
+ ,27676.9807059796
+ ,-21146.8295017261
+ ,148368.208845863
+ ,25870.3986053112
+ ,-65410.9542739143
+ ,184.859740348075
+ ,50676.7741841598
+ ,51146.2197885908
+ ,-13536.0588062538
+ ,12159.2548910263
+ ,10804.1977790229
+ ,406.742283656147
+ ,11403.6753399316
+ ,-56655.9037215655
+ ,-14998.837210188
+ ,-32755.5012806611
+ ,-32149.4329509596
+ ,-20646.0284558503
+ ,-21679.2130149269
+ ,-4810.73399743526
+ ,-25135.9681984947
+ ,-67837.2495484588
+ ,67670.3743271276
+ ,31970.4720635137
+ ,-12016.0778730759
+ ,-43292.6407132963
+ ,-16672.2720911035
+ ,2164.97266939947
+ ,115546.453819527
+ ,28632.0537537131
+ ,-10885.5819803695
+ ,-9712.53604354982
+ ,26256.6967254796
+ ,-50488.888220711
+ ,4355.38436700417
+ ,128176.443082755
+ ,62854.5124073621
+ ,-104803.921479518
+ ,43290.1186345225
+ ,-73231.6182081281
+ ,2824.484449738
+ ,34615.5271425429
+ ,34771.1362420388
+ ,-31240.4833464949
+ ,-49723.0208183059
+ ,-48779.1075491712
+ ,-9981.26780165581
+ ,-13155.3097220372
+ ,-75.2769316203311
+ ,10973.3258078059
+ ,-38439.1752054493
+ ,3899.25475877268
+ ,-65434.8644392989
+ ,25717.6610599391
+ ,-88086.3100327001
+ ,14186.395868727
+ ,24885.7405405325
+ ,102336.017251249
+ ,-65072.5368737942
+ ,11487.8836818464
+ ,8520.24049354414
+ ,258.493830518036
+ ,9930.23067658956
+ ,-71762.1944351639
+ ,28513.1179917278
+ ,20014.6355498214
+ ,25737.2347205276
+ ,-44752.9870757414
+ ,-448.642001897418
+ ,2993.89713048288
+ ,1845.30232942032
+ ,-38471.9470745631
+ ,787.99689894524
+ ,-14006.4123396862
+ ,-51104.2476563812
+ ,49388.3934831227
+ ,6858.41055678786
+ ,47773.8791888714
+ ,-43879.9413453847
+ ,-31112.8206118184
+ ,-12572.3172169611
+ ,-8705.87009966602
+ ,18238.6937648534
+ ,50335.3830879798
+ ,-21087.5496853614
+ ,-4881.97790198983
+ ,-31377.3658191807
+ ,-55496.172899493
+ ,-5663.49935213705
+ ,-12374.6661555832
+ ,24125.8543348396
+ ,-76030.1026552092
+ ,21055.1425938814
+ ,68273.1558238773
+ ,3297.9576097012
+ ,2290.49600626874
+ ,-13072.8523040384
+ ,9087.45158297962
+ ,-40468.3536208243
+ ,42582.8941433197
+ ,77519.4999936401
+ ,-38885.4898012143
+ ,11389.2718186839
+ ,81323.1021657196
+ ,-19761.3194086614
+ ,-8084.38935389612
+ ,-31134.1752921568
+ ,-11898.787218065
+ ,-2438.6256275763
+ ,131316.755579522
+ ,102377.34835144
+ ,-76705.0364397074
+ ,88401.1389555724
+ ,7569.03796846791
+ ,-113565.91278936
+ ,52156.9188777929
+ ,-23631.3943451508
+ ,12109.7509957378
+ ,-47130.7186879767
+ ,63997.3911050083
+ ,7844.14890647522
+ ,3214.94590719668
+ ,-1625.12192002571
+ ,3662.37594364925
+ ,27127.0529558201
+ ,-8816.03048885501
+ ,13850.612663865
+ ,723.58852314165
+ ,26415.0234002462
+ ,-16773.8792938964
+ ,20629.8725326808
+ ,23975.5482476192
+ ,2193.90128575229
+ ,-30480.2483752256
+ ,-4208.94994533028
+ ,-2128.36464858608
+ ,-11517.0078917519
+ ,-42003.6388603963
+ ,-17355.6295867855
+ ,-56093.6611433497
+ ,-15828.858503493
+ ,-34951.5240440239
+ ,45094.6000074401
+ ,20512.0958023457
+ ,-5262.00477562848
+ ,-31467.061639733
+ ,-3203.81363734461
+ ,81858.9959734905
+ ,34932.8308247374
+ ,16617.3689069423
+ ,32953.8945664401
+ ,27590.3450992406
+ ,-29377.9783146962
+ ,2870.94667999696
+ ,-34443.1705068887
+ ,-31990.8031770713
+ ,-11285.8037289137
+ ,-14437.4187634379
+ ,-13077.3137519746
+ ,17670.8984670355
+ ,-19555.1505680758
+ ,-15305.9602183968
+ ,-18079.6623058575
+ ,-24433.5206301374
+ ,-30892.7924327274
+ ,33599.2600671999
+ ,10519.5391237714
+ ,-65095.703470381
+ ,-17380.945788503
+ ,-36660.4459738912
+ ,-23915.2515164412
+ ,-1609.58246893128
+ ,-13154.8715081186
+ ,-20490.1568736072
+ ,-44724.3555818464
+ ,-29818.5614425096
+ ,68758.1443165449
+ ,-39257.6273241237
+ ,-11347.1300388659
+ ,-45931.677718483
+ ,5857.42922222334
+ ,-4090.95696311474
+ ,-31297.6151854823
+ ,-27856.3862580703
+ ,-16940.8246172993
+ ,-14123.5076512191
+ ,316.512111881145
+ ,14737.8074894244
+ ,11731.1004455149
+ ,-24997.6132012423
+ ,41510.0411701551
+ ,-20152.916574643
+ ,-5045.15084928468
+ ,14118.9665222122
+ ,10762.8785843055
+ ,3052.28067892243
+ ,-27737.3787426975
+ ,15359.2120181293
+ ,194.92286943461
+ ,-9194.90742758841
+ ,-24638.0818939454
+ ,-16657.5524323952
+ ,7756.43463480719
+ ,-27846.0516585165
+ ,-31908.9482356715
+ ,25.3824457395725
+ ,-38036.3215842133
+ ,-23340.2731876647
+ ,32033.362105124
+ ,-32384.0271948151
+ ,-805.648638397822
+ ,-7287.99569912314
+ ,29161.2778818265
+ ,10779.2214583833
+ ,-1134.58632095227
+ ,-10113.9473659142
+ ,-1061.60621167305
+ ,-5851.43732656935
+ ,909.245691722282
+ ,-3147.05725780949
+ ,-14849.0946164161
+ ,13582.706935917
+ ,18671.7295102658
+ ,13959.0740133436
+ ,-1136.49336417665
+ ,-35895.2204349362
+ ,1618.36336487802
+ ,-53985.3198206092
+ ,-2727.67525559482)
> #'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/1oros1356018342.tab")
>
>
>
> proc.time()
user system elapsed
0.353 0.095 0.428