R version 2.9.0 (2009-04-17) Copyright (C) 2009 The R Foundation for Statistical Computing ISBN 3-900051-07-0 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(54.64,52.39,52.51,52.92,55.22,55.41,57.02,58.55,57.49,55.52,57.84,58.69,59.74,60.7,60.74,64.32,66.9,70.93,75.89,80.6,81.39,81.33,77.04,79.54,81.93,80.79,81.98,85.94,86.6,87.42,93.14,95.76,99.75,97.71,94.99,96.41,96.28,100.14,99.9,102.87,107.37,115.68,124.33,128.44,130.19,148.4,169.14,153.98,163.13,165.4,166.35,173.73,174.23,177.04,170.78,174.01,183.76,201.95,205.38,197.36,196.53,179.94,174.84,179.86,172.77,162.56,178.4,190.83,201.07,198.95,190.46,186.27,187.96,174.99,164.1,131.48,116.14,103.43,96.87,93.68,96.49,105.22,110.11,118.47,122.15,137.35,134.83,138.34,141.98,149.45,154.68,145.98,156.33,176.28,159.08,151.18,162.63,174.2,180.51,185.31,186.33) > par1 = '12' > par1 <- as.numeric(par1) > (n <- length(x)) [1] 101 > (np <- floor(n / par1)) [1] 8 > 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] [1,] 54.64 59.74 81.93 96.28 163.13 196.53 187.96 122.15 [2,] 52.39 60.70 80.79 100.14 165.40 179.94 174.99 137.35 [3,] 52.51 60.74 81.98 99.90 166.35 174.84 164.10 134.83 [4,] 52.92 64.32 85.94 102.87 173.73 179.86 131.48 138.34 [5,] 55.22 66.90 86.60 107.37 174.23 172.77 116.14 141.98 [6,] 55.41 70.93 87.42 115.68 177.04 162.56 103.43 149.45 [7,] 57.02 75.89 93.14 124.33 170.78 178.40 96.87 154.68 [8,] 58.55 80.60 95.76 128.44 174.01 190.83 93.68 145.98 [9,] 57.49 81.39 99.75 130.19 183.76 201.07 96.49 156.33 [10,] 55.52 81.33 97.71 148.40 201.95 198.95 105.22 176.28 [11,] 57.84 77.04 94.99 169.14 205.38 190.46 110.11 159.08 [12,] 58.69 79.54 96.41 153.98 197.36 186.27 118.47 151.18 > 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] 55.68333 71.59333 90.20167 123.06000 179.42667 184.37333 124.91167 [8] 147.30250 > arr.sd [1] 2.274692 8.715213 6.822512 23.912871 14.534739 11.671350 32.777617 [8] 13.920695 > arr.range [1] 6.30 21.65 18.96 72.86 42.25 38.51 94.28 54.13 > (lm1 <- lm(arr.sd~arr.mean)) Call: lm(formula = arr.sd ~ arr.mean) Coefficients: (Intercept) arr.mean 4.89080 0.07732 > (lnlm1 <- lm(log(arr.sd)~log(arr.mean))) Call: lm(formula = log(arr.sd) ~ log(arr.mean)) Coefficients: (Intercept) log(arr.mean) -3.853 1.326 > (lm2 <- lm(arr.range~arr.mean)) Call: lm(formula = arr.range ~ arr.mean) Coefficients: (Intercept) arr.mean 9.4928 0.2796 > postscript(file="/var/www/html/rcomp/tmp/16r471293202251.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/www/html/rcomp/tmp/26r471293202251.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/www/html/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/www/html/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/www/html/rcomp/tmp/3ar3d1293202251.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/www/html/rcomp/tmp/4vs111293202251.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/www/html/rcomp/tmp/5hai71293202251.tab") > > try(system("convert tmp/16r471293202251.ps tmp/16r471293202251.png",intern=TRUE)) character(0) > try(system("convert tmp/26r471293202251.ps tmp/26r471293202251.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 0.508 0.287 1.093