R version 3.0.2 (2013-09-25) -- "Frisbee Sailing" Copyright (C) 2013 The R Foundation for Statistical Computing 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. > x <- c(20 + ,25 + ,15 + ,15 + ,25 + ,25 + ,25 + ,21 + ,30 + ,25 + ,20 + ,40 + ,13 + ,30 + ,25 + ,20 + ,25 + ,20 + ,25 + ,20 + ,20 + ,15 + ,15 + ,12 + ,20 + ,5 + ,20 + ,15 + ,25 + ,22 + ,20 + ,22 + ,25 + ,20 + ,20 + ,35 + ,30 + ,25 + ,20 + ,20 + ,20 + ,25 + ,25 + ,15 + ,20 + ,35 + ,25 + ,25 + ,30 + ,23 + ,10 + ,22 + ,25 + ,25 + ,22 + ,30 + ,20 + ,25 + ,25 + ,22 + ,25 + ,25 + ,25 + ,22 + ,25 + ,12 + ,18 + ,20 + ,20 + ,22 + ,30 + ,25 + ,22 + ,20 + ,50 + ,30 + ,25 + ,20 + ,30 + ,22 + ,25 + ,30 + ,22 + ,25 + ,22 + ,22 + ,25 + ,25 + ,25 + ,20 + ,22 + ,15 + ,20 + ,30 + ,20 + ,25 + ,30 + ,35 + ,22 + ,12 + ,30 + ,15 + ,10 + ,30 + ,9 + ,25 + ,20 + ,20 + ,35 + ,25 + ,35 + ,30 + ,12 + ,25 + ,15 + ,25 + ,25 + ,20 + ,20 + ,6 + ,15 + ,40 + ,20 + ,40 + ,25 + ,25 + ,20 + ,15 + ,15 + ,22 + ,24 + ,22 + ,20 + ,25 + ,25 + ,25 + ,35 + ,40 + ,20 + ,22 + ,22 + ,20 + ,25 + ,25 + ,18 + ,25 + ,20 + ,25 + ,30 + ,20 + ,22 + ,35 + ,22 + ,25 + ,25 + ,25 + ,25 + ,22 + ,23 + ,35 + ,15 + ,25 + ,18 + ,22 + ,25 + ,25 + ,28 + ,30 + ,20 + ,25 + ,25 + ,30 + ,22 + ,30 + ,10 + ,10 + ,25 + ,20 + ,22 + ,25 + ,25 + ,15 + ,22 + ,25 + ,25 + ,28 + ,22 + ,30 + ,25 + ,20 + ,25 + ,25 + ,20 + ,30 + ,20 + ,30 + ,50 + ,19 + ,20 + ,28 + ,20 + ,25 + ,35 + ,25 + ,25 + ,15 + ,16 + ,20 + ,20 + ,25 + ,30 + ,20 + ,25 + ,25 + ,25 + ,20 + ,20 + ,25 + ,25 + ,30 + ,22 + ,20 + ,25 + ,25 + ,18 + ,18 + ,20 + ,25 + ,25 + ,30 + ,25 + ,20 + ,25 + ,20 + ,20 + ,20 + ,22 + ,18 + ,22 + ,20 + ,15 + ,25 + ,25 + ,20 + ,25 + ,15 + ,22 + ,25 + ,25 + ,15 + ,12 + ,25 + ,30 + ,22 + ,15 + ,22 + ,25 + ,12 + ,18 + ,30 + ,25 + ,25 + ,40 + ,24 + ,25 + ,15 + ,25 + ,20 + ,25 + ,25 + ,25 + ,20 + ,30 + ,20 + ,25 + ,30 + ,22 + ,25 + ,25 + ,25 + ,50 + ,19 + ,50 + ,25 + ,35 + ,20 + ,20 + ,20 + ,20 + ,20 + ,25 + ,25 + ,25 + ,20 + ,20 + ,20 + ,20 + ,25 + ,18 + ,25 + ,22 + ,22 + ,30 + ,30 + ,8 + ,20 + ,25 + ,30 + ,50 + ,22 + ,20 + ,10 + ,25 + ,25 + ,25 + ,25 + ,18 + ,25 + ,20 + ,25 + ,30 + ,18 + ,20 + ,25 + ,22 + ,22 + ,20 + ,20 + ,25 + ,20 + ,20 + ,20 + ,20 + ,25 + ,20 + ,10 + ,20 + ,25 + ,30 + ,25 + ,50 + ,30 + ,30 + ,50 + ,15 + ,25 + ,25 + ,22 + ,20 + ,22 + ,30 + ,25 + ,18 + ,22 + ,22 + ,30 + ,40 + ,25 + ,20 + ,10 + ,20 + ,9 + ,15 + ,20 + ,15 + ,20 + ,30 + ,12 + ,15 + ,12 + ,20 + ,15 + ,12 + ,25 + ,20 + ,25 + ,25 + ,25 + ,30 + ,20 + ,25 + ,15 + ,15 + ,22 + ,10 + ,15 + ,10 + ,20 + ,25 + ,20 + ,20 + ,38 + ,20 + ,20 + ,20 + ,40 + ,25 + ,25 + ,30 + ,25 + ,10 + ,20 + ,25 + ,12 + ,15 + ,25 + ,20 + ,22 + ,22 + ,20 + ,25 + ,25 + ,25 + ,15 + ,40 + ,20 + ,20 + ,16 + ,25 + ,15 + ,20 + ,25 + ,20 + ,30 + ,50 + ,20 + ,25 + ,20 + ,30 + ,30 + ,25 + ,25 + ,12 + ,25 + ,25 + ,25 + ,20 + ,20 + ,20 + ,15 + ,20 + ,25 + ,15 + ,25 + ,50 + ,30 + ,20 + ,20 + ,25 + ,12 + ,15 + ,20 + ,20 + ,35 + ,22 + ,15 + ,18 + ,30 + ,22 + ,12 + ,12 + ,20 + ,20 + ,15 + ,25 + ,15 + ,20 + ,20 + ,25 + ,18 + ,30 + ,20 + ,25 + ,25 + ,25 + ,20 + ,20 + ,25 + ,20 + ,22 + ,15 + ,15 + ,22 + ,20 + ,10 + ,25 + ,20 + ,20 + ,15 + ,12 + ,20 + ,5 + ,20 + ,15 + ,15 + ,25 + ,25 + ,25 + ,15 + ,25 + ,22 + ,25 + ,20 + ,18 + ,22 + ,25 + ,35 + ,25 + ,25 + ,25 + ,35 + ,30 + ,22 + ,30 + ,50 + ,15 + ,25 + ,24 + ,20 + ,25 + ,25 + ,25 + ,12 + ,15 + ,22 + ,25 + ,25 + ,25 + ,25 + ,15 + ,20 + ,20 + ,15 + ,35 + ,30 + ,20 + ,22 + ,65 + ,20 + ,25 + ,22 + ,20 + ,25 + ,25 + ,20 + ,25 + ,15 + ,20 + ,12 + ,15 + ,10 + ,25 + ,15 + ,30 + ,35 + ,25 + ,25 + ,25 + ,25 + ,25 + ,40 + ,40 + ,25 + ,25 + ,20 + ,25 + ,25 + ,22 + ,25 + ,30 + ,25 + ,25 + ,30 + ,25 + ,25 + ,30 + ,25 + ,25 + ,20 + ,22 + ,22 + ,20 + ,25 + ,22 + ,25 + ,22 + ,40 + ,25 + ,25 + ,25 + ,22 + ,20 + ,35 + ,20 + ,35 + ,25 + ,22 + ,25 + ,25 + ,25 + ,25 + ,25 + ,40 + ,25 + ,30 + ,25 + ,20 + ,25 + ,25 + ,30 + ,22 + ,22 + ,20 + ,15 + ,15 + ,25 + ,25 + ,20 + ,20 + ,15 + ,25 + ,15 + ,20 + ,22 + ,25 + ,15 + ,15 + ,18 + ,5 + ,15 + ,25 + ,18 + ,40 + ,25 + ,25 + ,20 + ,30 + ,20 + ,25 + ,25 + ,25 + ,22 + ,22 + ,25 + ,25 + ,30 + ,25 + ,25 + ,25 + ,25 + ,20 + ,20 + ,25 + ,25 + ,25 + ,25 + ,20 + ,30 + ,25 + ,22 + ,30 + ,20 + ,20 + ,30 + ,25 + ,25 + ,30 + ,20 + ,25 + ,25 + ,24 + ,25 + ,30 + ,18 + ,15 + ,22 + ,22 + ,25 + ,22 + ,22 + ,25 + ,15 + ,20 + ,22 + ,18 + ,35 + ,20 + ,20 + ,20 + ,25 + ,25 + ,30 + ,15 + ,25 + ,22 + ,26 + ,25 + ,20 + ,25 + ,25 + ,25 + ,22 + ,25 + ,25 + ,20 + ,22 + ,30 + ,15 + ,30 + ,25 + ,20 + ,25 + ,25 + ,35 + ,22 + ,20 + ,25 + ,20 + ,20 + ,18 + ,20 + ,22 + ,25 + ,10 + ,20 + ,25 + ,20 + ,20 + ,30 + ,25 + ,20 + ,15 + ,20 + ,25 + ,10 + ,20 + ,25 + ,22 + ,22 + ,25 + ,25 + ,15 + ,25 + ,20 + ,10 + ,25 + ,16 + ,25 + ,35 + ,25 + ,15 + ,25 + ,25 + ,30 + ,25 + ,10 + ,22 + ,20 + ,25 + ,20 + ,20 + ,25 + ,22 + ,18 + ,30 + ,19 + ,25 + ,20 + ,25 + ,20 + ,25 + ,20 + ,22 + ,12 + ,30 + ,12 + ,22 + ,25 + ,25 + ,25 + ,25 + ,30 + ,30 + ,10 + ,22 + ,22 + ,25 + ,20 + ,22 + ,20 + ,25 + ,20 + ,15 + ,25 + ,20 + ,25 + ,20 + ,30 + ,15 + ,40 + ,25 + ,20 + ,22 + ,22 + ,30 + ,20 + ,40 + ,20 + ,25 + ,20 + ,25 + ,20 + ,50 + ,50 + ,25 + ,25 + ,40 + ,30 + ,22 + ,30 + ,20 + ,25 + ,25 + ,30 + ,25 + ,25 + ,20 + ,18 + ,18 + ,28 + ,25 + ,22 + ,15 + ,40 + ,40 + ,12 + ,12 + ,18 + ,12 + ,25 + ,26 + ,18 + ,25 + ,22 + ,15 + ,25 + ,15 + ,15 + ,15 + ,25 + ,15 + ,12 + ,22 + ,20 + ,20 + ,25 + ,20 + ,12 + ,9 + ,15 + ,12 + ,15 + ,25 + ,20 + ,20 + ,15 + ,15 + ,30 + ,21 + ,25 + ,22 + ,22 + ,50 + ,15 + ,25 + ,15 + ,25 + ,22 + ,18 + ,50 + ,20 + ,50 + ,20 + ,20 + ,30 + ,25 + ,20 + ,22 + ,25 + ,50 + ,40 + ,25 + ,25 + ,25 + ,25 + ,30 + ,40 + ,25 + ,30 + ,20) > par1 = '12' > par1 <- '12' > #'GNU S' R Code compiled by R2WASP v. 1.2.291 () > #Author: root > #To cite this work: Wessa P. (2012), Standard Deviation-Mean Plot (v1.0.6) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_smp.wasp/ > #Source of accompanying publication: Office for Research, Development, and Education > # > par1 <- as.numeric(par1) > (n <- length(x)) [1] 900 > (np <- floor(n / par1)) [1] 75 > arr <- array(NA,dim=c(par1,np)) > j <- 0 > k <- 1 > for (i in 1:(np*par1)) + { + j = j + 1 + arr[j,k] <- x[i] + if (j == par1) { + j = 0 + k=k+1 + } + } > arr [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [1,] 20 13 20 30 30 25 22 22 30 35 15 20 18 [2,] 25 30 5 25 23 25 20 22 35 25 40 25 25 [3,] 15 25 20 20 10 25 50 25 22 35 20 25 20 [4,] 15 20 15 20 22 22 30 25 12 30 40 25 25 [5,] 25 25 25 20 25 25 25 25 30 12 25 35 30 [6,] 25 20 22 25 25 12 20 20 15 25 25 40 20 [7,] 25 25 20 25 22 18 30 22 10 15 20 20 22 [8,] 21 20 22 15 30 20 22 15 30 25 15 22 35 [9,] 30 20 25 20 20 20 25 20 9 25 15 22 22 [10,] 25 15 20 35 25 22 30 30 25 20 22 20 25 [11,] 20 15 20 25 25 30 22 20 20 20 24 25 25 [12,] 40 12 35 25 22 25 25 25 20 6 22 25 25 [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24] [,25] [1,] 25 20 25 20 25 20 25 15 30 25 22 20 [2,] 22 25 15 30 15 25 30 25 22 15 25 20 [3,] 23 25 22 20 16 25 25 25 15 25 25 25 [4,] 35 30 25 30 20 30 20 20 22 20 25 25 [5,] 15 22 25 50 20 22 25 25 25 25 50 25 [6,] 25 30 28 19 25 20 20 15 12 25 19 20 [7,] 18 10 22 20 30 25 20 22 18 25 50 20 [8,] 22 10 30 28 20 25 20 25 30 20 25 20 [9,] 25 25 25 20 25 18 22 25 25 30 35 20 [10,] 25 20 20 25 25 18 18 15 25 20 20 25 [11,] 28 22 25 35 25 20 22 12 40 25 20 18 [12,] 30 25 25 25 20 25 20 25 24 30 20 25 [,26] [,27] [,28] [,29] [,30] [,31] [,32] [,33] [,34] [,35] [,36] [,37] [1,] 22 25 22 20 20 20 12 10 25 22 20 12 [2,] 22 25 22 25 22 9 25 15 25 20 25 25 [3,] 30 25 20 30 30 15 20 10 30 25 20 25 [4,] 30 25 20 25 25 20 25 20 25 25 30 25 [5,] 8 18 25 50 18 15 25 25 10 25 50 20 [6,] 20 25 20 30 22 20 25 20 20 15 20 20 [7,] 25 20 20 30 22 30 30 20 25 40 25 20 [8,] 30 25 20 50 30 12 20 38 12 20 20 15 [9,] 50 30 20 15 40 15 25 20 15 20 30 20 [10,] 22 18 25 25 25 12 15 20 25 16 30 25 [11,] 20 20 20 25 20 20 15 20 20 25 25 15 [12,] 10 25 10 22 10 15 22 40 22 15 25 25 [,38] [,39] [,40] [,41] [,42] [,43] [,44] [,45] [,46] [,47] [,48] [,49] [1,] 50 18 25 15 20 22 25 25 22 15 20 25 [2,] 30 30 18 15 15 25 24 15 20 30 25 25 [3,] 20 22 30 22 15 35 20 20 25 35 25 20 [4,] 20 12 20 20 25 25 25 20 25 25 22 22 [5,] 25 12 25 10 25 25 25 15 20 25 25 22 [6,] 12 20 25 25 25 25 25 35 25 25 30 20 [7,] 15 20 25 20 15 35 12 30 15 25 25 25 [8,] 20 15 20 20 25 30 15 20 20 25 25 22 [9,] 20 25 20 15 22 22 22 22 12 40 30 25 [10,] 35 15 25 12 25 30 25 65 15 40 25 22 [11,] 22 20 20 20 20 50 25 20 10 25 25 40 [12,] 15 20 22 5 18 15 25 25 25 25 30 25 [,50] [,51] [,52] [,53] [,54] [,55] [,56] [,57] [,58] [,59] [,60] [,61] [1,] 25 25 20 25 30 25 30 30 18 25 30 20 [2,] 25 25 15 15 20 25 20 18 35 20 25 22 [3,] 22 40 15 15 25 20 20 15 20 25 20 25 [4,] 20 25 25 18 25 20 30 22 20 25 25 10 [5,] 35 30 25 5 25 25 25 22 20 25 25 20 [6,] 20 25 20 15 22 25 25 25 25 22 35 25 [7,] 35 20 20 25 22 25 30 22 25 25 22 20 [8,] 25 25 15 18 25 25 20 22 30 25 20 20 [9,] 22 25 25 40 25 20 25 25 15 20 25 30 [10,] 25 30 15 25 30 30 25 15 25 22 20 25 [11,] 25 22 20 25 25 25 24 20 22 30 20 20 [12,] 25 22 22 20 25 22 25 22 26 15 18 15 [,62] [,63] [,64] [,65] [,66] [,67] [,68] [,69] [,70] [,71] [,72] [,73] [1,] 20 10 22 25 25 15 30 40 18 26 22 20 [2,] 25 25 20 20 30 25 20 30 28 18 20 15 [3,] 10 16 25 25 30 20 40 22 25 25 20 15 [4,] 20 25 20 20 10 25 20 30 22 22 25 30 [5,] 25 35 20 22 22 20 25 20 15 15 20 21 [6,] 22 25 25 12 22 30 20 25 40 25 12 25 [7,] 22 15 22 30 25 15 25 25 40 15 9 22 [8,] 25 25 18 12 20 40 20 30 12 15 15 22 [9,] 25 25 30 22 22 25 50 25 12 15 12 50 [10,] 15 30 19 25 20 20 50 25 18 25 15 15 [11,] 25 25 25 25 25 22 25 20 12 15 25 25 [12,] 20 10 20 25 20 22 25 18 25 12 20 15 [,74] [,75] [1,] 25 25 [2,] 22 50 [3,] 18 40 [4,] 50 25 [5,] 20 25 [6,] 50 25 [7,] 20 25 [8,] 20 30 [9,] 30 40 [10,] 25 25 [11,] 20 30 [12,] 22 20 > arr.mean <- array(NA,dim=np) > arr.sd <- array(NA,dim=np) > arr.range <- array(NA,dim=np) > for (j in 1:np) + { + arr.mean[j] <- mean(arr[,j],na.rm=TRUE) + arr.sd[j] <- sd(arr[,j],na.rm=TRUE) + arr.range[j] <- max(arr[,j],na.rm=TRUE) - min(arr[,j],na.rm=TRUE) + } > arr.mean [1] 23.83333 20.00000 20.75000 23.75000 23.25000 22.41667 26.75000 22.58333 [9] 21.50000 22.75000 23.58333 25.33333 24.33333 24.41667 22.00000 23.91667 [17] 26.83333 22.16667 22.75000 22.25000 20.75000 24.00000 23.75000 28.00000 [25] 21.91667 24.08333 23.41667 20.33333 28.91667 23.66667 16.91667 21.58333 [33] 21.50000 21.16667 22.33333 26.66667 20.58333 23.66667 19.08333 22.91667 [41] 16.58333 20.83333 28.25000 22.33333 26.00000 19.50000 27.91667 25.58333 [49] 24.41667 25.33333 26.16667 19.75000 20.50000 24.91667 23.91667 24.91667 [57] 21.50000 23.41667 23.25000 23.75000 21.00000 21.16667 22.16667 22.16667 [65] 21.91667 22.58333 23.25000 29.16667 25.83333 22.25000 19.00000 17.91667 [73] 22.91667 26.83333 30.00000 > arr.sd [1] 6.739751 5.543219 6.916712 5.276449 5.172040 4.581749 8.203381 [8] 3.776924 8.723010 8.760708 8.500891 6.154575 4.638443 5.230302 [15] 6.466698 3.848455 8.942578 4.365845 3.646293 3.387812 5.101248 [22] 7.385489 4.330127 11.127362 2.778434 10.791060 3.604501 3.773914 [29] 10.765757 7.414155 5.517877 5.333570 9.278519 6.042777 6.773388 [36] 8.348471 4.621262 10.473632 5.230302 3.449857 5.664215 4.260460 [43] 8.874120 4.458563 13.557956 5.351296 7.216878 3.088346 5.282188 [50] 4.923660 5.236816 4.025487 8.554637 2.906367 2.937480 3.704011 [57] 4.231913 5.468228 3.768892 4.901299 5.152228 4.687184 7.744010 [64] 3.459725 5.367551 5.282188 6.784005 11.247895 6.027714 9.918990 [71] 5.187397 5.230302 9.802211 11.288235 8.790491 > arr.range [1] 25 18 30 20 20 18 30 15 26 29 25 20 17 20 20 15 31 15 12 12 13 28 15 31 7 [26] 42 12 15 35 30 21 18 30 20 25 30 13 38 18 12 20 10 35 13 50 15 25 10 20 15 [51] 20 10 35 10 10 10 15 20 15 17 20 15 25 12 18 20 25 30 22 28 14 16 35 32 30 > (lm1 <- lm(arr.sd~arr.mean)) Call: lm(formula = arr.sd ~ arr.mean) Coefficients: (Intercept) arr.mean -2.6728 0.3832 > (lnlm1 <- lm(log(arr.sd)~log(arr.mean))) Call: lm(formula = log(arr.sd) ~ log(arr.mean)) Coefficients: (Intercept) log(arr.mean) -1.693 1.099 > (lm2 <- lm(arr.range~arr.mean)) Call: lm(formula = arr.range ~ arr.mean) Coefficients: (Intercept) arr.mean -8.771 1.293 > postscript(file="/var/wessaorg/rcomp/tmp/16re21386141574.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > plot(arr.mean,arr.sd,main='Standard Deviation-Mean Plot',xlab='mean',ylab='standard deviation') > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/2aub41386141574.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > plot(arr.mean,arr.range,main='Range-Mean Plot',xlab='mean',ylab='range') > dev.off() null device 1 > > #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,'Standard Deviation-Mean Plot',4,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Section',header=TRUE) > a<-table.element(a,'Mean',header=TRUE) > a<-table.element(a,'Standard Deviation',header=TRUE) > a<-table.element(a,'Range',header=TRUE) > a<-table.row.end(a) > for (j in 1:np) { + a<-table.row.start(a) + a<-table.element(a,j,header=TRUE) + a<-table.element(a,arr.mean[j]) + a<-table.element(a,arr.sd[j] ) + a<-table.element(a,arr.range[j] ) + a<-table.row.end(a) + } > a<-table.end(a) > table.save(a,file="/var/wessaorg/rcomp/tmp/3vluf1386141574.tab") > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Regression: S.E.(k) = alpha + beta * Mean(k)',2,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'alpha',header=TRUE) > a<-table.element(a,lm1$coefficients[[1]]) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'beta',header=TRUE) > a<-table.element(a,lm1$coefficients[[2]]) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'S.D.',header=TRUE) > a<-table.element(a,summary(lm1)$coefficients[2,2]) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'T-STAT',header=TRUE) > a<-table.element(a,summary(lm1)$coefficients[2,3]) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'p-value',header=TRUE) > a<-table.element(a,summary(lm1)$coefficients[2,4]) > a<-table.row.end(a) > a<-table.end(a) > table.save(a,file="/var/wessaorg/rcomp/tmp/48cxs1386141574.tab") > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Regression: ln S.E.(k) = alpha + beta * ln Mean(k)',2,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'alpha',header=TRUE) > a<-table.element(a,lnlm1$coefficients[[1]]) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'beta',header=TRUE) > a<-table.element(a,lnlm1$coefficients[[2]]) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'S.D.',header=TRUE) > a<-table.element(a,summary(lnlm1)$coefficients[2,2]) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'T-STAT',header=TRUE) > a<-table.element(a,summary(lnlm1)$coefficients[2,3]) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'p-value',header=TRUE) > a<-table.element(a,summary(lnlm1)$coefficients[2,4]) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Lambda',header=TRUE) > a<-table.element(a,1-lnlm1$coefficients[[2]]) > a<-table.row.end(a) > a<-table.end(a) > table.save(a,file="/var/wessaorg/rcomp/tmp/52j3g1386141575.tab") > > try(system("convert tmp/16re21386141574.ps tmp/16re21386141574.png",intern=TRUE)) character(0) > try(system("convert tmp/2aub41386141574.ps tmp/2aub41386141574.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 4.091 1.564 7.109