R version 2.15.3 (2013-03-01) -- "Security Blanket"
Copyright (C) 2013 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(57000
+ ,40200
+ ,21450
+ ,21900
+ ,45000
+ ,32100
+ ,36000
+ ,21900
+ ,27900
+ ,24000
+ ,30300
+ ,28350
+ ,27750
+ ,35100
+ ,27300
+ ,40800
+ ,46000
+ ,103750
+ ,42300
+ ,26250
+ ,38850
+ ,21750
+ ,24000
+ ,16950
+ ,21150
+ ,31050
+ ,60375
+ ,32550
+ ,135000
+ ,31200
+ ,36150
+ ,110625
+ ,42000
+ ,92000
+ ,81250
+ ,31350
+ ,29100
+ ,31350
+ ,36000
+ ,19200
+ ,23550
+ ,35100
+ ,23250
+ ,29250
+ ,30750
+ ,22350
+ ,30000
+ ,30750
+ ,34800
+ ,60000
+ ,35550
+ ,45150
+ ,73750
+ ,25050
+ ,27000
+ ,26850
+ ,33900
+ ,26400
+ ,28050
+ ,30900
+ ,22500
+ ,48000
+ ,55000
+ ,53125
+ ,21900
+ ,78125
+ ,46000
+ ,45250
+ ,56550
+ ,41100
+ ,82500
+ ,54000
+ ,26400
+ ,33900
+ ,24150
+ ,29250
+ ,27600
+ ,22950
+ ,34800
+ ,51000
+ ,24300
+ ,24750
+ ,22950
+ ,25050
+ ,25950
+ ,31650
+ ,24150
+ ,72500
+ ,68750
+ ,16200
+ ,20100
+ ,24000
+ ,25950
+ ,24600
+ ,28500
+ ,30750
+ ,40200
+ ,30000
+ ,22050
+ ,78250
+ ,60625
+ ,39900
+ ,97000
+ ,27450
+ ,31650
+ ,91250
+ ,25200
+ ,21000
+ ,30450
+ ,28350
+ ,30750
+ ,30750
+ ,54875
+ ,37800
+ ,33450
+ ,30300
+ ,31500
+ ,31650
+ ,25200
+ ,37800
+ ,18750
+ ,32550
+ ,33300
+ ,38550
+ ,27450
+ ,24300
+ ,30750
+ ,19650
+ ,68750
+ ,59375
+ ,31500
+ ,27300
+ ,27000
+ ,41550
+ ,26250
+ ,22200
+ ,65000
+ ,30900
+ ,20100
+ ,22350
+ ,35550
+ ,28500
+ ,24450
+ ,16650
+ ,26700
+ ,43950
+ ,23700
+ ,26550
+ ,27600
+ ,25800
+ ,42300
+ ,30750
+ ,26700
+ ,20850
+ ,35250
+ ,26700
+ ,26550
+ ,27750
+ ,25050
+ ,66000
+ ,52650
+ ,45625
+ ,30900
+ ,29400
+ ,33300
+ ,21900
+ ,18150
+ ,46875
+ ,25500
+ ,26550
+ ,26700
+ ,29850
+ ,69250
+ ,31950
+ ,26250
+ ,35700
+ ,28500
+ ,17100
+ ,25200
+ ,24000
+ ,27450
+ ,18450
+ ,39300
+ ,38850
+ ,30750
+ ,37500
+ ,58750
+ ,34500
+ ,36000
+ ,29100
+ ,16500
+ ,19650
+ ,24750
+ ,27150
+ ,26400
+ ,23100
+ ,54900
+ ,70875
+ ,51250
+ ,67500
+ ,29340
+ ,39600
+ ,29100
+ ,33150
+ ,66750
+ ,33750
+ ,27300
+ ,24000
+ ,19800
+ ,30600
+ ,28950
+ ,38400
+ ,30750
+ ,20400
+ ,19200
+ ,30150
+ ,34620
+ ,80000
+ ,25350
+ ,29850
+ ,24000
+ ,27750
+ ,22350
+ ,16200
+ ,21900
+ ,23250
+ ,33900
+ ,25650
+ ,17250
+ ,22500
+ ,40200
+ ,55500
+ ,26550
+ ,50550
+ ,75000
+ ,27450
+ ,22650
+ ,27300
+ ,27750
+ ,54375
+ ,17400
+ ,40800
+ ,23100
+ ,22500
+ ,26700
+ ,24900
+ ,19650
+ ,22050
+ ,25500
+ ,28200
+ ,23100
+ ,25500
+ ,17100
+ ,68125
+ ,30600
+ ,52125
+ ,61875
+ ,21300
+ ,19650
+ ,22350
+ ,23400
+ ,24300
+ ,28500
+ ,19950
+ ,23400
+ ,34500
+ ,18150
+ ,22350
+ ,40200
+ ,28650
+ ,27750
+ ,66875
+ ,30000
+ ,83750
+ ,33900
+ ,56500
+ ,43000
+ ,20850
+ ,24450
+ ,24750
+ ,34500
+ ,27900
+ ,68125
+ ,73500
+ ,30750
+ ,40050
+ ,40350
+ ,38700
+ ,65000
+ ,51450
+ ,35250
+ ,25950
+ ,25050
+ ,26700
+ ,24000
+ ,26850
+ ,23400
+ ,24600
+ ,32550
+ ,26550
+ ,31500
+ ,22350
+ ,35250
+ ,25800
+ ,30750
+ ,30750
+ ,50000
+ ,34500
+ ,26250
+ ,44875
+ ,22500
+ ,25650
+ ,21300
+ ,29850
+ ,34500
+ ,27750
+ ,27750
+ ,48750
+ ,43410
+ ,22050
+ ,22050
+ ,22500
+ ,25500
+ ,29160
+ ,16800
+ ,29550
+ ,26700
+ ,55000
+ ,62500
+ ,27300
+ ,24450
+ ,33000
+ ,37050
+ ,24450
+ ,31950
+ ,47250
+ ,26100
+ ,15900
+ ,23700
+ ,21750
+ ,59400
+ ,24450
+ ,103500
+ ,35700
+ ,22200
+ ,22950
+ ,23100
+ ,56750
+ ,29100
+ ,37650
+ ,27900
+ ,21150
+ ,31200
+ ,20550
+ ,25950
+ ,28350
+ ,17700
+ ,23550
+ ,19950
+ ,29400
+ ,28800
+ ,16950
+ ,35700
+ ,17400
+ ,21450
+ ,24750
+ ,16950
+ ,26100
+ ,28050
+ ,36600
+ ,58125
+ ,21300
+ ,22500
+ ,29400
+ ,27450
+ ,29850
+ ,25350
+ ,15750
+ ,19650
+ ,21000
+ ,27000
+ ,24000
+ ,78500
+ ,20850
+ ,30000
+ ,28500
+ ,65000
+ ,30150
+ ,66875
+ ,24150
+ ,24450
+ ,21600
+ ,27900
+ ,29100
+ ,22650
+ ,20850
+ ,22950
+ ,30600
+ ,20400
+ ,23850
+ ,22800
+ ,20700
+ ,21300
+ ,24300
+ ,19650
+ ,60000
+ ,30300
+ ,61250
+ ,36000
+ ,25200
+ ,16200
+ ,22800
+ ,43500
+ ,30300
+ ,31950
+ ,35250
+ ,37800
+ ,31200
+ ,29400
+ ,70000
+ ,33900
+ ,27150
+ ,22200
+ ,31350
+ ,20850
+ ,33300
+ ,26250
+ ,31950
+ ,30000
+ ,66250
+ ,86250
+ ,30750
+ ,33540
+ ,34950
+ ,40350
+ ,30270
+ ,26250
+ ,32400
+ ,20400
+ ,24150
+ ,23850
+ ,29700
+ ,21600
+ ,24450
+ ,28050
+ ,100000
+ ,49000
+ ,16350
+ ,70000
+ ,55000)
> #'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/1pqob1367312694.tab")
>
>
>
> proc.time()
user system elapsed
0.332 0.057 0.363