R version 2.11.1 (2010-05-31)
Copyright (C) 2010 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(268.5
+ ,270.5
+ ,270.9
+ ,270.1
+ ,269.3
+ ,269.8
+ ,270.1
+ ,264.9
+ ,263.7
+ ,264.8
+ ,263.7
+ ,255.9
+ ,276.2
+ ,360.1
+ ,380.5
+ ,373.7
+ ,369.8
+ ,366.6
+ ,359.3
+ ,345.8
+ ,326.2
+ ,324.5
+ ,328.1
+ ,327.5
+ ,324.4
+ ,316.5
+ ,310.9
+ ,301.5
+ ,291.7
+ ,290.4
+ ,287.4
+ ,277.7
+ ,281.6
+ ,288
+ ,276
+ ,272.9
+ ,283
+ ,283.3
+ ,276.8
+ ,284.5
+ ,282.7
+ ,281.2
+ ,287.4
+ ,283.1
+ ,284
+ ,285.5
+ ,289.2
+ ,292.5
+ ,296.4
+ ,305.2
+ ,303.9
+ ,311.5
+ ,316.3
+ ,316.7
+ ,322.5
+ ,317.1
+ ,309.8
+ ,303.8
+ ,290.3
+ ,293.7
+ ,291.7
+ ,296.5
+ ,289.1
+ ,288.5
+ ,293.8
+ ,297.7
+ ,305.4
+ ,302.7
+ ,302.5
+ ,303
+ ,294.5
+ ,294.1
+ ,294.5
+ ,297.1
+ ,289.4
+ ,292.4
+ ,287.9
+ ,286.6
+ ,280.5
+ ,272.4
+ ,269.2
+ ,270.6
+ ,267.3
+ ,262.5
+ ,266.8
+ ,268.8
+ ,263.1
+ ,261.2
+ ,266
+ ,262.5
+ ,265.2
+ ,261.3
+ ,253.7
+ ,249.2
+ ,239.1
+ ,236.4
+ ,235.2
+ ,245.2
+ ,246.2
+ ,247.7
+ ,251.4
+ ,253.3
+ ,254.8
+ ,250
+ ,249.3
+ ,241.5
+ ,243.3
+ ,248
+ ,253
+ ,252.9
+ ,251.5
+ ,251.6
+ ,253.5
+ ,259.8
+ ,334.1
+ ,448
+ ,445.8
+ ,445
+ ,448.2
+ ,438.2
+ ,439.8
+ ,423.4
+ ,410.8
+ ,408.4
+ ,406.7
+ ,405.9
+ ,402.7
+ ,405.1
+ ,399.6
+ ,386.5
+ ,381.4
+ ,375.2
+ ,357.7
+ ,359
+ ,355
+ ,352.7
+ ,344.4
+ ,343.8
+ ,338
+ ,339
+ ,333.3
+ ,334.4
+ ,328.3
+ ,330.7
+ ,330
+ ,331.6
+ ,351.2
+ ,389.4
+ ,410.9
+ ,442.8
+ ,462.8
+ ,466.9
+ ,461.7
+ ,439.2
+ ,430.3
+ ,416.1
+ ,402.5
+ ,397.3
+ ,403.3
+ ,395.9
+ ,387.8
+ ,378.6
+ ,377.1
+ ,370.4
+ ,362
+ ,350.3
+ ,348.2
+ ,344.6
+ ,343.5
+ ,342.8
+ ,347.6
+ ,346.6
+ ,349.5
+ ,342.1
+ ,342
+ ,342.8
+ ,339.3
+ ,348.2
+ ,333.7
+ ,334.7
+ ,354
+ ,367.7
+ ,363.3
+ ,358.4
+ ,353.1
+ ,343.1
+ ,344.6
+ ,344.4
+ ,333.9
+ ,331.7
+ ,324.3
+ ,321.2
+ ,322.4
+ ,321.7
+ ,320.5
+ ,312.8
+ ,309.7
+ ,315.6
+ ,309.7
+ ,304.6
+ ,302.5
+ ,301.5
+ ,298.8
+ ,291.3
+ ,293.6
+ ,294.6
+ ,285.9
+ ,297.6
+ ,301.1
+ ,293.8
+ ,297.7
+ ,292.9
+ ,292.1
+ ,287.2
+ ,288.2
+ ,283.8
+ ,299.9
+ ,292.4
+ ,293.3
+ ,300.8
+ ,293.7
+ ,293.1
+ ,294.4
+ ,292.1
+ ,291.9
+ ,282.5
+ ,277.9
+ ,287.5
+ ,289.2
+ ,285.6
+ ,293.2
+ ,290.8
+ ,283.1
+ ,275
+ ,287.8
+ ,287.8
+ ,287.4
+ ,284
+ ,277.8
+ ,277.6
+ ,304.9
+ ,294
+ ,300.9
+ ,324
+ ,332.9
+ ,341.6
+ ,333.4
+ ,348.2
+ ,344.7
+ ,344.7
+ ,329.3
+ ,323.5
+ ,323.2
+ ,317.4
+ ,330.1
+ ,329.2
+ ,334.9
+ ,315.8
+ ,315.4
+ ,319.6
+ ,317.3
+ ,313.8
+ ,315.8
+ ,311.3)
> par1 = '12'
> #'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] 264
> (np <- floor(n / par1))
[1] 22
> arr <- array(NA,dim=c(par1,np+1))
> darr <- array(NA,dim=c(par1,np+1))
> ari <- array(0,dim=par1)
> dx <- diff(x)
> j <- 0
> for (i in 1:n)
+ {
+ j = j + 1
+ ari[j] = ari[j] + 1
+ arr[j,ari[j]] <- x[i]
+ darr[j,ari[j]] <- dx[i]
+ if (j == par1) j = 0
+ }
> ari
 [1] 22 22 22 22 22 22 22 22 22 22 22 22
