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.50372984
+ ,21.19949597
+ ,27.3672379
+ ,42.38981855
+ ,23.62852823
+ ,-9.697278226
+ ,13.37368952
+ ,27.21885081
+ ,26.62530242
+ ,10.6672379
+ ,17.19627016
+ ,31.92852823
+ ,37.66791667
+ ,75.67114247
+ ,88.83888441
+ ,117.1614651
+ ,161.6001747
+ ,133.8743683
+ ,198.845336
+ ,186.7904973
+ ,171.7969489
+ ,202.5388844
+ ,158.6679167
+ ,168.2001747
+ ,190.7395632
+ ,195.142789
+ ,169.6105309
+ ,143.7331116
+ ,124.0718212
+ ,80.14601478
+ ,79.41698253
+ ,40.26214382
+ ,45.06859543
+ ,17.01053091
+ ,25.03956317
+ ,27.87182124
+ ,-21.38879032
+ ,-42.38556452
+ ,-41.61782258
+ ,-41.19524194
+ ,-37.45653226
+ ,-73.98233871
+ ,-57.21137097
+ ,-52.66620968
+ ,-27.55975806
+ ,-25.31782258
+ ,-23.78879032
+ ,-45.65653226
+ ,-72.71714382
+ ,-74.41391801
+ ,-85.94617608
+ ,-63.62359543
+ ,-48.48488575
+ ,-96.2106922
+ ,-68.13972446
+ ,-53.69456317
+ ,-55.58811156
+ ,-64.94617608
+ ,-75.61714382
+ ,-82.98488575
+ ,-97.54549731
+ ,-124.2422715
+ ,-115.5745296
+ ,-83.05194892
+ ,-85.31323925
+ ,-138.4390457
+ ,-117.868078
+ ,-106.5229167
+ ,-78.71646505
+ ,-67.97452957
+ ,-45.54549731
+ ,-13.31323925
+ ,33.12614919
+ ,65.429375
+ ,93.09711694
+ ,112.9196976
+ ,114.6584073
+ ,44.23260081
+ ,66.80356855
+ ,77.04872984
+ ,90.45518145
+ ,55.49711694
+ ,52.02614919
+ ,38.95840726
+ ,31.6977957
+ ,11.80102151
+ ,6.868763441
+ ,32.29134409
+ ,5.630053763
+ ,-46.79575269
+ ,-47.12478495
+ ,-28.57962366
+ ,-31.27317204
+ ,-21.23123656
+ ,-18.1022043
+ ,-14.06994624
+ ,-40.8305578
+ ,-48.12733199
+ ,-25.55959005
+ ,-25.13700941
+ ,4.301700269
+ ,-30.42410618
+ ,-27.15313844
+ ,-47.70797715
+ ,-50.00152554
+ ,-52.75959005
+ ,-24.0305578
+ ,-20.39829973
+ ,-39.05891129
+ ,-61.05568548
+ ,-65.08794355
+ ,-45.6653629
+ ,-24.32665323
+ ,-47.45245968
+ ,-53.48149194
+ ,-54.03633065
+ ,-39.22987903
+ ,-27.58794355
+ ,16.54108871
+ ,34.57334677
+ ,74.51273522
+ ,129.815961
+ ,155.983703
+ ,185.8062836
+ ,183.1449933
+ ,149.5191868
+ ,159.7901546
+ ,141.8353159
+ ,104.0417675
+ ,88.68370296
+ ,70.11273522
+ ,95.94499328
+ ,83.68438172
+ ,75.78760753
+ ,58.05534946
+ ,22.97793011
+ ,20.41663978
+ ,-7.009166667
+ ,-1.738198925
+ ,3.606962366
+ ,5.513413978
+ ,24.55534946
+ ,42.98438172
+ ,29.01663978
+ ,15.55602823
+ ,-17.64074597
+ ,32.42699597
+ ,15.64957661
+ ,13.48828629
+ ,19.96247984
+ ,13.93344758
+ ,27.77860887
+ ,5.285060484
+ ,42.92699597
+ ,63.85602823
+ ,111.6882863
+ ,124.9276747
+ ,146.9309005
+ ,146.0986425
+ ,131.4212231
+ ,130.3599328
+ ,121.8341263
+ ,109.4050941
+ ,88.45025538
+ ,64.95670699
+ ,63.29864247
+ ,49.02767473
+ ,56.5599328
+ ,41.29932124
+ ,17.40254704
+ ,23.87028898
+ ,16.79286962
+ ,46.2315793
+ ,0.205772849
+ ,-16.02325941
+ ,16.42190188
+ ,-5.171646505
+ ,-11.82971102
+ ,15.29932124
+ ,16.2315793
+ ,29.67096774
+ ,44.07419355
+ ,23.54193548
+ ,17.56451613
+ ,33.70322581
+ ,21.47741935
+ ,2.848387097
+ ,-4.506451613
+ ,-15.9
+ ,-8.058064516
+ ,16.27096774
+ ,6.803225806
+ ,6.542614247
+ ,-9.054159946
+ ,-10.38641801
+ ,-10.86383737
+ ,-20.62512769
+ ,-0.85093414
+ ,-55.8799664
+ ,-37.13480511
+ ,-48.92835349
+ ,-39.88641801
+ ,-49.95738575
+ ,-43.32512769
+ ,-63.38573925
+ ,-50.18251344
+ ,-75.21477151
+ ,-56.99219086
+ ,-64.25348118
+ ,-52.67928763
+ ,-92.70831989
+ ,-87.9631586
+ ,-103.156707
+ ,-101.0147715
+ ,-105.1857392
+ ,-117.6534812
+ ,-145.3140927
+ ,-168.7108669
+ ,-158.343125
+ ,-145.4205444
+ ,-118.5818347
+ ,-111.4076411
+ ,-142.8366734
+ ,-134.5915121
+ ,-149.2850605
+ ,-137.643125
+ ,-148.3140927
+ ,-142.1818347
+ ,-166.0424462
+ ,-173.4392204
+ ,-174.1714785
+ ,-164.2488978
+ ,-164.3101882
+ ,-120.0359946
+ ,-135.1650269
+ ,-134.7198656
+ ,-122.313414
+ ,-101.1714785
+ ,-128.1424462
+ ,-148.9101882
+ ,-186.7707997
+ ,-175.3675739
+ ,-188.899832
+ ,-193.7772513
+ ,-191.9385417
+ ,-133.5643481
+ ,-150.5933804
+ ,-163.9482191
+ ,-163.3417675
+ ,-157.599832
+ ,-173.0707997
+ ,-191.3385417
+ ,-218.8991532
+ ,-223.9959274
+ ,-219.3281855
+ ,-200.9056048
+ ,-204.5668952
+ ,-168.2927016
+ ,-166.3217339
+ ,-166.3765726
+ ,-140.470121
+ ,-136.8281855
+ ,-171.8991532
+ ,-182.6668952
+ ,-178.0275067
+ ,-149.1242809
+ ,-132.956539
+ ,-112.1339583
+ ,-108.3952487
+ ,-52.62105511
+ ,-45.75008737
+ ,-43.60492608
+ ,-19.29847446
+ ,-7.156538978
+ ,5.57249328
+ ,6.004751344
+ ,10.54413978
+ ,3.447365591
+ ,-0.984892473
+ ,-10.16231183
+ ,-19.62360215
+ ,17.2505914
+ ,24.02155914
+ ,28.26672043
+ ,23.27317204
+ ,11.71510753
+ ,14.14413978
+ ,-0.323602151
+ ,1.61578629
+ ,-11.7809879
+ ,-9.213245968
+ ,-22.09066532
+ ,-36.85195565
+ ,-1.377762097
+ ,-3.906794355
+ ,-4.361633065
+ ,-7.155181452
+ ,-10.51324597
+ ,-52.98421371
+ ,-70.45195565
+ ,-87.8125672
+ ,-80.7093414
+ ,-91.74159946
+ ,-86.61901882
+ ,-103.5803091
+ ,-71.50611559
+ ,-78.43514785
+ ,-81.48998656
+ ,-68.68353495
+ ,-93.44159946
+ ,-86.2125672
+ ,-88.48030914
+ ,-66.7409207
+ ,-63.43769489
+ ,-79.66995296
+ ,-86.14737231
+ ,-81.30866263
+ ,-30.43446909
+ ,-19.66350134
+ ,-26.01834005
+ ,22.78811156
+ ,22.43004704
+ ,64.4590793
+ ,104.0913374
+ ,238.2307258
+ ,241.2339516
+ ,268.5016935
+ ,253.5242742
+ ,254.3629839
+ ,276.2371774
+ ,263.0081452
+ ,242.8533065
+ ,242.5597581
+ ,230.2016935
+ ,206.8307258
+ ,200.7629839
+ ,225.4023723
+ ,201.4055981
+ ,172.8733401
+ ,148.2959207
+ ,110.2346304
+ ,172.6088239
+ ,187.5797917
+ ,193.224953
+ ,180.7314046
+ ,176.8733401
+ ,181.0023723
+ ,171.2346304
+ ,180.5740188
+ ,196.7772446
+ ,163.7449866
+ ,103.8675672
+ ,82.70627688
+ ,140.1804704
+ ,111.7514382
+ ,124.4965995
+ ,109.6030511
+ ,103.4449866
+ ,93.87401882
+ ,44.80627688
+ ,73.24566532
+ ,47.54889113
+ ,43.81663306
+ ,3.63921371
+ ,1.077923387
+ ,15.25211694
+ ,49.22308468
+ ,29.66824597
+ ,33.37469758
+ ,15.11663306
+ ,9.945665323
+ ,17.07792339)
> #'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/1p4xc1354916155.tab")
>
>
>
> proc.time()
user system elapsed
0.380 0.096 0.456