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(-2.716932667
+ ,0.695354701
+ ,2.465773394
+ ,3.756800929
+ ,-1.889687332
+ ,-1.342423946
+ ,4.161807991
+ ,-1.656841747
+ ,-1.614396605
+ ,1.160117737
+ ,1.47558678
+ ,0.038654809
+ ,1.034583103
+ ,0.869405423
+ ,-0.726605178
+ ,-0.007360227
+ ,0.966688731
+ ,3.960453337
+ ,2.905813838
+ ,0.813862378
+ ,0.998463167
+ ,1.416135174
+ ,2.773099012
+ ,1.361748946
+ ,1.158397864
+ ,1.165514867
+ ,1.470598801
+ ,-1.416929777
+ ,0.704482544
+ ,0.382605544
+ ,-0.36723147
+ ,-0.157794884
+ ,-0.467033523
+ ,0.450952519
+ ,-1.151997771
+ ,-2.454806771
+ ,-2.290802595
+ ,-1.44287535
+ ,1.88743235
+ ,1.949699309
+ ,1.640084339
+ ,-1.412909516
+ ,2.502440756
+ ,0.262000289
+ ,-0.139025784
+ ,-4.150559388
+ ,-2.419095997
+ ,0.218766088
+ ,0.808402277
+ ,-1.361515364
+ ,-0.853739839
+ ,0.268310726
+ ,-2.61386536
+ ,0.409310097
+ ,-1.713731807
+ ,2.167395395
+ ,0.30627631
+ ,0.769644429
+ ,0.176995441
+ ,2.206777551
+ ,1.163272051
+ ,0.562135982
+ ,-0.29898697
+ ,-0.438887734
+ ,0.84995573
+ ,1.256146159
+ ,1.909653498
+ ,3.923509508
+ ,-3.808460881
+ ,0.527152017
+ ,-3.012245827
+ ,-0.715665538
+ ,1.162010456
+ ,0.807171814
+ ,0.990531311
+ ,3.909747507
+ ,-0.407232544
+ ,1.787718277
+ ,-1.961485328
+ ,0.916861489
+ ,0.463901031
+ ,0.356770523
+ ,-0.620182287
+ ,0.313856292
+ ,2.117237372
+ ,0.048211388
+ ,0.766905814
+ ,1.318697005
+ ,0.896661826
+ ,-1.643303567
+ ,0.167875359
+ ,0.270514769
+ ,0.094207665
+ ,-1.836456819
+ ,1.301967194
+ ,0.303921953
+ ,2.516715321
+ ,0.169958299
+ ,-0.266125863
+ ,-1.194086507
+ ,1.494098871
+ ,2.420900716
+ ,0.977353986
+ ,1.161623748
+ ,-1.712444774
+ ,1.239562685
+ ,0.227935475
+ ,1.767395736
+ ,-0.002480266
+ ,0.82816145
+ ,0.061511967
+ ,2.137467172
+ ,-1.528640241
+ ,-2.614568461
+ ,1.723547556
+ ,-1.950475963
+ ,1.007537805
+ ,-1.785824239
+ ,0.485542044
+ ,-1.373030868
+ ,0.592730467
+ ,-2.900148395
+ ,-1.073803686
+ ,-0.998565253
+ ,-0.921755895
+ ,0.249852821
+ ,1.23278974
+ ,0.995768005
+ ,-2.745597967
+ ,2.098177534
+ ,-3.490018923
+ ,2.515270651
+ ,-2.131895571
+ ,-1.689160164
+ ,-0.134952532
+ ,1.120129701
+ ,0.459324011
+ ,-2.363957787
+ ,-0.99487178
+ ,-2.279773405
+ ,3.129332967
+ ,1.422202992
+ ,-0.012629669
+ ,1.782276715
+ ,-3.307648252
+ ,2.289181735
+ ,-2.057515845
+ ,1.0801914
+ ,0.362236196
+ ,-2.878325739
+ ,-1.155043271
+ ,2.007639148
+ ,4.295954949
+ ,1.750032454
+ ,-2.310629981
+ ,0.167875359
+ ,1.430460681
+ ,0.995768005
+ ,1.32860448
+ ,-0.573651755
+ ,0.399396308
+ ,0.533448646
+ ,-0.388160789
+ ,0.426210073
+ ,1.327399554
+ ,-1.420672833
+ ,-0.469161997
+ ,-3.29098658
+ ,-1.848292762
+ ,1.569125254
+ ,1.634688184
+ ,0.294051606
+ ,-1.988393653
+ ,-2.312033591
+ ,-3.288588788
+ ,0.255786884
+ ,-0.263297297
+ ,-0.687934672
+ ,-0.062106612
+ ,-1.476269705
+ ,0.565951923
+ ,-0.521748993
+ ,1.839536729
+ ,-0.520609608
+ ,-6.76628809
+ ,1.03190728
+ ,2.252323131
+ ,-0.541803289
+ ,-0.526967526
+ ,0.700677591
+ ,-1.044903908
+ ,0.145076363
+ ,2.342000107
+ ,1.699486741
+ ,-0.915984634
+ ,-0.368633528
+ ,2.901656852
+ ,0.687030247
+ ,1.512544799
+ ,1.229420219
+ ,1.804610223
+ ,0.434739187
+ ,-2.762297678
+ ,-2.916569977
+ ,2.030333482
+ ,0.16303558
+ ,1.152973504
+ ,0.56605129
+ ,-2.916763144
+ ,0.69684053
+ ,-2.507489607
+ ,-4.289684969
+ ,0.690829519
+ ,2.832504112
+ ,1.116710656
+ ,0.579212169
+ ,1.937338022
+ ,-0.32791694
+ ,1.009711098
+ ,-0.615891961
+ ,-2.022491333
+ ,-0.573303347
+ ,0.433554087
+ ,-1.45853137
+ ,0.19571926
+ ,-3.966868429
+ ,-0.309683138
+ ,0.726256447
+ ,-1.343269573
+ ,-1.160998557
+ ,1.520067648
+ ,-3.465040334
+ ,4.299546178
+ ,1.544133629
+ ,-1.305398824
+ ,-2.654920743
+ ,-7.170028137
+ ,-1.815214028
+ ,1.407636695
+ ,-1.928726129
+ ,-0.407197066
+ ,-1.795600382
+ ,1.113655299
+ ,1.72299312
+ ,0.907372684
+ ,-0.046770178
+ ,0.846117134
+ ,-2.890292844
+ ,1.19903418
+ ,0.116066371
+ ,-1.137919803
+ ,-1.862263458
+ ,0.336856218
+ ,2.821775236
+ ,-1.715206305
+ ,-0.26408786
+ ,1.318811443
+ ,2.176071319
+ ,-1.781640984
+ ,-5.483306743
+ ,0.825633349
+ ,-4.550209689
+ ,-0.471645252
+ ,0.832709147)
> #'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/1a55t1356031156.tab")
>
>
>
> proc.time()
user system elapsed
0.359 0.097 0.436