> arr
       [,1]  [,2]  [,3]  [,4]  [,5]  [,6]  [,7]  [,8]  [,9] [,10] [,11] [,12]
 [1,] 268.5 276.2 324.4 283.0 296.4 291.7 294.5 266.8 235.2 253.0 439.8 357.7
 [2,] 270.5 360.1 316.5 283.3 305.2 296.5 297.1 268.8 245.2 252.9 423.4 359.0
 [3,] 270.9 380.5 310.9 276.8 303.9 289.1 289.4 263.1 246.2 251.5 410.8 355.0
 [4,] 270.1 373.7 301.5 284.5 311.5 288.5 292.4 261.2 247.7 251.6 408.4 352.7
 [5,] 269.3 369.8 291.7 282.7 316.3 293.8 287.9 266.0 251.4 253.5 406.7 344.4
 [6,] 269.8 366.6 290.4 281.2 316.7 297.7 286.6 262.5 253.3 259.8 405.9 343.8
 [7,] 270.1 359.3 287.4 287.4 322.5 305.4 280.5 265.2 254.8 334.1 402.7 338.0
 [8,] 264.9 345.8 277.7 283.1 317.1 302.7 272.4 261.3 250.0 448.0 405.1 339.0
 [9,] 263.7 326.2 281.6 284.0 309.8 302.5 269.2 253.7 249.3 445.8 399.6 333.3
[10,] 264.8 324.5 288.0 285.5 303.8 303.0 270.6 249.2 241.5 445.0 386.5 334.4
[11,] 263.7 328.1 276.0 289.2 290.3 294.5 267.3 239.1 243.3 448.2 381.4 328.3
[12,] 255.9 327.5 272.9 292.5 293.7 294.1 262.5 236.4 248.0 438.2 375.2 330.7
      [,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23]
 [1,] 330.0 402.5 343.5 354.0 322.4 293.6 299.9 289.2 304.9 323.2    NA
 [2,] 331.6 397.3 342.8 367.7 321.7 294.6 292.4 285.6 294.0 317.4    NA
 [3,] 351.2 403.3 347.6 363.3 320.5 285.9 293.3 293.2 300.9 330.1    NA
 [4,] 389.4 395.9 346.6 358.4 312.8 297.6 300.8 290.8 324.0 329.2    NA
 [5,] 410.9 387.8 349.5 353.1 309.7 301.1 293.7 283.1 332.9 334.9    NA
 [6,] 442.8 378.6 342.1 343.1 315.6 293.8 293.1 275.0 341.6 315.8    NA
 [7,] 462.8 377.1 342.0 344.6 309.7 297.7 294.4 287.8 333.4 315.4    NA
 [8,] 466.9 370.4 342.8 344.4 304.6 292.9 292.1 287.8 348.2 319.6    NA
 [9,] 461.7 362.0 339.3 333.9 302.5 292.1 291.9 287.4 344.7 317.3    NA
