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(8 + ,10 + ,10 + ,13 + ,14 + ,12 + ,11 + ,8 + ,8 + ,10 + ,10 + ,12 + ,12 + ,12 + ,11 + ,12 + ,12 + ,12 + ,12 + ,12 + ,12 + ,10 + ,12 + ,10 + ,11 + ,10 + ,10 + ,12 + ,10 + ,12 + ,7 + ,12 + ,18 + ,12 + ,11 + ,13 + ,10 + ,10 + ,10 + ,8 + ,12 + ,10 + ,10 + ,8 + ,14 + ,9 + ,8 + ,12 + ,15 + ,14 + ,1 + ,9 + ,7 + ,8 + ,12 + ,57 + ,12 + ,10 + ,10 + ,8 + ,8 + ,16 + ,14 + ,13 + ,10 + ,12 + ,9 + ,12 + ,11 + ,10 + ,8 + ,8 + ,9 + ,12 + ,8 + ,12 + ,10 + ,12 + ,9 + ,8 + ,12 + ,8 + ,12 + ,10 + ,12 + ,9 + ,28 + ,10 + ,12 + ,9 + ,14 + ,12 + ,12 + ,99 + ,13 + ,13 + ,14 + ,12 + ,12 + ,10 + ,11 + ,12 + ,14 + ,10 + ,12 + ,12 + ,6 + ,12 + ,10 + ,12 + ,12 + ,12 + ,9 + ,12 + ,12 + ,13 + ,8 + ,12 + ,10 + ,10 + ,10 + ,9 + ,12 + ,9 + ,10 + ,8 + ,12 + ,10 + ,8 + ,8 + ,9 + ,12 + ,12 + ,10 + ,10 + ,9 + ,11 + ,10 + ,9 + ,15 + ,10 + ,8 + ,10 + ,8 + ,9 + ,9 + ,6 + ,16 + ,12 + ,12 + ,12 + ,12 + ,10 + ,12 + ,8 + ,9 + ,12 + ,12 + ,8 + ,14 + ,10 + ,12 + ,8 + ,11 + ,10 + ,12 + ,12 + ,12 + ,12 + ,8 + ,10 + ,7 + ,10 + ,10 + ,12 + ,11 + ,9 + ,10 + ,12 + ,14 + ,13 + ,10 + ,11 + ,10 + ,10 + ,8 + ,10 + ,10 + ,10 + ,8 + ,8 + ,4 + ,14 + ,8 + ,12 + ,12 + ,10 + ,8 + ,12 + ,12 + ,10 + ,10 + ,12 + ,12 + ,9 + ,11 + ,14 + ,10 + ,8 + ,12 + ,8 + ,10 + ,11 + ,12 + ,10 + ,10 + ,12 + ,8 + ,9 + ,12 + ,8 + ,8 + ,10 + ,10 + ,10 + ,14 + ,10 + ,12 + ,12 + ,13 + ,9 + ,12 + ,12 + ,10 + ,12 + ,6 + ,8 + ,12 + ,10 + ,9 + ,11 + ,11 + ,9 + ,10 + ,15 + ,12 + ,7 + ,7 + ,10 + ,9 + ,10 + ,10 + ,9 + ,12 + ,10 + ,9 + ,12 + ,10 + ,7 + ,12 + ,10 + ,10 + ,12 + ,8 + ,12 + ,10 + ,10 + ,9 + ,8 + ,8 + ,12 + ,12 + ,10 + ,12 + ,10 + ,9 + ,10 + ,10 + ,8 + ,10 + ,12 + ,12 + ,16 + ,10 + ,9 + ,12 + ,12 + ,10 + ,7 + ,12 + ,10 + ,10 + ,6 + ,9 + ,6 + ,18 + ,13 + ,10 + ,12 + ,15 + ,12 + ,12 + ,9 + ,7 + ,12 + ,13 + ,14 + ,13 + ,12 + ,8 + ,8 + ,10 + ,10 + ,8 + ,12 + ,10 + ,12 + ,12 + ,12 + ,9 + ,12 + ,7 + ,12 + ,8 + ,8 + ,12 + ,14 + ,10 + ,5 + ,9 + ,8 + ,13 + ,10 + ,10 + ,14 + ,10 + ,99 + ,10 + ,12 + ,17 + ,14 + ,8 + ,14 + ,12 + ,12 + ,10 + ,10 + ,8 + ,12 + ,12 + ,12 + ,10 + ,12 + ,10 + ,10 + ,12 + ,12 + ,12 + ,12 + ,13 + ,12 + ,8 + ,10 + ,12 + ,8 + ,10 + ,10 + ,12 + ,12 + ,12 + ,12 + ,12 + ,12 + ,14 + ,10 + ,12 + ,14 + ,12 + ,14 + ,12 + ,13 + ,8 + ,12 + ,14 + ,10 + ,10 + ,11 + ,16 + ,12 + ,10 + ,10 + ,99 + ,8 + ,11 + ,12 + ,12 + ,11 + ,10 + ,20 + ,9 + ,14 + ,12 + ,10 + ,12 + ,10 + ,12 + ,12 + ,8 + ,12 + ,12 + ,10 + ,99 + ,12 + ,2 + ,10 + ,10 + ,10 + ,12 + ,12 + ,12 + ,12 + ,88 + ,9 + ,12 + ,14 + ,8 + ,12 + ,10 + ,10 + ,10 + ,7 + ,8 + ,10 + ,1 + ,10 + ,10 + ,9 + ,15 + ,10 + ,12 + ,12 + ,12 + ,11 + ,12 + ,12 + ,14 + ,8 + ,12 + ,12 + ,10 + ,14 + ,8 + ,10 + ,12 + ,10 + ,10 + ,10 + ,12 + ,9 + ,12 + ,11 + ,8 + ,14 + ,12 + ,10 + ,12 + ,10 + ,8 + ,14 + ,12 + ,12 + ,12 + ,8 + ,12 + ,12 + ,10 + ,12 + ,12 + ,12 + ,9 + ,11 + ,10 + ,15 + ,10 + ,9 + ,9 + ,10 + ,7 + ,10 + ,9 + ,10 + ,10 + ,10 + ,15 + ,12 + ,12 + ,10 + ,12 + ,8 + ,12 + ,11 + ,8 + ,14 + ,8 + ,12 + ,10 + ,15 + ,9 + ,13 + ,12 + ,14 + ,12 + ,12 + ,17 + ,10 + ,13 + ,12 + ,12 + ,10 + ,12 + ,10 + ,12 + ,10 + ,10 + ,10 + ,1 + ,8 + ,12 + ,10 + ,10 + ,10 + ,12 + ,12 + ,11 + ,12 + ,8 + ,8 + ,12 + ,12 + ,10 + ,12 + ,9 + ,10 + ,12 + ,12 + ,12 + ,12 + ,10 + ,10 + ,9 + ,12 + ,10 + ,9 + ,12 + ,7 + ,14 + ,10 + ,10 + ,9 + ,10 + ,8 + ,10 + ,12 + ,12 + ,10 + ,9 + ,10 + ,9 + ,12 + ,10 + ,12 + ,10 + ,9 + ,7 + ,12 + ,11 + ,12 + ,9 + ,13 + ,12 + ,12 + ,7 + ,8 + ,12 + ,12 + ,12 + ,11 + ,12 + ,13 + ,10 + ,12 + ,10 + ,12 + ,12 + ,15 + ,12 + ,12 + ,13 + ,10 + ,10 + ,8 + ,11 + ,12 + ,12 + ,12 + ,12 + ,10 + ,10 + ,12 + ,15 + ,12 + ,10 + ,10 + ,7 + ,12 + ,10 + ,11 + ,10 + ,10 + ,10 + ,10 + ,11 + ,7 + ,15 + ,8 + ,10 + ,6 + ,8 + ,9 + ,8 + ,7 + ,10 + ,12 + ,14 + ,11 + ,8 + ,10 + ,8 + ,8 + ,14 + ,12 + ,15 + ,12 + ,12 + ,9 + ,12 + ,12 + ,9 + ,11 + ,15 + ,11 + ,12 + ,7 + ,15 + ,9 + ,10 + ,15 + ,15 + ,8 + ,11 + ,12 + ,10 + ,10 + ,12 + ,7 + ,12 + ,10 + ,11 + ,12 + ,10 + ,10 + ,8 + ,9 + ,8 + ,10 + ,10 + ,14 + ,10 + ,10 + ,12 + ,12 + ,7 + ,12 + ,10 + ,12 + ,9 + ,9 + ,13 + ,14 + ,10 + ,12 + ,12 + ,12 + ,12 + ,12 + ,10 + ,10 + ,8 + ,12 + ,8 + ,14 + ,10 + ,70 + ,12 + ,10 + ,8 + ,8 + ,11 + ,10 + ,8 + ,7 + ,8 + ,50 + ,9 + ,12 + ,12 + ,7 + ,10 + ,8 + ,10 + ,10 + ,10 + ,8 + ,12 + ,7 + ,13 + ,13 + ,8 + ,8 + ,11 + ,6 + ,12 + ,9 + ,12 + ,13 + ,13 + ,12 + ,12 + ,10 + ,8 + ,12 + ,10 + ,10 + ,15 + ,12 + ,10 + ,12 + ,8 + ,8 + ,12 + ,12 + ,10 + ,12 + ,9 + ,12 + ,12 + ,10 + ,9 + ,10 + ,10 + ,10 + ,12 + ,12 + ,12 + ,12 + ,8 + ,10 + ,12 + ,15 + ,10 + ,8 + ,15 + ,10 + ,9 + ,12 + ,99 + ,10 + ,10 + ,11 + ,11 + ,12 + ,12 + ,14 + ,12 + ,14 + ,9 + ,10 + ,12 + ,13 + ,10 + ,11 + ,10 + ,12 + ,12 + ,12 + ,13 + ,14 + ,9 + ,10 + ,10 + ,12 + ,12 + ,10 + ,99 + ,8 + ,99 + ,12 + ,99 + ,12 + ,10 + ,12 + ,10 + ,12 + ,12 + ,12 + ,10 + ,12 + ,12 + ,10 + ,10 + ,12 + ,99 + ,12 + ,12 + ,9 + ,99 + ,12 + ,12 + ,9 + ,12 + ,12 + ,12 + ,15 + ,12 + ,12 + ,12 + ,8 + ,8 + ,12 + ,8 + ,12 + ,12 + ,10 + ,10 + ,12 + ,99 + ,8 + ,8 + ,99 + ,10 + ,10 + ,5 + ,9 + ,9 + ,99 + ,9 + ,10 + ,12) > 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] 858 > (np <- floor(n / par1)) [1] 71 > 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,] 8 12 11 10 15 8 9 12 14 10 10 12 9 [2,] 10 12 10 10 14 16 12 9 12 12 9 10 9 [3,] 10 11 10 10 1 14 8 28 12 12 12 10 6 [4,] 13 12 12 8 9 13 12 10 10 12 9 9 16 [5,] 14 12 10 12 7 10 10 12 11 9 10 11 12 [6,] 12 12 12 10 8 12 12 9 12 12 8 10 12 [7,] 11 12 7 10 12 9 9 14 14 12 12 9 12 [8,] 8 12 12 8 57 12 8 12 10 13 10 15 12 [9,] 8 12 18 14 12 11 12 12 12 8 8 10 10 [10,] 10 10 12 9 10 10 8 99 12 12 8 8 12 [11,] 10 12 11 8 10 8 12 13 6 10 9 10 8 [12,] 12 10 13 12 8 8 10 13 12 10 12 8 9 [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24] [,25] [1,] 12 12 13 14 9 12 12 11 9 12 10 7 [2,] 12 8 10 8 11 8 13 11 12 10 10 12 [3,] 8 10 11 12 14 9 9 9 10 10 8 10 [4,] 14 7 10 12 10 12 12 10 9 9 10 10 [5,] 10 10 10 10 8 8 12 15 12 8 12 6 [6,] 12 10 8 8 12 8 10 12 10 8 12 9 [7,] 8 12 10 12 8 10 12 7 7 12 16 6 [8,] 11 11 10 12 10 10 6 7 12 12 10 18 [9,] 10 9 10 10 11 10 8 10 10 10 9 13 [10,] 12 10 8 10 12 14 12 9 10 12 12 10 [11,] 12 12 8 12 10 10 10 10 12 10 12 12 [12,] 12 14 4 12 10 12 9 10 8 9 10 15 [,26] [,27] [,28] [,29] [,30] [,31] [,32] [,33] [,34] [,35] [,36] [,37] [1,] 12 10 8 99 12 12 12 10 11 12 12 10 [2,] 12 8 12 10 12 8 14 10 10 12 88 1 [3,] 9 12 14 12 12 10 10 11 20 10 9 10 [4,] 7 10 10 17 10 12 12 16 9 99 12 10 [5,] 12 12 5 14 12 8 14 12 14 12 14 9 [6,] 13 12 9 8 10 10 12 10 12 2 8 15 [7,] 14 12 8 14 10 10 14 10 10 10 12 10 [8,] 13 9 13 12 12 12 12 99 12 10 10 12 [9,] 12 12 10 12 12 12 13 8 10 10 10 12 [10,] 8 7 10 10 12 12 8 11 12 12 10 12 [11,] 8 12 14 10 12 12 12 12 12 12 7 11 [12,] 10 8 10 8 13 12 14 12 8 12 8 12 [,38] [,39] [,40] [,41] [,42] [,43] [,44] [,45] [,46] [,47] [,48] [,49] [1,] 12 10 14 11 10 12 12 10 12 9 10 12 [2,] 14 12 12 10 15 10 12 10 9 12 9 9 [3,] 8 9 12 15 12 15 10 10 10 7 10 13 [4,] 12 12 12 10 12 9 12 12 12 14 9 12 [5,] 12 11 8 9 10 13 10 12 12 10 12 12 [6,] 10 8 12 9 12 12 12 11 12 10 10 7 [7,] 14 14 12 10 8 14 10 12 12 9 12 8 [8,] 8 12 10 7 12 12 10 8 10 10 10 12 [9,] 10 10 12 10 11 12 10 8 10 8 9 12 [10,] 12 12 12 9 8 17 1 12 9 10 7 12 [11,] 10 10 12 10 14 10 8 12 12 12 12 11 [12,] 10 8 9 10 8 13 12 10 10 12 11 12 [,50] [,51] [,52] [,53] [,54] [,55] [,56] [,57] [,58] [,59] [,60] [,61] [1,] 13 8 10 8 10 11 12 9 12 10 10 10 [2,] 10 11 7 10 8 15 10 8 9 8 8 10 [3,] 12 12 12 6 8 11 10 10 9 12 7 8 [4,] 10 12 10 8 14 12 12 10 13 8 8 12 [5,] 12 12 11 9 12 7 7 14 14 14 50 7 [6,] 12 12 10 8 15 15 12 10 10 10 9 13 [7,] 15 10 10 7 12 9 10 10 12 70 12 13 [8,] 12 10 10 10 12 10 11 12 12 12 12 8 [9,] 12 12 10 12 9 15 12 12 12 10 7 8 [10,] 13 15 11 14 12 15 10 7 12 8 10 11 [11,] 10 12 7 11 12 8 10 12 12 8 8 6 [12,] 10 10 15 8 9 11 8 10 10 11 10 12 [,62] [,63] [,64] [,65] [,66] [,67] [,68] [,69] [,70] [,71] [1,] 9 12 10 15 12 12 8 12 9 12 [2,] 12 10 9 10 12 12 99 12 12 12 [3,] 13 12 10 8 14 12 12 10 12 10 [4,] 13 8 10 15 12 13 99 10 12 10 [5,] 12 8 10 10 14 14 12 12 15 12 [6,] 12 12 12 9 9 9 10 99 12 99 [7,] 10 12 12 12 10 10 12 12 12 8 [8,] 8 10 12 99 12 10 10 12 12 8 [9,] 12 12 12 10 13 12 12 9 8 99 [10,] 10 9 8 10 10 12 12 99 8 10 [11,] 10 12 10 11 11 10 12 12 12 10 [12,] 15 12 12 11 10 99 10 12 8 5 > 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] 10.500000 11.583333 11.500000 10.083333 13.583333 10.916667 10.166667 [8] 20.250000 11.416667 11.000000 9.750000 10.166667 10.583333 11.083333 [15] 10.416667 9.333333 11.000000 10.416667 10.250000 10.416667 10.083333 [22] 10.083333 10.166667 10.916667 10.666667 10.833333 10.333333 10.250000 [29] 18.833333 11.583333 10.833333 12.250000 18.416667 11.666667 17.750000 [36] 16.666667 10.333333 11.000000 10.666667 11.416667 10.000000 11.000000 [43] 12.416667 9.916667 10.583333 10.833333 10.250000 10.083333 11.000000 [50] 11.750000 11.333333 10.250000 9.250000 11.083333 11.583333 10.333333 [57] 10.333333 11.416667 15.083333 12.583333 9.833333 11.333333 10.750000 [64] 10.583333 18.333333 11.583333 18.750000 25.666667 25.916667 11.000000 [71] 24.583333 > arr.sd [1] 1.9771421 0.7929615 2.5761141 1.8319554 14.1515070 2.5746433 [7] 1.7494588 25.2914826 2.1087839 1.5374122 1.5447860 1.8989630 [13] 2.6097138 1.7816404 1.9286516 2.1881222 1.8090681 1.7298625 [19] 1.9128750 2.1087839 2.1514618 1.6764862 1.5275252 2.0652243 [25] 3.6013465 2.3290003 1.9227506 2.6671401 25.3801402 0.9962049 [31] 1.5859229 1.8153387 25.4503379 3.0846639 25.7403998 22.5563268 [37] 3.3393884 2.0000000 1.8257419 1.6213537 1.8586408 2.2962420 [43] 2.2343733 3.0883456 1.5050420 1.2673045 1.9598237 1.5050420 [49] 1.9069252 1.5447860 1.7232809 2.0943647 2.2613351 2.2746961 [55] 2.8749177 1.6143298 1.9227506 1.5642793 17.4014541 11.9046082 [61] 2.4058011 1.9694639 1.6583124 1.3789544 25.4927203 1.6213537 [67] 25.3130401 34.2778310 34.1532864 2.2156468 34.8175983 > arr.range [1] 6 2 11 6 56 8 4 90 8 5 4 7 10 6 7 9 6 6 6 7 8 5 4 8 12 [26] 7 5 9 91 3 4 6 91 12 97 81 14 6 6 6 8 7 8 11 4 3 7 5 6 5 [51] 7 8 8 7 8 5 7 5 62 43 7 7 4 4 91 5 90 91 90 7 94 > (lm1 <- lm(arr.sd~arr.mean)) Call: lm(formula = arr.sd ~ arr.mean) Coefficients: (Intercept) arr.mean -23.624 2.435 > (lnlm1 <- lm(log(arr.sd)~log(arr.mean))) Call: lm(formula = log(arr.sd) ~ log(arr.mean)) Coefficients: (Intercept) log(arr.mean) -8.311 3.814 > (lm2 <- lm(arr.range~arr.mean)) Call: lm(formula = arr.range ~ arr.mean) Coefficients: (Intercept) arr.mean -71.188 7.492 > postscript(file="/var/wessaorg/rcomp/tmp/17a031386255134.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/231nv1386255134.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/3jclc1386255134.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/43bd71386255134.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/5w9vz1386255134.tab") > > try(system("convert tmp/17a031386255134.ps tmp/17a031386255134.png",intern=TRUE)) character(0) > try(system("convert tmp/231nv1386255134.ps tmp/231nv1386255134.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 3.807 1.303 5.159