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(54174.0080946112
+ ,-116.635947246289
+ ,7032.09552943839
+ ,-69732.7719072282
+ ,39115.4061709355
+ ,-27660.9217085057
+ ,40867.6606621943
+ ,-12747.4523478412
+ ,12277.0994569387
+ ,-33420.454279851
+ ,22264.1285174504
+ ,34530.7936511113
+ ,-3511.08608721404
+ ,-6708.40897982357
+ ,24290.3398469702
+ ,29977.4747513552
+ ,-60864.5990511962
+ ,35298.9768353454
+ ,-2795.95295485402
+ ,1277.60513030722
+ ,9682.79726500323
+ ,8123.55680016905
+ ,111379.580555594
+ ,36452.3185642989
+ ,-28196.2990356943
+ ,-78207.5250636401
+ ,-52096.9875493361
+ ,-11293.0842332373
+ ,48810.3855771065
+ ,-2392.24377605184
+ ,24844.3070771322
+ ,5109.48381863024
+ ,-12051.9143892024
+ ,45575.5826056683
+ ,-19699.4498025796
+ ,34856.5270297717
+ ,33202.5937698516
+ ,8743.78100896406
+ ,65566.2055782665
+ ,8663.80213952085
+ ,14363.8466559604
+ ,39166.1298029963
+ ,-28892.0201712613
+ ,7865.8128355159
+ ,455.443853623287
+ ,-8121.5704271724
+ ,-42080.6417744974
+ ,1286.46935986468
+ ,-1561.41627563231
+ ,-83735.3153395797
+ ,-18258.9687616539
+ ,-17043.0595037361
+ ,-13996.8076098911
+ ,-36496.4224795334
+ ,-43109.9514207459
+ ,9995.59584272494
+ ,-7408.7468975992
+ ,63739.5265282993
+ ,-1026.42709611266
+ ,-3024.23973788945
+ ,-519.661123044282
+ ,18379.4166642539
+ ,7215.03057475601
+ ,10089.3463984542
+ ,-10940.2535258427
+ ,19885.760030947
+ ,37786.8308383583
+ ,14257.3021838469
+ ,-4524.7721865549
+ ,-36837.8451928709
+ ,10799.6427163966
+ ,34494.8016891192
+ ,43468.0324204914
+ ,-23092.867430399
+ ,-25489.3846121479
+ ,-6804.70254805179
+ ,-14192.4881193699
+ ,-5905.39418154149
+ ,-19879.865441629
+ ,8725.99288884228
+ ,-2985.11484722343
+ ,-20003.6433398466
+ ,57314.7657678888
+ ,38022.2536691356
+ ,-27376.7858737283
+ ,-11335.5934038105
+ ,-13066.2240965235
+ ,-14217.0660167394
+ ,61036.5562303062
+ ,-6303.21327546353
+ ,40895.3855165597
+ ,-11011.5502560713
+ ,-36710.0677477109
+ ,6332.35476725004
+ ,28433.5693308737
+ ,-7380.04558430931
+ ,18318.0723818851
+ ,-120892.281405658
+ ,22503.1334362253
+ ,2738.99390646098
+ ,9848.88660479704
+ ,-8601.07504751659
+ ,27901.6921453543
+ ,-2157.26890054229
+ ,17307.4259694437
+ ,17967.7610467619
+ ,-25917.3992212016
+ ,-15445.7868742156
+ ,29090.2328707423
+ ,3094.61273426337
+ ,10893.8904688487
+ ,-19159.1994095941
+ ,-22003.7289085395
+ ,11685.2349179432
+ ,-24481.4970570635
+ ,-24591.2134170074
+ ,6845.18289734644
+ ,46892.5164091313
+ ,-53072.2830442417
+ ,-25776.5467761741
+ ,-2897.88565957958
+ ,-38007.7382644943
+ ,-33036.1645062831
+ ,-75357.8456800147
+ ,57832.8960627738
+ ,28822.5534302583
+ ,8643.07731129001
+ ,-13758.1363053387
+ ,28206.4497480345
+ ,11598.8796867216
+ ,-3516.30951610679
+ ,-25357.4422197692
+ ,23373.0068592154
+ ,-66264.1914079155
+ ,-12595.3351402415
+ ,65792.8433562886
+ ,9759.23498847089
+ ,30979.3581729726
+ ,-31525.2534227501
+ ,-5088.79892690328
+ ,-21603.3784088736
+ ,-14638.179084233
+ ,-3958.13496811813
+ ,-8298.88173019735
+ ,-2400.78351251485
+ ,-33273.794323819
+ ,-22202.5541964759
+ ,-36122.2210552817
+ ,-12279.5100341594
+ ,-16246.612753693
+ ,25233.7878680113
+ ,2526.41278105084
+ ,-6452.22475296106
+ ,15165.1519723342
+ ,23633.6717613635
+ ,18538.9315871244
+ ,19994.6760052052
+ ,12379.7924590129
+ ,-33912.044596924
+ ,-13668.2742484881
+ ,11864.2926010985
+ ,-41102.6556977901
+ ,-13679.0604098699
+ ,-27979.7736844662
+ ,-30903.6394112184
+ ,40360.6441073538
+ ,-5843.17128441136
+ ,-13522.7416058237
+ ,28635.1226240021
+ ,72708.0964208248
+ ,-11332.5899316037
+ ,10866.1288981289
+ ,6431.19065676182
+ ,29924.0766304943
+ ,-79094.2993394605
+ ,636.2680191528
+ ,-45038.8269983977
+ ,5455.6196849991
+ ,2885.76632852455
+ ,42717.5426744552
+ ,-18438.7307688305
+ ,-53767.7635398691
+ ,13638.8206518303
+ ,13749.2294179893
+ ,35026.2449596962
+ ,10992.001657055
+ ,9229.00675720166
+ ,19466.0183741611
+ ,7427.49324180225
+ ,-3819.0414655457
+ ,19612.9632835173
+ ,-10586.0304667212
+ ,-10463.373222684
+ ,-28994.1009334732
+ ,-2087.49327618862
+ ,15211.7685436054
+ ,-24491.8521501556)
> #'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/1cdcr1354721835.tab")
>
>
>
> proc.time()
user system elapsed
0.324 0.091 0.398