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 <- array(list(100.00
+ ,100.00
+ ,100.00
+ ,100.00
+ ,108.16
+ ,211.30
+ ,99.95
+ ,99.97
+ ,114.02
+ ,333.91
+ ,102.07
+ ,101.03
+ ,102.19
+ ,187.83
+ ,102.02
+ ,101.00
+ ,110.37
+ ,254.78
+ ,102.63
+ ,101.30
+ ,96.86
+ ,121.74
+ ,102.88
+ ,101.43
+ ,94.19
+ ,113.91
+ ,103.01
+ ,101.49
+ ,99.52
+ ,140.87
+ ,104.33
+ ,102.14
+ ,94.06
+ ,142.61
+ ,105.21
+ ,102.58
+ ,97.55
+ ,173.91
+ ,104.73
+ ,102.34
+ ,78.15
+ ,121.74
+ ,104.17
+ ,102.07
+ ,81.24
+ ,113.91
+ ,103.69
+ ,101.83
+ ,92.36
+ ,115.65
+ ,104.33
+ ,102.14
+ ,96.06
+ ,155.65
+ ,105.21
+ ,102.58
+ ,114.05
+ ,256.52
+ ,105.31
+ ,102.63
+ ,110.66
+ ,217.39
+ ,105.54
+ ,102.74
+ ,104.92
+ ,230.43
+ ,106.70
+ ,103.32
+ ,90.00
+ ,171.30
+ ,106.60
+ ,103.27
+ ,95.70
+ ,155.65
+ ,105.01
+ ,102.48
+ ,86.03
+ ,133.04
+ ,104.33
+ ,102.14
+ ,84.85
+ ,140.87
+ ,104.17
+ ,102.07
+ ,100.04
+ ,169.57
+ ,103.42
+ ,101.69
+ ,80.92
+ ,183.48
+ ,102.33
+ ,101.15
+ ,74.07
+ ,173.91
+ ,101.82
+ ,100.90
+ ,77.30
+ ,176.52
+ ,103.57
+ ,101.77
+ ,97.23
+ ,176.52
+ ,103.90
+ ,101.93
+ ,90.76
+ ,306.96
+ ,104.58
+ ,102.27
+ ,100.56
+ ,247.83
+ ,105.03
+ ,102.49
+ ,92.01
+ ,171.30
+ ,105.67
+ ,102.80
+ ,99.24
+ ,140.87
+ ,105.69
+ ,102.82
+ ,105.87
+ ,171.30
+ ,105.72
+ ,102.83
+ ,90.99
+ ,153.04
+ ,105.84
+ ,102.89
+ ,93.31
+ ,184.35
+ ,105.79
+ ,102.87
+ ,91.17
+ ,236.52
+ ,105.39
+ ,102.67
+ ,77.33
+ ,177.39
+ ,105.97
+ ,102.96
+ ,91.13
+ ,164.35
+ ,106.50
+ ,103.22
+ ,85.01
+ ,208.70
+ ,107.13
+ ,103.53
+ ,83.90
+ ,211.30
+ ,109.36
+ ,104.63
+ ,104.86
+ ,403.48
+ ,109.36
+ ,104.63
+ ,110.90
+ ,328.70
+ ,108.42
+ ,104.17
+ ,95.44
+ ,261.74
+ ,107.94
+ ,103.93
+ ,111.62
+ ,254.78
+ ,108.10
+ ,104.01
+ ,108.89
+ ,277.39
+ ,108.40
+ ,104.16
+ ,96.18
+ ,282.61
+ ,110.55
+ ,105.22
+ ,101.97
+ ,357.39
+ ,111.81
+ ,105.85
+ ,99.12
+ ,284.35
+ ,112.55
+ ,106.21
+ ,86.78
+ ,183.48
+ ,111.66
+ ,105.77
+ ,118.42
+ ,186.09
+ ,111.38
+ ,105.63
+ ,118.74
+ ,179.13
+ ,113.10
+ ,106.49
+ ,106.53
+ ,175.65
+ ,115.18
+ ,107.51
+ ,134.78
+ ,317.39
+ ,121.07
+ ,110.43
+ ,104.68
+ ,375.65
+ ,123.07
+ ,111.42
+ ,105.30
+ ,277.39
+ ,123.40
+ ,111.58
+ ,139.41
+ ,313.91
+ ,122.92
+ ,111.34
+ ,103.61
+ ,203.48
+ ,122.39
+ ,111.08
+ ,99.78
+ ,199.13
+ ,123.55
+ ,111.66
+ ,103.46
+ ,240.87
+ ,124.97
+ ,112.36
+ ,120.06
+ ,238.26
+ ,124.87
+ ,112.31
+ ,96.71
+ ,258.26
+ ,123.27
+ ,111.52
+ ,107.13
+ ,335.65
+ ,121.96
+ ,110.87
+ ,105.36
+ ,302.61
+ ,122.49
+ ,111.13
+ ,111.69
+ ,373.91
+ ,125.68
+ ,112.71
+ ,132.05
+ ,570.43
+ ,126.76
+ ,113.25
+ ,126.80
+ ,382.61
+ ,126.44
+ ,113.09
+ ,154.48
+ ,307.83
+ ,125.35
+ ,112.55
+ ,141.56
+ ,435.65
+ ,126.01
+ ,112.87
+ ,109.95
+ ,306.09
+ ,127.45
+ ,113.59
+ ,127.90
+ ,250.43
+ ,130.58
+ ,115.14
+ ,133.09
+ ,350.43
+ ,133.09
+ ,116.38
+ ,120.08
+ ,426.09
+ ,133.34
+ ,116.50
+ ,117.56
+ ,477.39
+ ,132.84
+ ,116.25
+ ,143.04
+ ,437.39
+ ,133.80
+ ,116.73
+ ,159.98
+ ,334.78
+ ,136.63
+ ,118.13
+ ,128.60
+ ,305.22
+ ,138.88
+ ,119.25
+ ,149.74
+ ,571.30
+ ,140.65
+ ,120.12
+ ,126.82
+ ,523.48
+ ,143.92
+ ,121.74
+ ,140.96
+ ,426.96
+ ,149.03
+ ,124.27
+ ,137.67
+ ,360.87
+ ,149.33
+ ,124.42
+ ,117.94
+ ,267.83
+ ,152.62
+ ,126.05
+ ,122.31
+ ,254.78
+ ,161.60
+ ,130.49
+ ,127.78
+ ,357.39
+ ,162.66
+ ,131.02
+ ,136.17
+ ,348.70
+ ,166.13
+ ,132.73
+ ,116.24
+ ,259.13
+ ,165.98
+ ,132.66
+ ,123.16
+ ,290.43
+ ,165.47
+ ,132.41
+ ,116.34
+ ,329.57
+ ,166.94
+ ,133.13
+ ,108.61
+ ,304.35
+ ,167.49
+ ,133.41
+ ,125.90
+ ,566.96
+ ,169.29
+ ,134.30
+ ,112.80
+ ,409.57
+ ,170.28
+ ,134.79
+ ,107.52
+ ,345.22
+ ,171.59
+ ,135.44
+ ,135.10
+ ,445.22
+ ,171.36
+ ,135.32
+ ,115.51
+ ,315.65
+ ,171.64
+ ,135.46
+ ,115.86
+ ,270.43
+ ,170.10
+ ,134.70
+ ,104.59
+ ,306.09
+ ,168.30
+ ,133.81
+ ,163.72
+ ,326.96
+ ,168.96
+ ,134.13
+ ,113.45
+ ,313.04
+ ,170.02
+ ,134.66
+ ,98.04
+ ,300.00
+ ,167.59
+ ,133.46
+ ,116.79
+ ,360.00
+ ,172.60
+ ,135.94
+ ,126.53
+ ,334.78
+ ,175.08
+ ,137.17
+ ,113.03
+ ,384.35
+ ,177.76
+ ,138.49
+ ,124.34
+ ,531.30
+ ,182.49
+ ,140.83
+ ,109.83
+ ,325.22
+ ,185.48
+ ,142.31
+ ,124.44
+ ,399.13
+ ,189.15
+ ,144.13
+ ,111.50
+ ,365.22
+ ,186.59
+ ,142.86
+ ,102.04
+ ,216.52
+ ,184.49
+ ,141.82
+ ,116.87
+ ,333.91
+ ,178.62
+ ,138.92
+ ,112.21
+ ,348.70
+ ,170.58
+ ,134.94
+ ,101.15
+ ,180.87
+ ,166.71
+ ,133.02
+ ,124.43
+ ,292.17
+ ,163.34
+ ,131.35)
+ ,dim=c(4
+ ,108)
+ ,dimnames=list(c('BV'
+ ,'HK'
+ ,'BN'
+ ,'VI')
+ ,1:108))
>  y <- array(NA,dim=c(4,108),dimnames=list(c('BV','HK','BN','VI'),1:108))
>  for (i in 1:dim(x)[1])
+  {
+  	for (j in 1:dim(x)[2])
+  	{
+  		y[i,j] <- as.numeric(x[i,j])
+  	}
+  }
> par1 = 'blue'
> ylab = 'value'
> xlab = 'variables'
> main = 'Notched Boxplots'
> #'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!)
> z <- as.data.frame(t(y))
> postscript(file="/var/www/html/rcomp/tmp/15ud01257859377.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> (r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,col=par1))
$stats
        [,1]    [,2]    [,3]    [,4]
[1,]  74.070 100.000  99.950  99.970
[2,]  97.045 182.175 105.605 102.770
[3,] 108.385 273.910 122.705 111.235
[4,] 120.070 340.435 163.000 131.185
[5,] 154.480 571.300 189.150 144.130

$n
[1] 108 108 108 108

$conf
         [,1]     [,2]     [,3]     [,4]
[1,] 104.8844 249.8489 113.9789 106.9149
[2,] 111.8856 297.9711 131.4311 115.5551

$out
[1] 159.98 163.72

$group
[1] 1 1

$names
[1] "BV" "HK" "BN" "VI"

> 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,hyperlink('http://www.xycoon.com/overview.htm','Boxplot statistics','Boxplot overview'),6,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Variable',1,TRUE)
> a<-table.element(a,hyperlink('http://www.xycoon.com/lower_whisker.htm','lower whisker','definition of lower whisker'),1,TRUE)
> a<-table.element(a,hyperlink('http://www.xycoon.com/lower_hinge.htm','lower hinge','definition of lower hinge'),1,TRUE)
> a<-table.element(a,hyperlink('http://www.xycoon.com/central_tendency.htm','median','definitions about measures of central tendency'),1,TRUE)
> a<-table.element(a,hyperlink('http://www.xycoon.com/upper_hinge.htm','upper hinge','definition of upper hinge'),1,TRUE)
> a<-table.element(a,hyperlink('http://www.xycoon.com/upper_whisker.htm','upper whisker','definition of upper whisker'),1,TRUE)
> a<-table.row.end(a)
> for (i in 1:length(y[,1]))
+ {
+ a<-table.row.start(a)
+ a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
+ for (j in 1:5)
+ {
+ a<-table.element(a,r$stats[j,i])
+ }
+ a<-table.row.end(a)
+ }
> a<-table.end(a)
> table.save(a,file="/var/www/html/rcomp/tmp/20i451257859377.tab") 
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,'Boxplot Notches',4,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Variable',1,TRUE)
> a<-table.element(a,'lower bound',1,TRUE)
> a<-table.element(a,'median',1,TRUE)
> a<-table.element(a,'upper bound',1,TRUE)
> a<-table.row.end(a)
> for (i in 1:length(y[,1]))
+ {
+ a<-table.row.start(a)
+ a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
+ a<-table.element(a,r$conf[1,i])
+ a<-table.element(a,r$stats[3,i])
+ a<-table.element(a,r$conf[2,i])
+ a<-table.row.end(a)
+ }
> a<-table.end(a)
> table.save(a,file="/var/www/html/rcomp/tmp/361q91257859378.tab") 
> 
> system("convert tmp/15ud01257859377.ps tmp/15ud01257859377.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.423   0.162   6.680