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(-14.5037298387093
+ ,21.199495967742
+ ,27.3672379032257
+ ,42.389818548387
+ ,23.6285282258065
+ ,-9.69727822580659
+ ,13.3736895161289
+ ,27.2188508064516
+ ,26.6253024193549
+ ,10.6672379032258
+ ,17.1962701612903
+ ,31.9285282258065
+ ,37.6679166666668
+ ,75.6711424731182
+ ,88.8388844086022
+ ,117.161465053763
+ ,161.600174731183
+ ,133.87436827957
+ ,198.845336021505
+ ,186.790497311828
+ ,171.796948924731
+ ,202.538884408602
+ ,158.667916666667
+ ,168.200174731183
+ ,190.739563172043
+ ,195.142788978495
+ ,169.610530913979
+ ,143.73311155914
+ ,124.071821236559
+ ,80.1460147849462
+ ,79.4169825268817
+ ,40.2621438172043
+ ,45.0685954301075
+ ,17.0105309139785
+ ,25.039563172043
+ ,27.8718212365591
+ ,-21.3887903225807
+ ,-42.3855645161291
+ ,-41.6178225806451
+ ,-41.1952419354838
+ ,-37.4565322580645
+ ,-73.9823387096774
+ ,-57.211370967742
+ ,-52.6662096774194
+ ,-27.5597580645162
+ ,-25.3178225806452
+ ,-23.7887903225807
+ ,-45.6565322580646
+ ,-72.7171438172043
+ ,-74.4139180107527
+ ,-85.9461760752688
+ ,-63.6235954301075
+ ,-48.4848857526882
+ ,-96.2106922043011
+ ,-68.1397244623656
+ ,-53.694563172043
+ ,-55.5881115591398
+ ,-64.9461760752688
+ ,-75.6171438172043
+ ,-82.9848857526882
+ ,-97.5454973118279
+ ,-124.242271505376
+ ,-115.574529569892
+ ,-83.0519489247311
+ ,-85.3132392473118
+ ,-138.439045698925
+ ,-117.868077956989
+ ,-106.522916666667
+ ,-78.7164650537635
+ ,-67.9745295698925
+ ,-45.545497311828
+ ,-13.3132392473118
+ ,33.1261491935484
+ ,65.429375
+ ,93.0971169354839
+ ,112.919697580645
+ ,114.658407258065
+ ,44.2326008064517
+ ,66.8035685483871
+ ,77.0487298387097
+ ,90.4551814516129
+ ,55.4971169354839
+ ,52.0261491935484
+ ,38.9584072580645
+ ,31.6977956989247
+ ,11.8010215053763
+ ,6.86876344086024
+ ,32.2913440860215
+ ,5.63005376344091
+ ,-46.795752688172
+ ,-47.1247849462365
+ ,-28.579623655914
+ ,-31.2731720430107
+ ,-21.2312365591398
+ ,-18.1022043010753
+ ,-14.0699462365591
+ ,-40.8305577956989
+ ,-48.1273319892473
+ ,-25.5595900537634
+ ,-25.1370094086022
+ ,4.30170026881722
+ ,-30.4241061827957
+ ,-27.1531384408602
+ ,-47.7079771505376
+ ,-50.0015255376344
+ ,-52.7595900537634
+ ,-24.0305577956989
+ ,-20.3982997311828
+ ,-39.0589112903226
+ ,-61.055685483871
+ ,-65.0879435483871
+ ,-45.6653629032258
+ ,-24.3266532258064
+ ,-47.4524596774193
+ ,-53.4814919354838
+ ,-54.0363306451613
+ ,-39.229879032258
+ ,-27.5879435483871
+ ,16.5410887096774
+ ,34.5733467741935
+ ,74.5127352150537
+ ,129.815961021505
+ ,155.983702956989
+ ,185.80628360215
+ ,183.14499327957
+ ,149.519186827957
+ ,159.790154569892
+ ,141.835315860215
+ ,104.041767473118
+ ,88.6837029569892
+ ,70.1127352150537
+ ,95.9449932795699
+ ,83.6843817204301
+ ,75.7876075268817
+ ,58.0553494623656
+ ,22.9779301075269
+ ,20.4166397849463
+ ,-7.00916666666668
+ ,-1.73819892473119
+ ,3.60696236559135
+ ,5.5134139784946
+ ,24.5553494623656
+ ,42.9843817204301
+ ,29.0166397849462
+ ,15.5560282258064
+ ,-17.6407459677419
+ ,32.4269959677419
+ ,15.6495766129032
+ ,13.4882862903226
+ ,19.9624798387097
+ ,13.9334475806451
+ ,27.7786088709677
+ ,5.28506048387095
+ ,42.9269959677419
+ ,63.8560282258064
+ ,111.688286290323
+ ,124.927674731183
+ ,146.930900537634
+ ,146.098642473118
+ ,131.42122311828
+ ,130.359932795699
+ ,121.834126344086
+ ,109.405094086022
+ ,88.4502553763441
+ ,64.9567069892473
+ ,63.2986424731183
+ ,49.0276747311828
+ ,56.5599327956989
+ ,41.2993212365591
+ ,17.4025470430108
+ ,23.8702889784946
+ ,16.7928696236559
+ ,46.2315793010753
+ ,0.205772849462341
+ ,-16.0232594086022
+ ,16.4219018817204
+ ,-5.17164650537637
+ ,-11.8297110215054
+ ,15.2993212365591
+ ,16.2315793010752
+ ,29.6709677419354
+ ,44.0741935483871
+ ,23.541935483871
+ ,17.5645161290323
+ ,33.7032258064516
+ ,21.4774193548387
+ ,2.8483870967742
+ ,-4.50645161290326
+ ,-15.9
+ ,-8.05806451612905
+ ,16.2709677419355
+ ,6.80322580645159
+ ,6.5426142473118
+ ,-9.05415994623654
+ ,-10.3864180107527
+ ,-10.8638373655914
+ ,-20.625127688172
+ ,-0.850934139784941
+ ,-55.8799663978495
+ ,-37.1348051075269
+ ,-48.9283534946237
+ ,-39.8864180107527
+ ,-49.9573857526882
+ ,-43.3251276881721
+ ,-63.3857392473119
+ ,-50.1825134408602
+ ,-75.2147715053764
+ ,-56.9921908602151
+ ,-64.2534811827957
+ ,-52.6792876344086
+ ,-92.7083198924732
+ ,-87.9631586021506
+ ,-103.156706989247
+ ,-101.014771505376
+ ,-105.185739247312
+ ,-117.653481182796
+ ,-145.314092741936
+ ,-168.710866935484
+ ,-158.343125
+ ,-145.420544354839
+ ,-118.581834677419
+ ,-111.407641129032
+ ,-142.836673387097
+ ,-134.591512096774
+ ,-149.285060483871
+ ,-137.643125
+ ,-148.314092741935
+ ,-142.181834677419
+ ,-166.042446236559
+ ,-173.439220430107
+ ,-174.171478494624
+ ,-164.248897849462
+ ,-164.310188172043
+ ,-120.035994623656
+ ,-135.16502688172
+ ,-134.719865591398
+ ,-122.313413978495
+ ,-101.171478494624
+ ,-128.142446236559
+ ,-148.910188172043
+ ,-186.770799731183
+ ,-175.367573924731
+ ,-188.899831989247
+ ,-193.777251344086
+ ,-191.938541666667
+ ,-133.56434811828
+ ,-150.593380376344
+ ,-163.948219086022
+ ,-163.341767473118
+ ,-157.599831989247
+ ,-173.070799731183
+ ,-191.338541666667
+ ,-218.899153225806
+ ,-223.995927419355
+ ,-219.328185483871
+ ,-200.90560483871
+ ,-204.56689516129
+ ,-168.292701612903
+ ,-166.321733870968
+ ,-166.376572580645
+ ,-140.470120967742
+ ,-136.828185483871
+ ,-171.899153225806
+ ,-182.66689516129
+ ,-178.02750672043
+ ,-149.124280913979
+ ,-132.956538978495
+ ,-112.133958333333
+ ,-108.395248655914
+ ,-52.6210551075269
+ ,-45.7500873655914
+ ,-43.6049260752688
+ ,-19.2984744623656
+ ,-7.15653897849465
+ ,5.57249327956986
+ ,6.00475134408602
+ ,10.5441397849462
+ ,3.44736559139788
+ ,-0.984892473118272
+ ,-10.162311827957
+ ,-19.6236021505376
+ ,17.2505913978495
+ ,24.021559139785
+ ,28.2667204301075
+ ,23.2731720430108
+ ,11.7151075268817
+ ,14.1441397849462
+ ,-0.323602150537605
+ ,1.61578629032258
+ ,-11.7809879032258
+ ,-9.21324596774194
+ ,-22.0906653225807
+ ,-36.8519556451613
+ ,-1.37776209677414
+ ,-3.90679435483875
+ ,-4.36163306451613
+ ,-7.15518145161287
+ ,-10.5132459677419
+ ,-52.9842137096774
+ ,-70.4519556451612
+ ,-87.8125672043011
+ ,-80.7093413978495
+ ,-91.7415994623656
+ ,-86.6190188172043
+ ,-103.580309139785
+ ,-71.5061155913979
+ ,-78.4351478494624
+ ,-81.4899865591398
+ ,-68.6835349462366
+ ,-93.4415994623656
+ ,-86.2125672043011
+ ,-88.4803091397849
+ ,-66.7409206989248
+ ,-63.4376948924732
+ ,-79.6699529569893
+ ,-86.147372311828
+ ,-81.3086626344087
+ ,-30.4344690860216
+ ,-19.6635013440861
+ ,-26.0183400537634
+ ,22.7881115591398
+ ,22.4300470430107
+ ,64.4590793010752
+ ,104.091337365591
+ ,238.230725806452
+ ,241.233951612903
+ ,268.501693548387
+ ,253.524274193548
+ ,254.362983870968
+ ,276.237177419355
+ ,263.00814516129
+ ,242.853306451613
+ ,242.559758064516
+ ,230.201693548387
+ ,206.830725806452
+ ,200.762983870968
+ ,225.402372311828
+ ,201.405598118279
+ ,172.873340053763
+ ,148.295920698925
+ ,110.234630376344
+ ,172.608823924731
+ ,187.579791666667
+ ,193.224952956989
+ ,180.731404569893
+ ,176.873340053763
+ ,181.002372311828
+ ,171.234630376344
+ ,180.574018817204
+ ,196.777244623656
+ ,163.74498655914
+ ,103.867567204301
+ ,82.7062768817204
+ ,140.180470430107
+ ,111.751438172043
+ ,124.496599462366
+ ,109.603051075269
+ ,103.44498655914
+ ,93.8740188172044
+ ,44.8062768817205
+ ,73.2456653225807
+ ,47.5488911290322
+ ,43.8166330645161
+ ,3.6392137096774
+ ,1.07792338709678
+ ,15.2521169354839
+ ,49.2230846774194
+ ,29.668245967742
+ ,33.3746975806452
+ ,15.1166330645161
+ ,9.94566532258058
+ ,17.0779233870967)
> #'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/1czm91352548600.tab")
>
>
>
> proc.time()
user system elapsed
0.441 0.111 0.549