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(0.00863999553267331
+ ,0.245841705850727
+ ,-0.0567489236610813
+ ,-0.0605742080037394
+ ,0.0424355425295423
+ ,0.183434109620016
+ ,0.0388582986104712
+ ,-0.474959054849704
+ ,-0.443508374135396
+ ,-0.0655373911233947
+ ,-0.262966911054713
+ ,-0.060938869387184
+ ,0.00674337625640208
+ ,-0.1010461058137
+ ,0.177002752433408
+ ,-0.227068986817825
+ ,-0.344987326937036
+ ,0.211629141911194
+ ,-0.0425164575096652
+ ,0.366692797788158
+ ,-0.384044442484371
+ ,-0.209594449778923
+ ,-0.436027871390075
+ ,0.187109988859926
+ ,0.464281512280463
+ ,0.251181043352838
+ ,0.251568873233195
+ ,0.359467542370751
+ ,-0.14330829131592
+ ,0.135745784486399
+ ,0.289683965864723
+ ,0.073260638809079
+ ,-0.134114691934269
+ ,-0.183328937618044
+ ,0.10051473728853
+ ,-0.0525048166589754
+ ,-0.105993519812714
+ ,-0.0806699167840332
+ ,-0.251757999960302
+ ,-0.457372290998335
+ ,0.323087852756467
+ ,-0.29632979590436
+ ,-0.00461669926803182
+ ,0.0692608090865357
+ ,-0.201127020793822
+ ,-0.177739878922327
+ ,-0.0566244989791938
+ ,-0.265366555711719
+ ,0.526402109778806
+ ,-0.168032227010468
+ ,-0.132641300493292
+ ,0.0377318487913628
+ ,0.0928764196484478
+ ,-0.0341116521892555
+ ,-0.130518752354012
+ ,-0.390669916784034
+ ,0.0519577922176314
+ ,-0.254917077487137
+ ,0.100954639086966
+ ,-0.131838914940424
+ ,-0.172900676670297
+ ,0.359670374373095
+ ,0.00598589402750702
+ ,0.0673050812934502
+ ,-0.301841954685438
+ ,-0.126651795746058
+ ,0.197858756199534
+ ,-0.10871475996566
+ ,0.162670661684701
+ ,-0.16765701330127
+ ,-0.159687005609735
+ ,-0.266202317521477
+ ,-0.0759282607487661
+ ,0.0787061588599837
+ ,0.0835999546457394
+ ,-0.135025289234122
+ ,-0.0439801587408892
+ ,-0.0976306918548741
+ ,-0.290871659682298
+ ,-0.137496158661494
+ ,0.0179280303289651
+ ,-0.0535392816219848
+ ,-0.127069962138294
+ ,-0.174797224889461
+ ,0.34832291501982
+ ,0.00202139120279051
+ ,-0.16334917957441
+ ,0.273469032172085
+ ,0.396419716335916
+ ,0.215347289075819
+ ,0.103079137867181
+ ,0.149289081173867
+ ,0.000953549982889004
+ ,-0.0164996559955692
+ ,0.065474767458703
+ ,0.220708854401587
+ ,-0.115705871548378
+ ,-0.20789006803188
+ ,0.105145141831797
+ ,-0.00604713802597372
+ ,0.00203205673301314
+ ,-0.0176033950880101
+ ,0.121444030249569
+ ,-0.085230071877402
+ ,0.00115735730570015
+ ,-0.221145716455009
+ ,-0.0923313458480405
+ ,-0.100178461196884
+ ,-0.000639580272155826
+ ,-0.0105849867384295
+ ,0.316921837453286
+ ,0.0508756747477807
+ ,-0.129848835569979
+ ,-0.204146003766615
+ ,-0.132005735286618
+ ,0.0642502004481184
+ ,-0.344398325133125
+ ,0.227722272365218
+ ,0.273748079330746
+ ,0.00444833262665811
+ ,-0.00823035918900787
+ ,0.207081602988984
+ ,-0.135705871548378
+ ,0.0233911569369779
+ ,-0.196623523658727
+ ,-0.124960030170172
+ ,-0.237944661565607
+ ,-0.214619739013045
+ ,0.245775145677808
+ ,-0.0701587902152286
+ ,-0.311564858167714
+ ,-0.149392706880657
+ ,-0.0966634365967485
+ ,0.275492487799422
+ ,0.0271159545663437
+ ,-0.382137228734983
+ ,0.103235977441475
+ ,0.285695206018156
+ ,0.0275957693028013
+ ,-0.161676109659711
+ ,0.280186086982093
+ ,0.0449756860863458
+ ,-0.1272590888654
+ ,-0.0616528279583309
+ ,-0.182222158780588
+ ,-0.0203685632444587
+ ,0.36390990929099
+ ,0.0383435613219433
+ ,0.0261866616053045
+ ,-0.151052185303729
+ ,-0.161459686165742
+ ,-0.0285989224334666
+ ,-0.12123924760629
+ ,-0.101948102007877
+ ,-0.0945378487124556
+ ,-0.10798359918316
+ ,0.194904461315979
+ ,-0.01051473728853
+ ,-0.195311962177991
+ ,-0.156461693698483
+ ,-0.125451485757322
+ ,0.133692510476552
+ ,-0.10516079774797
+ ,0.0816215161259854
+ ,0.22333753872372
+ ,-0.00311612484379919
+ ,-0.148133788292713
+ ,0.195036930084812
+ ,-0.0109788961088155
+ ,0.31179997732287
+ ,0.125696181338623
+ ,-0.0595348658592456
+ ,0.0928577239872611
+ ,-0.187262128610415
+ ,-0.105192109580316
+ ,-0.113817353460178
+ ,0.133065546375555
+ ,-0.0808014102323994
+ ,0.284141988701133
+ ,0.131963757924049
+ ,-0.187599380022528
+ ,0.0972707297160904
+ ,0.10667507744744
+ ,0.207619051004183
+ ,0.129183909171896
+ ,-0.169236552064686
+ ,-0.043259663488612
+ ,0.0279406465001241
+ ,-0.122137228734983
+ ,-0.0170310245207397
+ ,0.131579538763417
+ ,-0.325133500981107
+ ,0.0604055502210767
+ ,0.144917077487137
+ ,0.130468173885768
+ ,0.231622491446454
+ ,0.23711291482133
+ ,-0.284466623942088
+ ,-0.20301594322778
+ ,-0.160100585961776
+ ,-0.162765168156449
+ ,-0.177643308026033
+ ,0.00999902467953188
+ ,0.34780817773129
+ ,-0.272078620135775
+ ,-0.129702661525909
+ ,-0.0990241436361984
+ ,0.119224911213996
+ ,-0.103716767498401
+ ,-0.104673357226304
+ ,-0.0196207712253181
+ ,-0.344127308105428
+ ,0.345623981247788
+ ,-0.157285410311796
+ ,-0.434902396891432
+ ,0.381381406584878
+ ,0.183492718219223
+ ,0.699639466886505
+ ,-0.183865005967018
+ ,0.184138948956119
+ ,-0.0902225029839986
+ ,0.0338016975440054
+ ,-0.0253150019230057
+ ,-0.0710491455587152
+ ,-0.0430392249291594
+ ,0.237220151247846
+ ,-0.395868676829089
+ ,-0.301325152972362
+ ,0.797854741134052
+ ,0.547628056455616
+ ,-0.991760635359559
+ ,-0.315045364561533
+ ,-0.12161790540626
+ ,-0.035495984735538
+ ,-0.0495211605840096
+ ,-0.322575066108874
+ ,0.226278242115649
+ ,-0.601563882847245
+ ,0.0619178792796098
+ ,0.031877852557977
+ ,-0.0438765330340981)
> #'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/1j3871354535056.tab")
>
>
>
> proc.time()
user system elapsed
0.351 0.077 0.403