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(1418
+ ,869
+ ,1530
+ ,2172
+ ,901
+ ,463
+ ,3201
+ ,371
+ ,1192
+ ,1583
+ ,1439
+ ,1764
+ ,1495
+ ,1373
+ ,2187
+ ,1491
+ ,4041
+ ,1706
+ ,2152
+ ,1036
+ ,1882
+ ,1929
+ ,2242
+ ,1220
+ ,1289
+ ,2515
+ ,2147
+ ,2352
+ ,1638
+ ,1222
+ ,1812
+ ,1677
+ ,1579
+ ,1731
+ ,807
+ ,2452
+ ,829
+ ,1940
+ ,2662
+ ,186
+ ,1499
+ ,865
+ ,1793
+ ,2527
+ ,2747
+ ,1324
+ ,2702
+ ,1383
+ ,1179
+ ,2099
+ ,4308
+ ,918
+ ,1831
+ ,3373
+ ,1713
+ ,1438
+ ,496
+ ,2253
+ ,744
+ ,1161
+ ,2352
+ ,2144
+ ,4691
+ ,1112
+ ,2694
+ ,1973
+ ,1769
+ ,3148
+ ,2474
+ ,2084
+ ,1954
+ ,1226
+ ,1389
+ ,1496
+ ,2269
+ ,1833
+ ,1268
+ ,1943
+ ,893
+ ,1762
+ ,1403
+ ,1425
+ ,1857
+ ,1840
+ ,1502
+ ,1441
+ ,1420
+ ,1416
+ ,2970
+ ,1317
+ ,1644
+ ,870
+ ,1654
+ ,1054
+ ,937
+ ,3004
+ ,2008
+ ,2547
+ ,1885
+ ,1626
+ ,1468
+ ,2445
+ ,1964
+ ,1381
+ ,1369
+ ,1659
+ ,2888
+ ,1290
+ ,2845
+ ,1982
+ ,1904
+ ,1391
+ ,602
+ ,1743
+ ,1559
+ ,2014
+ ,2143
+ ,2146
+ ,874
+ ,1590
+ ,1590
+ ,1210
+ ,2072
+ ,1281
+ ,1401
+ ,834
+ ,1105
+ ,1272
+ ,1944
+ ,391
+ ,761
+ ,1605
+ ,530
+ ,1988
+ ,1386
+ ,2395
+ ,387
+ ,1742
+ ,620
+ ,449
+ ,800
+ ,1684
+ ,1050
+ ,2699
+ ,1606
+ ,1502
+ ,1204
+ ,1138
+ ,568
+ ,1459
+ ,2158
+ ,1111
+ ,1421
+ ,2833
+ ,1955
+ ,2922
+ ,1002
+ ,1060
+ ,956
+ ,2186
+ ,3604
+ ,1035
+ ,1417
+ ,3261
+ ,1587
+ ,1424
+ ,1701
+ ,1249
+ ,946
+ ,1926
+ ,3352
+ ,1641
+ ,2035
+ ,2312
+ ,1369
+ ,1577
+ ,2201
+ ,961
+ ,1900
+ ,1254
+ ,1335
+ ,1597
+ ,207
+ ,1645
+ ,2429
+ ,151
+ ,474
+ ,141
+ ,1639
+ ,872
+ ,1318
+ ,1018
+ ,1383
+ ,1314
+ ,1335
+ ,1403
+ ,910
+ ,616
+ ,1407
+ ,771
+ ,766
+ ,473
+ ,1376
+ ,1232
+ ,1521
+ ,572
+ ,1059
+ ,1544
+ ,1230
+ ,1206
+ ,1205
+ ,1255
+ ,613
+ ,721
+ ,1109
+ ,740
+ ,1126
+ ,728
+ ,689
+ ,592
+ ,995
+ ,1613
+ ,2048
+ ,705
+ ,301
+ ,1803
+ ,799
+ ,861
+ ,1186
+ ,1451
+ ,628
+ ,1161
+ ,1463
+ ,742
+ ,979
+ ,675
+ ,1241
+ ,676
+ ,1049
+ ,620
+ ,1081
+ ,1688
+ ,736
+ ,617
+ ,812
+ ,1051
+ ,1656
+ ,705
+ ,945
+ ,554
+ ,1597
+ ,982
+ ,222
+ ,1212
+ ,1143
+ ,435
+ ,532
+ ,882
+ ,608
+ ,459
+ ,578
+ ,826
+ ,509
+ ,717
+ ,637
+ ,857
+ ,830
+ ,652
+ ,707
+ ,954
+ ,1461
+ ,672
+ ,778
+ ,1141
+ ,680
+ ,1090
+ ,616
+ ,285
+ ,1145
+ ,733
+ ,888
+ ,849
+ ,1182
+ ,528
+ ,642
+ ,947
+ ,819
+ ,757
+ ,894)
> #'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('<pre>',RC.texteval('agostino'),'</pre>',sep=''))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,paste('<pre>',RC.texteval('anscombe'),'</pre>',sep=''))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,paste('<pre>',RC.texteval('jarque'),'</pre>',sep=''))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,paste('<pre>',RC.texteval('geary'),'</pre>',sep=''))
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/wessaorg/rcomp/tmp/1futy1323967372.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.263   0.051   0.306