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.950927426978330
+ ,0.381817133424683
+ ,2.083335628339200
+ ,3.127025192635330
+ ,-2.358051987768170
+ ,-1.736016271757080
+ ,3.846299991492700
+ ,-2.007756050547860
+ ,-1.948445496639430
+ ,0.701963528835648
+ ,1.137382762208440
+ ,-0.101807700721448
+ ,0.610689034101525
+ ,0.592021391686478
+ ,-1.004395063055410
+ ,-0.379815923943083
+ ,0.489441182277558
+ ,3.616619183397030
+ ,2.625165134497640
+ ,0.506467833505857
+ ,0.697230534862408
+ ,0.958823175202897
+ ,2.546938147237920
+ ,1.010762104953450
+ ,0.833157851012718
+ ,0.778791225792725
+ ,1.028275393283400
+ ,-1.763968013898280
+ ,0.23383301576509
+ ,-0.0778957672030686
+ ,-0.746027283963927
+ ,-0.737377122432317
+ ,-0.797418619234848
+ ,0.0714998797812351
+ ,-1.602200306094290
+ ,-2.921926401309670
+ ,-3.014672990031160
+ ,-1.789991690074690
+ ,1.437350998711500
+ ,1.527886673384490
+ ,1.272815399881450
+ ,-1.828353334722140
+ ,2.425987886788690
+ ,-0.166310878185677
+ ,-0.492903544444921
+ ,-4.579946776279850
+ ,-2.604228985647020
+ ,-0.19422943412892
+ ,0.370906086774684
+ ,-1.730933527775650
+ ,-1.147151290076460
+ ,-0.221677408920302
+ ,-3.145340373452820
+ ,0.130447599287036
+ ,-2.364552177695210
+ ,1.599325081233890
+ ,-0.0107717121744094
+ ,0.412355641135433
+ ,-0.248651715103607
+ ,1.699039550281940
+ ,0.431959428762646
+ ,0.15190661485923
+ ,-0.732096822448143
+ ,-0.849165794690456
+ ,0.546781501160583
+ ,1.213271704701020
+ ,1.933602545001730
+ ,3.776399157994500
+ ,-3.703958864557730
+ ,0.552161863420334
+ ,-3.029195508180270
+ ,-0.699009794724861
+ ,1.178461282653490
+ ,0.952614163101955
+ ,0.938146133355616
+ ,3.731342199774870
+ ,-0.27445348438142
+ ,1.725904951442600
+ ,-2.033478553739770
+ ,1.075230232818890
+ ,0.434465248129707
+ ,0.463024793312068
+ ,-0.556378964773851
+ ,0.290823812108053
+ ,2.024351239547280
+ ,-0.00857332391764814
+ ,0.779169251006498
+ ,1.293406531085150
+ ,0.64524897347781
+ ,-1.705080737416820
+ ,0.321735886198806
+ ,0.256979711011826
+ ,-0.0195639849034682
+ ,-1.963598028672100
+ ,1.302627335705470
+ ,0.316937042917328
+ ,2.417701080095630
+ ,0.231489429954285
+ ,-0.319858081531102
+ ,-1.024703833760560
+ ,1.421202663716270
+ ,2.531232510295950
+ ,0.947695374061321
+ ,1.043666721783040
+ ,-1.801167421660320
+ ,1.341788163106110
+ ,0.285054576863643
+ ,1.734830472008470
+ ,-0.144502539944409
+ ,0.729968269891964
+ ,-0.0190228965520521
+ ,2.027100875672990
+ ,-1.623526260359230
+ ,-2.561106515237640
+ ,1.817433594802990
+ ,-1.874239202780090
+ ,0.936575638601393
+ ,-1.766415230067080
+ ,0.42724619588997
+ ,-1.406745684691490
+ ,0.560835234710133
+ ,-2.891167271223320
+ ,-0.904258186860854
+ ,-0.892153488946772
+ ,-0.902236170738301
+ ,0.296367937158025
+ ,1.388689572409520
+ ,1.016139203359060
+ ,-2.744083838490470
+ ,2.006357737384350
+ ,-3.757672591598220
+ ,2.482367885517180
+ ,-2.216163117791370
+ ,-1.623796371439230
+ ,-0.169866756362222
+ ,0.857844295374259
+ ,0.499053079900598
+ ,-2.468624924683490
+ ,-1.015724373858640
+ ,-2.419446534276200
+ ,3.116868494553710
+ ,1.244149428599770
+ ,-0.00977950660548293
+ ,1.726205341693290
+ ,-3.356731562514160
+ ,2.347253794042720
+ ,-2.022884771953820
+ ,1.037980817598440
+ ,0.122740837501083
+ ,-2.983866910785650
+ ,-1.149480124312880
+ ,1.972426862143270
+ ,4.088948984924600
+ ,1.118379703492860
+ ,-2.511077298298560
+ ,0.321735886198806
+ ,1.225159115393230
+ ,1.016139203359060
+ ,1.277952242966510
+ ,-0.902448708853643
+ ,0.276588643849074
+ ,0.640555248578502
+ ,-0.219714057890000
+ ,0.844074306989343
+ ,1.507288988968940
+ ,-1.369085648879320
+ ,-0.151183746564223
+ ,-3.047381402788280
+ ,-1.628420756908890
+ ,1.671359889890770
+ ,1.789630485111520
+ ,0.77058264871283
+ ,-1.678958916240210
+ ,-2.142243663121480
+ ,-2.813249493429920
+ ,0.563279912781797
+ ,-0.0443133302158332
+ ,-0.527125897983652
+ ,0.347961979312088
+ ,-1.242363629001490
+ ,1.097128567783510
+ ,-0.230816590851172
+ ,2.369755033225110
+ ,-0.0709573706773562
+ ,-6.500257228497550
+ ,1.261477725343550
+ ,2.598884231887540
+ ,-0.276935000932918
+ ,-0.337592691072861
+ ,0.766460631722878
+ ,-0.738347362672255
+ ,0.593164124039307
+ ,2.445135860848180
+ ,2.068898526535350
+ ,-0.589629361433986
+ ,0.067529462442679
+ ,3.102911980567040
+ ,0.98199052927266
+ ,1.650521445670400
+ ,1.458638605459760
+ ,2.055406796426970
+ ,0.677381538942582
+ ,-2.427517794616260
+ ,-2.436710987021590
+ ,2.330073086545160
+ ,0.541347574568722
+ ,1.532062753609930
+ ,1.068353079510020
+ ,-2.556278023983700
+ ,1.022060198203120
+ ,-2.202902205786250
+ ,-3.778443865191100
+ ,0.855979820899399
+ ,2.969296732284700
+ ,1.431517041045760
+ ,0.92686536580996
+ ,2.325387624558690
+ ,0.0576401774804177
+ ,1.109497162777210
+ ,-0.205965436350932
+ ,-1.671017170642970
+ ,-0.131920565559881
+ ,0.69988175348359
+ ,-1.109293774491140
+ ,0.288333593457519
+ ,-3.747213134275050
+ ,0.198419826035607
+ ,0.979732572076422
+ ,-1.229759183315850
+ ,-0.896838277694454
+ ,1.754791518045770
+ ,-3.213065761663230
+ ,4.632282599081560
+ ,2.052583830393920
+ ,-0.869328863803708
+ ,-2.343002738542470
+ ,-6.972696729831410
+ ,-1.267817848143290
+ ,1.693092913476200
+ ,-1.682392340516940
+ ,-0.287911979522082
+ ,-1.501192111694680
+ ,1.148577466832540
+ ,1.897137209777490
+ ,1.290751899520400
+ ,0.0314942682585027
+ ,1.122268013997320
+ ,-2.535800022795170
+ ,1.237586914115890
+ ,0.260609055995628
+ ,-0.922062430482111
+ ,-1.730463172570970
+ ,0.598033800572314
+ ,3.117443736717850
+ ,-1.376552282785240
+ ,0.0951709146478978
+ ,1.480120220034830
+ ,2.331720115159230
+ ,-1.356690156603050
+ ,-5.383345805948790
+ ,1.152740671599490
+ ,-4.108360953720810
+ ,-0.347629194317833
+ ,1.085550528595740)
> #'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/1p06m1354379293.tab")
>
>
>
> proc.time()
user system elapsed
0.346 0.080 0.408