R version 2.12.1 (2010-12-16)
Copyright (C) 2010 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(-4800.76919902421
+ ,-8043.89877911646
+ ,2375.70233716633
+ ,-16436.0727280014
+ ,19830.2855842537
+ ,12071.4623167326
+ ,11696.3708373418
+ ,-3700.86883543485
+ ,25027.1219995496
+ ,-2173.2365303617
+ ,-32261.3006477224
+ ,-22233.3012785016
+ ,-9558.52324699268
+ ,-4588.48851109955
+ ,-23649.1994357739
+ ,-18319.7862346076
+ ,24298.9048194847
+ ,23320.2209464296
+ ,22781.2967496488
+ ,14495.165144538
+ ,-7002.41991775184
+ ,-8226.2691080278
+ ,-14912.558777462
+ ,1691.68101502799
+ ,-20534.2356092032
+ ,-2117.59935640815
+ ,-9705.8525996953
+ ,-24168.8212626746
+ ,-12745.2778966621
+ ,-25949.2011916873
+ ,-6768.62149185181
+ ,-4311.9633424201
+ ,-29578.2910781402
+ ,16865.8614391452
+ ,-21116.1404713277
+ ,-11520.6669743094
+ ,6958.93407569388
+ ,-18816.0009074235
+ ,-645.522099723311
+ ,-11209.1146208075
+ ,-13184.3747475593
+ ,-11858.534044734
+ ,-20592.5213031883
+ ,-26704.3750186249
+ ,-14378.8981932847
+ ,-6695.6330708694
+ ,-13861.1140337821
+ ,-6172.42325555551
+ ,8557.31533724687
+ ,26455.3704485817
+ ,-18360.2915867683
+ ,-2114.48728485245
+ ,17584.8809546185
+ ,-13655.4277400503
+ ,-16253.8348348691
+ ,-5115.16399331055
+ ,-3177.1435286084
+ ,-3384.65005924373
+ ,-5959.95249435208
+ ,-2435.51325572379
+ ,9241.28876619767
+ ,27013.8959291426
+ ,-11126.2838040042
+ ,-17872.6838072947
+ ,-23599.5351048224
+ ,-7752.38017486257
+ ,2624.43537964701
+ ,-947.736713586994
+ ,-20229.2968951451
+ ,-6515.43291839501
+ ,-5467.94012013662
+ ,-22434.1743023037
+ ,27177.2693875169
+ ,-34024.7212059932
+ ,16993.8350137451
+ ,2889.87194365388
+ ,-29065.3528404491
+ ,-15850.2812612217
+ ,-20599.7593877489
+ ,10353.1290545602
+ ,-6032.36081987565
+ ,8164.73331169692
+ ,-564.893999438765
+ ,132607.866903237
+ ,-8279.90796014692
+ ,94.9124775055727
+ ,-6401.20168755232
+ ,19793.6628149149
+ ,-22244.5988146295
+ ,-9007.88346989497
+ ,21187.3537650107
+ ,-11900.6446857243
+ ,-940.984588230262
+ ,-16549.9723386977
+ ,13285.7152692537
+ ,-24331.715652074
+ ,28785.7128386526
+ ,-14847.4985180417
+ ,8446.3205530636
+ ,-10283.1575536175
+ ,-9398.40805749205
+ ,8554.95003675066
+ ,34059.3268868791
+ ,25565.8432356781
+ ,35469.0978810729
+ ,-30507.8206355045
+ ,-5138.79985713808
+ ,13983.0082716583
+ ,-1048.15914510276
+ ,15781.2491830753
+ ,-8012.45384310811
+ ,3027.04961408025
+ ,-18611.559134787
+ ,-15419.4617773015
+ ,-5184.17275459935
+ ,861.849332849529
+ ,-7665.38091131691
+ ,98184.9243818133
+ ,-634.521312724279
+ ,-12111.9231156914
+ ,-9542.01724853361
+ ,-21072.2194992544
+ ,84741.8447205317
+ ,17426.7869782104
+ ,-12351.4507877579
+ ,8283.61894231867
+ ,1308.14093678108
+ ,16859.7375796189
+ ,-2449.42330516436
+ ,-3664.60147578841
+ ,-9258.87715901196
+ ,-5437.35368830736
+ ,-11851.2981557437
+ ,-15055.4629218523
+ ,-23443.5657661559
+ ,-1548.13237315567
+ ,24580.0964460831
+ ,24365.7643132803
+ ,-1079.80947715703
+ ,-7307.99818978412
+ ,10764.4405153651
+ ,2418.21319320253
+ ,-24147.6830095463
+ ,22239.6509543101
+ ,569.213277308305
+ ,38372.4255823802
+ ,38970.9993942044
+ ,-5404.52501244123
+ ,15166.6768084532
+ ,-12616.3630850948
+ ,-8467.28978037825
+ ,4115.81231217054
+ ,-19681.4293910892
+ ,-6121.88619045363
+ ,53340.0973142934
+ ,-6542.74309198628
+ ,-3958.40085483396
+ ,11020.6738632833
+ ,7693.62900730574
+ ,-4153.20707413414
+ ,63728.4198847912
+ ,4427.40501102394
+ ,35566.9267337617
+ ,-9002.38745468267
+ ,-25777.9990982296
+ ,-21984.0304953004
+ ,42444.2878790927
+ ,-19637.5442735976
+ ,37621.7213860289
+ ,18179.8144170208
+ ,4664.78334057066
+ ,17034.9748780908
+ ,-15150.3785932054
+ ,33575.1323110611
+ ,-7968.80423033686
+ ,35454.8578688707
+ ,-3304.71929195715
+ ,14719.3932070533
+ ,-14948.8199590703
+ ,7013.26562026567
+ ,25332.8231819225
+ ,755.454135787175
+ ,-2681.8342462793
+ ,-35703.8376285581
+ ,-1431.62282066095
+ ,-5790.5916823567
+ ,-2090.15438605537
+ ,-13215.6990379873
+ ,13169.7508861611
+ ,24263.3184627248
+ ,2801.79890406917
+ ,-15583.2476768363
+ ,-15724.9702768909
+ ,-5297.2715529359
+ ,-9083.02604456594
+ ,-6733.31607341977
+ ,33261.6958049576
+ ,23348.529756462
+ ,10326.4120695989
+ ,-12620.0127869183
+ ,-15308.6579223676
+ ,1890.17829367329
+ ,-2174.88335655744
+ ,-11704.1586583743
+ ,2222.73602752068
+ ,-8153.06201074868
+ ,-157.95627309415
+ ,-5690.30853228967
+ ,-19961.7483202425
+ ,-17683.7287384047
+ ,2796.23866927471
+ ,-3387.29176480132
+ ,-11474.0747901917
+ ,10993.7441491179
+ ,-22352.2280346276
+ ,-4122.09586032285
+ ,-893.355841310464
+ ,-16804.3872627731
+ ,-6477.1481977643
+ ,-6947.55255060597
+ ,-16285.3337249095
+ ,-18261.598185734
+ ,-4641.12938678698
+ ,-8419.87185669425
+ ,-15428.4376241671
+ ,17035.8256007421
+ ,1875.51233718517
+ ,-11354.0700685664
+ ,31268.1010874677
+ ,-12410.7639718451
+ ,-7070.00647028292
+ ,10513.0060497376
+ ,-3131.84042482264
+ ,5215.27166826783
+ ,-4084.41496863416
+ ,8449.33828564911
+ ,-7845.589230805
+ ,-10505.014164145
+ ,-3156.93538377287
+ ,9112.12501041877
+ ,-11111.4258435956
+ ,-8762.66803581273
+ ,-1322.70843189575
+ ,-2057.06270677263
+ ,8081.08371548912
+ ,5201.95443890732
+ ,1286.82579171914
+ ,17581.1951706
+ ,15935.3706372724
+ ,-1243.23221271913
+ ,1225.17845563945
+ ,-2668.30153643924
+ ,-1798.23472597849
+ ,-9042.88249174419
+ ,-349.493340628643
+ ,4183.09042159681
+ ,5679.5034524973
+ ,-11435.0767507401
+ ,-4413.67007042765
+ ,-2084.38125479004
+ ,-16636.8453818025
+ ,-2474.68686729585
+ ,-7496.20362948576
+ ,11465.1250852682
+ ,-3683.28546593844
+ ,-11516.7069643204
+ ,6376.99394825619
+ ,-14045.9833974651
+ ,11484.6916843896
+ ,-4753.5448073115
+ ,986.45543478732
+ ,2560.43348631781
+ ,-6221.52353778445
+ ,1196.40414603946
+ ,-6791.87268636928
+ ,18524.4628339922
+ ,-4890.61380023667
+ ,-16946.6253280763
+ ,-7521.3945957795
+ ,-1798.78533892612
+ ,65266.1045067318
+ ,12261.4828651915
+ ,-1217.24202393533
+ ,-2488.29780189514
+ ,19563.1818513045
+ ,-8910.56502716973
+ ,-8956.28844857163
+ ,-6386.91361210242)
> #'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/www/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/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/www/rcomp/tmp/13v0n1323768977.tab")
>
>
>
> proc.time()
user system elapsed
0.336 0.056 0.494