[10,] 439.2 350.3 348.2 331.7 301.5 287.2 282.5 284.0 344.7 313.8    NA
[11,] 430.3 348.2 333.7 324.3 298.8 288.2 277.9 277.8 329.3 315.8    NA
[12,] 416.1 344.6 334.7 321.2 291.3 283.8 287.5 277.6 323.5 311.3    NA
> darr
      [,1]  [,2]  [,3] [,4]  [,5] [,6] [,7]  [,8] [,9] [,10] [,11] [,12] [,13]
 [1,]  2.0  83.9  -7.9  0.3   8.8  4.8  2.6   2.0 10.0  -0.1 -16.4   1.3   1.6
 [2,]  0.4  20.4  -5.6 -6.5  -1.3 -7.4 -7.7  -5.7  1.0  -1.4 -12.6  -4.0  19.6
 [3,] -0.8  -6.8  -9.4  7.7   7.6 -0.6  3.0  -1.9  1.5   0.1  -2.4  -2.3  38.2
 [4,] -0.8  -3.9  -9.8 -1.8   4.8  5.3 -4.5   4.8  3.7   1.9  -1.7  -8.3  21.5
 [5,]  0.5  -3.2  -1.3 -1.5   0.4  3.9 -1.3  -3.5  1.9   6.3  -0.8  -0.6  31.9
 [6,]  0.3  -7.3  -3.0  6.2   5.8  7.7 -6.1   2.7  1.5  74.3  -3.2  -5.8  20.0
 [7,] -5.2 -13.5  -9.7 -4.3  -5.4 -2.7 -8.1  -3.9 -4.8 113.9   2.4   1.0   4.1
 [8,] -1.2 -19.6   3.9  0.9  -7.3 -0.2 -3.2  -7.6 -0.7  -2.2  -5.5  -5.7  -5.2
 [9,]  1.1  -1.7   6.4  1.5  -6.0  0.5  1.4  -4.5 -7.8  -0.8 -13.1   1.1 -22.5
[10,] -1.1   3.6 -12.0  3.7 -13.5 -8.5 -3.3 -10.1  1.8   3.2  -5.1  -6.1  -8.9
[11,] -7.8  -0.6  -3.1  3.3   3.4 -0.4 -4.8  -2.7  4.7 -10.0  -6.2   2.4 -14.2
[12,] 20.3  -3.1  10.1  3.9  -2.0  0.4  4.3  -1.2  5.0   1.6 -17.5  -0.7 -13.6
      [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23]
 [1,]  -5.2  -0.7  13.7  -0.7   1.0  -7.5  -3.6 -10.9  -5.8    NA
 [2,]   6.0   4.8  -4.4  -1.2  -8.7   0.9   7.6   6.9  12.7    NA
 [3,]  -7.4  -1.0  -4.9  -7.7  11.7   7.5  -2.4  23.1  -0.9    NA
 [4,]  -8.1   2.9  -5.3  -3.1   3.5  -7.1  -7.7   8.9   5.7    NA
 [5,]  -9.2  -7.4 -10.0   5.9  -7.3  -0.6  -8.1   8.7 -19.1    NA
 [6,]  -1.5  -0.1   1.5  -5.9   3.9   1.3  12.8  -8.2  -0.4    NA
 [7,]  -6.7   0.8  -0.2  -5.1  -4.8  -2.3   0.0  14.8   4.2    NA
 [8,]  -8.4  -3.5 -10.5  -2.1  -0.8  -0.2  -0.4  -3.5  -2.3    NA
 [9,] -11.7   8.9  -2.2  -1.0  -4.9  -9.4  -3.4   0.0  -3.5    NA
