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(104708 + ,56190 + ,19246 + ,101817 + ,54300 + ,17549 + ,97898 + ,51362 + ,16428 + ,95559 + ,49802 + ,16209 + ,92822 + ,48088 + ,15235 + ,90848 + ,46696 + ,16186 + ,101141 + ,56586 + ,24971 + ,105841 + ,64148 + ,30776 + ,93647 + ,56449 + ,26416 + ,90923 + ,52538 + ,23157 + ,89130 + ,49359 + ,20155 + ,90212 + ,49583 + ,19790 + ,93196 + ,51050 + ,18849 + ,91861 + ,49610 + ,17573 + ,90593 + ,48321 + ,16597 + ,89895 + ,47692 + ,16158 + ,88819 + ,46243 + ,15507 + ,87924 + ,46248 + ,16433 + ,96906 + ,56381 + ,26325 + ,101217 + ,62329 + ,31144 + ,98709 + ,60673 + ,30535 + ,98139 + ,58393 + ,27596 + ,95529 + ,55742 + ,24064 + ,98577 + ,57135 + ,23854 + ,100772 + ,57961 + ,22407 + ,100180 + ,56571 + ,21125 + ,99200 + ,55615 + ,20226 + ,96251 + ,53494 + ,19547 + ,94514 + ,52623 + ,18933 + ,93780 + ,52820 + ,20372 + ,105192 + ,66825 + ,34331 + ,107682 + ,70695 + ,37329 + ,99687 + ,65660 + ,36761 + ,99436 + ,63238 + ,32737 + ,102049 + ,61741 + ,29321 + ,102673 + ,63642 + ,28883 + ,105813 + ,65521 + ,27436 + ,105056 + ,64006 + ,25101 + ,103916 + ,62728 + ,23776 + ,103513 + ,62438 + ,23782 + ,101893 + ,61109 + ,23027 + ,102503 + ,63422 + ,25606 + ,113149 + ,78094 + ,41328 + ,116696 + ,82030 + ,44751 + ,108500 + ,75892 + ,42855 + ,107800 + ,72431 + ,37628 + ,105941 + ,69194 + ,33544 + ,108742 + ,71171 + ,33275 + ,111680 + ,72545 + ,32009 + ,111270 + ,71503 + ,30813 + ,110698 + ,69624 + ,29143 + ,108517 + ,67407 + ,28121 + ,107127 + ,66103 + ,27007 + ,107088 + ,67466 + ,29112 + ,116321 + ,81088 + ,44067 + ,125045 + ,86781 + ,48481 + ,116779 + ,79964 + ,46581 + ,122887 + ,80407 + ,41166 + ,120162 + ,76589 + ,36824 + ,123198 + ,78083 + ,35936 + ,123610 + ,78000 + ,33633 + ,122293 + ,76431 + ,31630 + ,121289 + ,75461 + ,30434 + ,119393 + ,73739 + ,28546 + ,117494 + ,71988 + ,27660 + ,116693 + ,72929 + ,29830 + ,125062 + ,85785 + ,45599 + ,127281 + ,89261 + ,49303 + ,120195 + ,84012 + ,44417 + ,119804 + ,80924 + ,40386 + ,117113 + ,76588 + ,35544 + ,119240 + ,77546 + ,35019 + ,115823 + ,73054 + ,30400 + ,116281 + ,73430 + ,29602 + ,113816 + ,71093 + ,27701 + ,114632 + ,72202 + ,27937 + ,112987 + ,70872 + ,27283 + ,111633 + ,70452 + ,29372 + ,116721 + ,80506 + ,42821 + ,114850 + ,80400 + ,45386 + ,112797 + ,77613 + ,40170 + ,105368 + ,69056 + ,34371 + ,102524 + ,65321 + ,30077 + ,101327 + ,64018 + ,29251 + ,102612 + ,64767 + ,27202 + ,98873 + ,61099 + ,25714 + ,95993 + ,58329 + ,23784 + ,93244 + ,56396 + ,22968 + ,90403 + ,54656 + ,22243 + ,88539 + ,55259 + ,24255 + ,98106 + ,66912 + ,37282 + ,96963 + ,66631 + ,38794 + ,90781 + ,59907 + ,31828 + ,89253 + ,56274 + ,27949 + ,87794 + ,54045 + ,24605 + ,89810 + ,55792 + ,25695 + ,90864 + ,55499 + ,23338 + ,89025 + ,53216 + ,21941 + ,87621 + ,52259 + ,22034 + ,87718 + ,51257 + ,20637 + ,83433 + ,48150 + ,19418 + ,84535 + ,51125 + ,22454 + ,92223 + ,61046 + ,33261 + ,91052 + ,61022 + ,34995 + ,88456 + ,56742 + ,29132 + ,88706 + ,54485 + ,26171 + ,89137 + ,53862 + ,23828 + ,94066 + ,58228 + ,25743 + ,99258 + ,61951 + ,25204 + ,100673 + ,62874 + ,25679 + ,102269 + ,64013 + ,25281 + ,100833 + ,62937 + ,25136 + ,99314 + ,61897 + ,24794 + ,101764 + ,65267 + ,28278 + ,108242 + ,75228 + ,40062 + ,108148 + ,76161 + ,42590 + ,104761 + ,71480 + ,37885 + ,103772 + ,69070 + ,34061 + ,103737 + ,68293 + ,32412 + ,111043 + ,74685 + ,34647 + ,109906 + ,72664 + ,31750 + ,109335 + ,71965 + ,31288 + ,107247 + ,69238 + ,29331 + ,105690 + ,67738 + ,28768 + ,102755 + ,65187 + ,27780 + ,102280 + ,66170 + ,30113 + ,110590 + ,77309 + ,41240 + ,109122 + ,77134 + ,43271 + ,102803 + ,70957 + ,38108 + ,101424 + ,67749 + ,34382 + ,99138 + ,65081 + ,31551) + ,dim=c(3 + ,131) + ,dimnames=list(c('laaggeschoold' + ,'middengeschoold' + ,'hooggeschoold') + ,1:131)) > y <- array(NA,dim=c(3,131),dimnames=list(c('laaggeschoold','middengeschoold','hooggeschoold'),1:131)) > for (i in 1:dim(x)[1]) + { + for (j in 1:dim(x)[2]) + { + y[i,j] <- as.numeric(x[i,j]) + } + } > par1 = 'grey' > 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/1o4rt1292953857.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)) $stats [,1] [,2] [,3] [1,] 83433.0 46243.0 15235 [2,] 95021.5 56327.5 23806 [3,] 102503.0 64767.0 28768 [4,] 110644.0 72316.5 34351 [5,] 127281.0 89261.0 49303 $n [1] 131 131 131 $conf [,1] [,2] [,3] [1,] 100346.4 62559.8 27312.31 [2,] 104659.6 66974.2 30223.69 $out numeric(0) $group numeric(0) $names [1] "laaggeschoold" "middengeschoold" "hooggeschoold" > 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/2947h1292953857.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/3d5o51292953857.tab") > try(system("convert tmp/1o4rt1292953857.ps tmp/1o4rt1292953857.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 0.422 0.167 61.008