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(83.87
+ ,84.23
+ ,84.61
+ ,84.82
+ ,85.04
+ ,85.06
+ ,84.93
+ ,84.98
+ ,85.23
+ ,85.30
+ ,85.33
+ ,85.55
+ ,85.70
+ ,85.88
+ ,86.04
+ ,86.07
+ ,86.31
+ ,86.38
+ ,86.35
+ ,86.55
+ ,86.70
+ ,86.74
+ ,86.85
+ ,86.95
+ ,86.80
+ ,87.01
+ ,87.17
+ ,87.43
+ ,87.66
+ ,87.68
+ ,87.59
+ ,87.65
+ ,87.72
+ ,87.70
+ ,87.71
+ ,87.80
+ ,87.62
+ ,87.84
+ ,88.17
+ ,88.47
+ ,88.58
+ ,88.57
+ ,88.55
+ ,88.68
+ ,88.79
+ ,88.85
+ ,88.95
+ ,89.27
+ ,89.09
+ ,89.42
+ ,89.72
+ ,89.85
+ ,89.96
+ ,90.25
+ ,90.20
+ ,90.27
+ ,90.78
+ ,90.79
+ ,90.98
+ ,91.25
+ ,90.75
+ ,91.01
+ ,91.50
+ ,92.09
+ ,92.56
+ ,92.66
+ ,92.38
+ ,92.38
+ ,92.66
+ ,92.69
+ ,92.59
+ ,92.98
+ ,92.98
+ ,93.15
+ ,93.65
+ ,94.06
+ ,94.24
+ ,94.24
+ ,94.11
+ ,94.16
+ ,94.43
+ ,94.67
+ ,94.60
+ ,95.00
+ ,94.84
+ ,95.26
+ ,95.81
+ ,95.92
+ ,95.85
+ ,95.90
+ ,95.80
+ ,96.00
+ ,96.34
+ ,96.43
+ ,96.48
+ ,96.75
+ ,96.51
+ ,96.69
+ ,97.28
+ ,97.69
+ ,98.08
+ ,98.09
+ ,97.92
+ ,98.06
+ ,98.23
+ ,98.57
+ ,98.53
+ ,98.92
+ ,98.42
+ ,98.73
+ ,99.32
+ ,99.73
+ ,100.00
+ ,100.08
+ ,100.02
+ ,100.26
+ ,100.71
+ ,100.95
+ ,100.75
+ ,101.03
+ ,100.64
+ ,100.93
+ ,101.41
+ ,102.07
+ ,102.42
+ ,102.53
+ ,102.43
+ ,102.60
+ ,102.65
+ ,102.74
+ ,102.82
+ ,103.21
+ ,102.75
+ ,103.09
+ ,103.71
+ ,104.30
+ ,104.58
+ ,104.71
+ ,104.44
+ ,104.57
+ ,104.95
+ ,105.49
+ ,106.03
+ ,106.48
+ ,106.25
+ ,106.70
+ ,107.60
+ ,108.05
+ ,108.72
+ ,109.17
+ ,109.08
+ ,109.04
+ ,109.34
+ ,109.37
+ ,108.96
+ ,108.77
+ ,108.11
+ ,108.67
+ ,109.05
+ ,109.43
+ ,109.62
+ ,109.85
+ ,109.34
+ ,109.65
+ ,109.69
+ ,109.91
+ ,110.09)
> par1 = '4'
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Prof. Dr. P. Wessa
> #To cite this work: AUTHOR(S), (YEAR), 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: Office for Research, Development, and Education
> #Technical description: Write here your technical program description (don't use hard returns!)
> par1 <- as.numeric(par1)
> (n <- length(x))
[1] 167
> (np <- floor(n / par1))
[1] 41
> 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]
[1,] 83.87 85.04 85.23 85.70 86.31 86.70 86.80 87.66 87.72 87.62 88.58 88.79
[2,] 84.23 85.06 85.30 85.88 86.38 86.74 87.01 87.68 87.70 87.84 88.57 88.85
[3,] 84.61 84.93 85.33 86.04 86.35 86.85 87.17 87.59 87.71 88.17 88.55 88.95
[4,] 84.82 84.98 85.55 86.07 86.55 86.95 87.43 87.65 87.80 88.47 88.68 89.27
     [,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24]
