R version 2.13.0 (2011-04-13)
Copyright (C) 2011 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(-52.69209978
+ ,-192.1907146
+ ,-58.3283242
+ ,-115.67056
+ ,27.47680174
+ ,-189.9686317
+ ,453.0888618
+ ,-60.75274933
+ ,88.84023663
+ ,-75.44726985
+ ,57.12860217
+ ,31.72035498
+ ,-93.43585518
+ ,-27.90024556
+ ,74.49563317
+ ,39.9577598
+ ,154.5375931
+ ,-43.0319112
+ ,167.8496579
+ ,-169.9375133
+ ,-122.0287355
+ ,-30.62365625
+ ,396.1138421
+ ,19.84681322
+ ,-282.7504603
+ ,-111.8828666
+ ,-36.98476442
+ ,74.13520732
+ ,50.50775482
+ ,-3.923552196
+ ,42.83734276
+ ,-53.17923394
+ ,-163.3731286
+ ,25.37866843
+ ,-124.9520325
+ ,104.8219733
+ ,63.60420761
+ ,168.7315238
+ ,346.6081245
+ ,-17.62398499
+ ,28.84625286
+ ,64.83675592
+ ,19.04617951
+ ,135.8145954
+ ,224.6857366
+ ,-62.56405916
+ ,122.3804847
+ ,-5.967659412
+ ,-66.99921063
+ ,65.28902836
+ ,520.1030241
+ ,-35.8444641
+ ,-152.7478765
+ ,27.02298809
+ ,-152.6618034
+ ,-53.57339914
+ ,-8.316913237
+ ,206.0190139
+ ,-53.00077075
+ ,52.47857525
+ ,72.73577997
+ ,-76.88157573
+ ,408.6254042
+ ,67.60636381
+ ,-183.8800158
+ ,-12.2094166
+ ,130.913055
+ ,142.4080885
+ ,-15.89178614
+ ,74.62795969
+ ,19.80100128
+ ,-1.787208886
+ ,42.78914279
+ ,-168.7476594
+ ,-45.09180946
+ ,-88.3813205
+ ,-90.39059203
+ ,-68.02354162
+ ,-60.78219196
+ ,-36.64022707
+ ,-52.1375798
+ ,-198.7420474
+ ,181.1352727
+ ,78.46356694
+ ,-13.95005888
+ ,-132.5073703
+ ,-44.30176349
+ ,4.637804352
+ ,336.3450978
+ ,57.78306514
+ ,-24.17324809
+ ,-30.02366101
+ ,71.57185109
+ ,-153.3714072
+ ,-1.002730501
+ ,342.9082885
+ ,211.6534597
+ ,-295.7413301
+ ,150.0368056
+ ,-212.0143311
+ ,10.45717532
+ ,78.82073081
+ ,91.39262606
+ ,-97.91458169
+ ,-144.6959932
+ ,-113.6333579
+ ,-56.2197732
+ ,-12.17277241
+ ,7.063280048
+ ,25.72018214
+ ,-98.50839678
+ ,58.84814473
+ ,-189.7785548
+ ,101.7084793
+ ,-205.2862224
+ ,48.70049238
+ ,69.23690174
+ ,278.4704277
+ ,-160.1692242
+ ,24.74344711
+ ,29.70170359
+ ,2.033008127
+ ,15.73493851
+ ,-185.9081194
+ ,68.49187292
+ ,45.21989473
+ ,65.9618591
+ ,-138.8546651
+ ,21.59681763
+ ,2.167097596
+ ,1.088062784
+ ,-86.73457693
+ ,-5.310086257
+ ,-41.52074588
+ ,-130.3627023
+ ,159.5546788
+ ,11.85191141
+ ,150.0368217
+ ,-119.6413673
+ ,-79.39552336
+ ,-31.21763489
+ ,-19.81479799
+ ,54.11482345
+ ,128.8342578
+ ,-69.54208052
+ ,-8.340445223
+ ,-86.38591818
+ ,-143.8327819
+ ,-20.7184884
+ ,-49.6074722
+ ,52.21148779
+ ,-211.3214713
+ ,61.97388298
+ ,181.8421202
+ ,16.13428011
+ ,6.204168725
+ ,-51.88053084
+ ,23.20914405
+ ,-106.6916748
+ ,101.3372711
+ ,205.8108199
+ ,-113.6449209
+ ,23.80384322
+ ,214.4000236
+ ,-51.16974338
+ ,-29.76526172
+ ,-81.38241078
+ ,22.0096516
+ ,1.998336015
+ ,365.0740217
+ ,291.3489555
+ ,-206.9459758
+ ,227.7192708
+ ,33.6101705
+ ,-329.2121975
+ ,142.1121155
+ ,-63.94355803
+ ,31.6051859
+ ,-134.9037418
+ ,167.8309109
+ ,21.78266024
+ ,12.36119403
+ ,-10.3978051
+ ,29.62956546
+ ,111.9986465
+ ,-31.04033908
+ ,32.00949836
+ ,-4.961810975
+ ,65.57092486
+ ,-6.606851131
+ ,83.30748747
+ ,70.03020569
+ ,2.77833019
+ ,-91.33407803
+ ,-25.58412384
+ ,-11.66340092
+ ,-42.45466428
+ ,-119.0479047
+ ,-38.89410539
+ ,-163.6677577
+ ,-45.22254746
+ ,-84.78393572
+ ,110.7104
+ ,44.92610986
+ ,-16.01405069
+ ,-68.58947763
+ ,-14.70361555
+ ,214.856787
+ ,94.14264686
+ ,27.34553766
+ ,87.3906556
+ ,73.19681841
+ ,-79.53113578
+ ,-5.621435146
+ ,-85.1598118
+ ,-104.5575462
+ ,-36.28720415
+ ,-42.09486979
+ ,-30.3951492
+ ,37.14993001
+ ,-64.09779875
+ ,-49.68056866
+ ,-45.55661208
+ ,-70.06189534
+ ,-78.57301057
+ ,100.2471094
+ ,44.71736206
+ ,-186.8356253
+ ,-49.46132399
+ ,-107.663015
+ ,-67.39223262
+ ,-3.93028456
+ ,-37.06347307
+ ,-48.76468159
+ ,-104.7873985
+ ,-80.56839892
+ ,189.2487672
+ ,-70.95683553
+ ,-23.23469986
+ ,-123.6733812
+ ,28.89725939
+ ,-19.80354981
+ ,-82.48050157
+ ,-80.62166121
+ ,-53.11740558
+ ,-28.96324088
+ ,2.467102183
+ ,35.16960304
+ ,27.70605674
+ ,-60.55609362
+ ,109.7530718
+ ,-58.00658367
+ ,-18.13393183
+ ,31.62910036
+ ,20.89568852
+ ,10.59771046
+ ,-79.72742836
+ ,48.84522348
+ ,3.653163764
+ ,-20.04326208
+ ,-43.56455769
+ ,-62.07517142
+ ,17.96214696
+ ,-67.04595134
+ ,-101.0242234
+ ,6.120604883
+ ,-110.3410038
+ ,-58.11500094
+ ,76.0275779
+ ,-77.73926935
+ ,10.06920171
+ ,-33.77462144
+ ,74.19564592
+ ,25.80803806
+ ,0.332998757
+ ,-15.75121499
+ ,0.910276228
+ ,-19.64748415
+ ,-7.879380653
+ ,-22.47716605
+ ,-50.29079112
+ ,43.75166108
+ ,58.34436188
+ ,37.13857959
+ ,-13.21068178
+ ,-81.66297247
+ ,-1.145491344
+ ,-154.4804112
+ ,0.342390335)
> #'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/1mh3c1324642164.tab")
>
>
>
> proc.time()
user system elapsed
0.278 0.043 0.336