R version 2.15.1 (2012-06-22) -- "Roasted Marshmallows"
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.5289553155589160
+ ,1.0795990914277700
+ ,2.5035691283495400
+ ,1.1968018488255600
+ ,2.2621985144496100
+ ,0.1675795984433140
+ ,1.1868194692454600
+ ,-1.2505572310752800
+ ,0.6179530298875080
+ ,-0.1003623053567360
+ ,-0.7884232948315860
+ ,-0.1656729948185870
+ ,-1.1514025373706900
+ ,0.3576140338077230
+ ,-1.5555138193455800
+ ,-5.9315173474010200
+ ,-0.5718883104944550
+ ,-1.8289659321642400
+ ,1.6915435314417800
+ ,1.4143322013433900
+ ,0.9382373601462850
+ ,-1.5271938787825900
+ ,1.8627369128986900
+ ,-0.1244126364061990
+ ,-0.8710066155562950
+ ,-4.4933771056537100
+ ,-2.6758735959078000
+ ,0.0131765787043652
+ ,0.9941346811033210
+ ,-1.9993260746890600
+ ,-0.6442899318664780
+ ,-0.0579091853624841
+ ,-2.5734388856631400
+ ,0.3707202670163830
+ ,-2.2158279027379200
+ ,1.5109995663081100
+ ,-0.0848336501057932
+ ,0.7367822704482010
+ ,-0.2037450261959020
+ ,1.9577792436340700
+ ,0.8111408656420470
+ ,0.1504403547423030
+ ,-0.4081239160177930
+ ,-0.3315420802973550
+ ,0.5124252623433140
+ ,1.0979350485424000
+ ,1.8350815136645400
+ ,3.4855294724894800
+ ,-3.8036983178067500
+ ,0.6086367540727820
+ ,-3.4356465732072100
+ ,-0.3045161962129770
+ ,1.5005292577557100
+ ,0.9179464811836530
+ ,0.3106808823144350
+ ,3.3352360576780300
+ ,-0.3948552598343450
+ ,1.5391321862306900
+ ,-1.8972308964944900
+ ,-0.0734340277607383
+ ,0.5344695088869730
+ ,4.1591382792064800
+ ,0.2103721536029200
+ ,-0.9318914872740260
+ ,0.2755389674984050
+ ,1.8079670001398200
+ ,-0.0009399937043473
+ ,0.6788235175907520
+ ,1.4176696415906200
+ ,0.9791297322198050
+ ,-1.4659920694421600
+ ,-0.0467263021787771
+ ,0.6454152453327600
+ ,-0.1513400589162510
+ ,-2.1175645148208300
+ ,1.0028001883982800
+ ,0.1943031245665970
+ ,2.0239253921543800
+ ,-0.0579234968137048
+ ,-0.2484618653646990
+ ,-1.3281275820727200
+ ,1.3427960263725200
+ ,2.5468244104264800
+ ,0.3713789001241610
+ ,1.6449810169619300
+ ,-2.1453694900908400
+ ,0.9620889473384400
+ ,0.2508198912043080
+ ,1.5773817621568400
+ ,0.0941899170956652
+ ,1.0922986031741000
+ ,0.2009441920994310
+ ,2.5165398503008200
+ ,-1.2771323268366500
+ ,-2.8509364773880700
+ ,1.3164375215603800
+ ,-1.4792823293474000
+ ,1.1648325744000600
+ ,-1.9141842200432200
+ ,0.4418656460949280
+ ,-1.1736541778858800
+ ,0.3365815674116860
+ ,-2.8746164193224200
+ ,-1.1543033457696300
+ ,-1.0767908814515100
+ ,-0.8394709523719420
+ ,-0.3974052626856010
+ ,0.8950337470234740
+ ,1.0561972107226000
+ ,-2.9071263620085300
+ ,1.9673540117145900
+ ,-3.1636475556094900
+ ,2.1361462403714400
+ ,-1.9433450129311300
+ ,-1.6453339855165200
+ ,-0.2770482712386600
+ ,0.8804528318855750
+ ,0.4459004677552830
+ ,-2.1466576650312000
+ ,-1.2774972691710100
+ ,-5.1923006180559800
+ ,2.9912290822740400
+ ,1.7988821116966100
+ ,0.3406306526371550
+ ,1.1846528212546200
+ ,-4.0215863915473000
+ ,1.9663880349396200
+ ,-2.1597746117287800
+ ,0.8534830591018050
+ ,0.1736742841637530
+ ,-2.9218993883106200
+ ,-1.2061099050721700
+ ,2.1210647272951700
+ ,4.3001640180371600
+ ,1.8224700669306400
+ ,-2.4357082686838700
+ ,0.0663078527130319
+ ,1.6062302432236000
+ ,1.1083668206726700
+ ,0.9985467185021890
+ ,-0.1643515174618420
+ ,0.4601502450410280)
> #'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/131wd1351860314.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.437   0.114   0.644