[1,] 89.09 89.96 90.78 90.75 92.56 92.66 92.98 94.24 94.43 94.84 95.85 96.34
[2,] 89.42 90.25 90.79 91.01 92.66 92.69 93.15 94.24 94.67 95.26 95.90 96.43
[3,] 89.72 90.20 90.98 91.50 92.38 92.59 93.65 94.11 94.60 95.81 95.80 96.48
[4,] 89.85 90.27 91.25 92.09 92.38 92.98 94.06 94.16 95.00 95.92 96.00 96.75
     [,25] [,26] [,27] [,28]  [,29]  [,30]  [,31]  [,32]  [,33]  [,34]  [,35]
[1,] 96.51 98.08 98.23 98.42 100.00 100.71 100.64 102.42 102.65 102.75 104.58
[2,] 96.69 98.09 98.57 98.73 100.08 100.95 100.93 102.53 102.74 103.09 104.71
[3,] 97.28 97.92 98.53 99.32 100.02 100.75 101.41 102.43 102.82 103.71 104.44
[4,] 97.69 98.06 98.92 99.73 100.26 101.03 102.07 102.60 103.21 104.30 104.57
      [,36]  [,37]  [,38]  [,39]  [,40]  [,41]
[1,] 104.95 106.25 108.72 109.34 108.11 109.62
[2,] 105.49 106.70 109.17 109.37 108.67 109.85
[3,] 106.03 107.60 109.08 108.96 109.05 109.34
[4,] 106.48 108.05 109.04 108.77 109.43 109.65
> 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]  84.3825  85.0025  85.3525  85.9225  86.3975  86.8100  87.1025  87.6450
 [9]  87.7325  88.0250  88.5950  88.9650  89.5200  90.1700  90.9500  91.3375
[17]  92.4950  92.7300  93.4600  94.1875  94.6750  95.4575  95.8875  96.5000
[25]  97.0425  98.0375  98.5625  99.0500 100.0900 100.8600 101.2625 102.4950
[33] 102.8550 103.4625 104.5750 105.7375 107.1500 109.0025 109.1100 108.8150
[41] 109.6150
> arr.sd
 [1] 0.41995039 0.05909033 0.13817260 0.17017148 0.10563301 0.11284207
 [7] 0.26575365 0.03872983 0.04573474 0.37296112 0.05802298 0.21377558
[13] 0.33852622 0.14306176 0.22015146 0.59021889 0.13892444 0.17185265
[19] 0.49078169 0.06396614 0.23895606 0.50281706 0.08539126 0.17644640
[25] 0.54267086 0.07932003 0.28253318 0.58725349 0.11832160 0.15448840
[31] 0.62500000 0.08582929 0.24664414 0.68534055 0.11030261 0.66289139
[37] 0.82158384 0.19602296 0.29359837 0.56317552 0.20984121
> arr.range
 [1] 0.95 0.13 0.32 0.37 0.24 0.25 0.63 0.09 0.10 0.85 0.13 0.48 0.76 0.31 0.47
[16] 1.34 0.28 0.39 1.08 0.13 0.57 1.08 0.20 0.41 1.18 0.17 0.69 1.31 0.26 0.32
[31] 1.43 0.18 0.56 1.55 0.27 1.53 1.80 0.45 0.60 1.32 0.51
> (lm1 <- lm(arr.sd~arr.mean))

Call:
lm(formula = arr.sd ~ arr.mean)

Coefficients:
(Intercept)     arr.mean  
   -0.71260      0.01038  

> (lnlm1 <- lm(log(arr.sd)~log(arr.mean)))

Call:
lm(formula = log(arr.sd) ~ log(arr.mean))

Coefficients:
  (Intercept)  log(arr.mean)  
      -19.058          3.835  

> (lm2 <- lm(arr.range~arr.mean))

Call:
lm(formula = arr.range ~ arr.mean)

Coefficients:
(Intercept)     arr.mean  
   -1.62522      0.02357  

> postscript(file="/var/www/html/rcomp/tmp/19ea41261567397.ps",horizontal=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/29gq21261567397.ps",horizontal=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/3ow391261567397.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/485sp1261567397.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/537tm1261567397.tab") 
> 
> try(system("convert tmp/19ea41261567397.ps tmp/19ea41261567397.png",intern=TRUE))
character(0)
> try(system("convert tmp/29gq21261567397.ps tmp/29gq21261567397.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.536   0.281   1.864