[10,]  -2.1 -14.5  -7.4  -2.7   1.0  -4.6  -6.2 -15.4   2.0    NA
[11,]  -3.6   1.0  -3.1  -7.5  -4.4   9.6  -0.2  -5.8  -4.5    NA
[12,]  -1.1  19.3   1.2   2.3  16.1   1.7  27.3  -0.3    NA    NA
> arr.mean <- array(NA,dim=par1)
> arr.median <- array(NA,dim=par1)
> arr.midrange <- array(NA,dim=par1)
> for (j in 1:par1)
+ {
+ arr.mean[j] <- mean(arr[j,],na.rm=TRUE)
+ arr.median[j] <- median(arr[j,],na.rm=TRUE)
+ arr.midrange[j] <- (quantile(arr[j,],0.75,na.rm=TRUE) + quantile(arr[j,],0.25,na.rm=TRUE)) / 2
+ }
> overall.mean <- mean(x)
> overall.median <- median(x)
> overall.midrange <- (quantile(x,0.75) + quantile(x,0.25)) / 2
> postscript(file="/var/www/rcomp/tmp/17x3r1290713184.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot(arr.mean,type='b',ylab='mean',main='Mean Plot',xlab='Periodic Index')
> mtext(paste('#blocks = ',np))
> abline(overall.mean,0)
> dev.off()
null device 
          1 
> postscript(file="/var/www/rcomp/tmp/27x3r1290713184.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot(arr.median,type='b',ylab='median',main='Median Plot',xlab='Periodic Index')
> mtext(paste('#blocks = ',np))
> abline(overall.median,0)
> dev.off()
null device 
          1 
> postscript(file="/var/www/rcomp/tmp/37x3r1290713184.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot(arr.midrange,type='b',ylab='midrange',main='Midrange Plot',xlab='Periodic Index')
> mtext(paste('#blocks = ',np))
> abline(overall.midrange,0)
> dev.off()
null device 
          1 
> postscript(file="/var/www/rcomp/tmp/40p2u1290713184.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> z <- data.frame(t(arr))
> names(z) <- c(1:par1)
> (boxplot(z,notch=TRUE,col='grey',xlab='Periodic Index',ylab='Value',main='Notched Box Plots - Periodic Subseries'))
$stats
       [,1]   [,2]  [,3]  [,4]  [,5]   [,6]   [,7]   [,8]   [,9] [,10]  [,11]
[1,] 235.20 245.20 246.2 247.7 251.4 253.30 254.80 250.00 249.30 241.5 239.10
[2,] 283.00 285.60 285.9 288.5 283.1 281.20 287.40 283.10 284.00 284.0 277.80
[3,] 298.15 301.15 302.4 306.5 305.4 306.65 312.55 310.85 306.15 303.4 296.65
[4,] 330.00 342.80 351.2 352.7 349.5 343.10 342.00 345.80 339.30 344.7 329.30
[5,] 357.70 423.40 410.8 408.4 410.9 405.90 402.70 405.10 399.60 386.5 381.40
     [,12]
[1,] 236.4
[2,] 277.6
[3,] 293.9
[4,] 330.7
[5,] 375.2

$n
 [1] 22 22 22 22 22 22 22 22 22 22 22 22

$conf
         [,1]     [,2]     [,3]     [,4]     [,5]     [,6]     [,7]     [,8]
[1,] 282.3177 281.8818 280.4032 284.8738 283.0327 285.7985 294.1576 289.7291
[2,] 313.9823 320.4182 324.3968 328.1262 327.7673 327.5015 330.9424 331.9709
         [,9]    [,10]    [,11]    [,12]
[1,] 287.5218 282.9528 279.3019 276.0129
[2,] 324.7782 323.8472 313.9981 311.7871

$out
 [1] 439.8 402.5 442.8 462.8 448.0 466.9 445.8 461.7 445.0 439.2 448.2 430.3
[13] 438.2 416.1

$group
 [1]  1  1  6  7  8  8  9  9 10 10 11 11 12 12

$names
 [1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10" "11" "12"

Warning message:
In bxp(list(stats = c(235.2, 283, 298.15, 330, 357.7, 245.2, 285.6,  :
  some notches went outside hinges ('box'): maybe set notch=FALSE
> dev.off()
null device 
          1 
> postscript(file="/var/www/rcomp/tmp/50p2u1290713184.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> z <- data.frame(t(darr))
> names(z) <- c(1:par1)
> (boxplot(z,notch=TRUE,col='grey',xlab='Periodic Index',ylab='Value',main='Notched Box Plots - Differenced Periodic Subseries'))
$stats
       [,1]   [,2]  [,3]  [,4]   [,5] [,6]  [,7]   [,8]   [,9]  [,10] [,11]
[1,] -16.40 -12.60 -9.40 -9.80 -19.10 -8.2 -13.5 -10.50 -13.10 -15.40 -14.2
[2,]  -5.20  -5.70 -2.40 -5.30  -7.30 -3.2  -5.2  -5.70  -6.00  -8.90  -5.8
[3,]   0.65  -1.25 -0.85 -1.25  -1.05  0.8  -3.3  -2.75  -1.95  -4.85  -3.1
[4,]   2.60   6.00  7.50  4.80   1.90  5.8   1.0  -0.70   1.10   1.00   1.0
[5,]  13.70  20.40 11.70  8.90   8.70 12.8   4.2   3.90   8.90   3.70   9.6
     [,12]
[1,]  -3.1
[2,]  -1.1
[3,]   1.6
[4,]   5.0
[5,]  10.1

$n
 [1] 22 22 22 22 22 22 22 22 22 22 22 21

$conf
          [,1]      [,2]      [,3]      [,4]      [,5]      [,6]      [,7]
[1,] -1.977486 -5.191228 -4.184886 -4.652257 -4.149086 -2.231714 -5.388514
[2,]  3.277486  2.691228  2.484886  2.152257  2.049086  3.831714 -1.211486
          [,8]       [,9]     [,10]      [,11]     [,12]
[1,] -4.434286 -4.3416856 -8.184886 -5.3906285 -0.503184
[2,] -1.065714  0.4416856 -1.515114 -0.8093715  3.703184

$out
 [1]  83.9  38.2  23.1  21.5  31.9  74.3  20.0 113.9  14.8 -19.6 -22.5  20.3
[13] -17.5 -13.6  19.3  16.1  27.3

$group
 [1]  1  3  3  4  5  6  6  7  7  8  9 12 12 12 12 12 12

$names
 [1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10" "11" "12"

Warning message:
In bxp(list(stats = c(-16.4000000000000, -5.19999999999999, 0.650000000000006,  :
  some notches went outside hinges ('box'): maybe set notch=FALSE
> dev.off()
null device 
          1 
> postscript(file="/var/www/rcomp/tmp/6ay1x1290713184.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> z <- data.frame(arr)
> names(z) <- c(1:np)
> (boxplot(z,notch=TRUE,col='grey',xlab='Block Index',ylab='Value',main='Notched Box Plots - Sequential Blocks'))
$stats
       [,1]   [,2]   [,3]   [,4]  [,5]   [,6]   [,7]   [,8]   [,9]  [,10]
[1,] 255.90 276.20 272.90 281.20 290.3 288.50 262.50 236.40 235.20 251.50
[2,] 264.25 326.85 279.65 282.85 300.1 292.75 269.90 251.45 244.25 252.95
[3,] 268.90 352.55 289.20 283.65 307.5 295.50 283.55 261.90 247.85 296.95
[4,] 270.10 368.20 306.20 286.45 316.5 302.60 290.90 265.60 250.70 445.40
[5,] 270.90 380.50 324.40 289.20 322.5 305.40 297.10 268.80 254.80 448.20
      [,11]  [,12]  [,13]  [,14]  [,15] [,16]  [,17]  [,18]  [,19]  [,20]
[1,] 375.20 328.30 330.00 344.60 333.70 321.2 291.30 283.80 287.50 275.00
[2,] 393.05 333.85 370.30 356.15 340.65 332.8 302.00 287.70 289.70 280.45
[3,] 405.50 341.40 423.20 377.85 342.80 344.5 309.70 293.25 292.75 286.50
[4,] 409.60 353.85 452.25 396.60 347.10 356.2 318.05 296.10 294.05 288.50
[5,] 423.40 359.00 466.90 403.30 349.50 367.7 322.40 301.10 299.90 293.20
      [,21]  [,22] [,23]
[1,] 294.00 311.30    NA
[2,] 314.20 315.60    NA
[3,] 331.10 317.35    NA
[4,] 343.15 326.20    NA
[5,] 348.20 334.90    NA

$n
 [1] 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12  0

$conf
         [,1]   [,2]     [,3]    [,4]     [,5]     [,6]     [,7]     [,8]
[1,] 266.2318 333.69 277.0904 282.008 300.0198 291.0073 273.9718 255.4461
[2,] 271.5682 371.41 301.3096 285.292 314.9802 299.9927 293.1282 268.3539
         [,9]    [,10]    [,11]    [,12]    [,13]    [,14]    [,15]    [,16]
[1,] 244.9081 209.1723 397.9514 332.2779 385.8221 359.4005 339.8581 333.8271
[2,] 250.7919 384.7277 413.0486 350.5221 460.5779 396.2995 345.7419 355.1729
        [,17]    [,18]    [,19]    [,20]    [,21]    [,22] [,23]
[1,] 302.3795 289.4187 290.7659 282.8283 317.8957 312.5153    NA
[2,] 317.0205 297.0813 294.7341 290.1717 344.3043 322.1847    NA

$out
[1] 276.8 292.5 439.8 300.8 282.5 277.9

$group
[1]  4  4 11 19 19 19

$names
 [1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10" "11" "12" "13" "14" "15"
[16] "16" "17" "18" "19" "20" "21" "22" NA  

Warning message:
In bxp(list(stats = c(255.9, 264.25, 268.9, 270.1, 270.9, 276.2,  :
  some notches went outside hinges ('box'): maybe set notch=FALSE
> dev.off()
null device 
          1 
> postscript(file="/var/www/rcomp/tmp/7ay1x1290713184.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> z <- data.frame(cbind(arr.mean,arr.median,arr.midrange))
> names(z) <- list('mean','median','midrange')
> (boxplot(z,notch=TRUE,col='grey',ylab='Overall Central Tendency',main='Notched Box Plots'))
$stats
         [,1]    [,2]     [,3]
[1,] 309.9636 293.900 303.4375
[2,] 313.5750 299.650 308.9875
[3,] 317.1750 304.400 313.4500
[4,] 319.1295 306.575 315.5625
[5,] 324.4000 312.550 320.1250

$n
[1] 12 12 12

$conf
         [,1]     [,2]     [,3]
[1,] 314.6415 301.2415 310.4511
[2,] 319.7085 307.5585 316.4489

$out
numeric(0)

$group
numeric(0)

$names
[1] "mean"     "median"   "midrange"

Warning message:
In bxp(list(stats = c(309.963636363636, 313.575, 317.175, 319.129545454545,  :
  some notches went outside hinges ('box'): maybe set notch=FALSE
> dev.off()
null device 
          1 
> 
> try(system("convert tmp/17x3r1290713184.ps tmp/17x3r1290713184.png",intern=TRUE))
character(0)
> try(system("convert tmp/27x3r1290713184.ps tmp/27x3r1290713184.png",intern=TRUE))
character(0)
> try(system("convert tmp/37x3r1290713184.ps tmp/37x3r1290713184.png",intern=TRUE))
character(0)
> try(system("convert tmp/40p2u1290713184.ps tmp/40p2u1290713184.png",intern=TRUE))
character(0)
> try(system("convert tmp/50p2u1290713184.ps tmp/50p2u1290713184.png",intern=TRUE))
character(0)
> try(system("convert tmp/6ay1x1290713184.ps tmp/6ay1x1290713184.png",intern=TRUE))
character(0)
> try(system("convert tmp/7ay1x1290713184.ps tmp/7ay1x1290713184.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  2.040   1.320   3.364