source('/home/pw/wessanet/cretab')



myrfcuid = 'r0625640'

x <- array(list(3.2,NA,NA,3.3,3,NA,NA,3.5,3.7,NA,NA,2.7,3.6,NA,NA,3.5,3.8,NA,NA,3.4,3.7,NA,NA,3.5,2.8,NA,NA,3.8,4.3,NA,NA,3.3,3.6,NA,NA,3.6,3.3,NA,NA,2.8),dim=c(2,20),dimnames=list(c('X5_man','X5_vrouw'),1:20))
 y <- array(NA,dim=c(2,20),dimnames=list(c('X5_man','X5_vrouw'),1:20))
 for (i in 1:dim(x)[1])
 {
 	for (j in 1:dim(x)[2])
 	{
 		y[i,j] <- as.numeric(x[i,j])
 	}
 }
par2 = 'no'
par1 = 'grey'
ylab = 'value'
xlab = 'variables'
main = 'Notched Boxplots'
par2 <- 'no'
par1 <- 'grey'
#'GNU S' R Code compiled by R2WASP v. 1.2.327 (Thu, 22 Sep 2016 14:56:16 +0200)
#Author: root
#To cite this work: Wessa P., (2016), Notched Boxplots (v1.0.9) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_notchedbox1.wasp/
#Source of accompanying publication: Office for Research, Development, and Education
#
if(par2=='yes') {
z <- na.omit(as.data.frame(t(y)))
} else {
z <- as.data.frame(t(y))
}
postscript(file="/home/pw/wessanet/rcomp/tmp/1irkw1485332270.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
(r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,col=par1))
dev.off()

a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Boxplot statistics',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,'lower whisker',1,TRUE)
a<-table.element(a,'lower hinge',1,TRUE)
a<-table.element(a,'median',1,TRUE)
a<-table.element(a,'upper hinge',1,TRUE)
a<-table.element(a,'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="/home/pw/wessanet/rcomp/tmp/29yja1485332270.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="/home/pw/wessanet/rcomp/tmp/3o15x1485332270.tab") 

try(system("convert /home/pw/wessanet/rcomp/tmp/1irkw1485332270.ps /home/pw/wessanet/rcomp/tmp/1irkw1485332270.png",intern=TRUE))