Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2 1.249 10800 17872 2 1.2991 10642 17420.4 2 1.3408 10269 16704.4 2 1.3119 10189 15991.2 2 1.3014 9876 15583.6 2 1.3201 10164 19123.5 2 1.2938 9906 17838.7 2 1.2694 10003 17209.4 2 1.2165 10564 18586.5 2 1.2037 10221 16258.1 2 1.2292 10052 15141.6 2 1.2256 10512 19202.1 2 1.2015 10573 17746.5 2 1.1786 10821 19090.1 2.21 1.1856 10167 18040.3 2.25 1.2103 10901 17515.5 2.25 1.1938 10896 17751.8 2.45 1.202 10934 21072.4 2.5 1.2271 11059 17170 2.5 1.277 10513 19439.5 2.64 1.265 10270 19795.4 2.75 1.2684 10399 17574.9 2.93 1.2811 10740 16165.4 3 1.2727 10263 19464.6 3.17 1.2611 9883 19932.1 3.25 1.2881 10204 19961.2 3.39 1.3213 10201 17343.4 3.5 1.2999 10416 18924.2 3.5 1.3074 10557 18574.1 3.65 1.3242 10166 21350.6 3.75 1.3516 10066 18594.6 3.75 1.3511 10117 19832.1 3.9 1.3419 9973 20844.4 4 1.3716 10360 19640.2 4 1.3622 10133 17735.4 4 1.3896 10667 19813.6 4 1.4227 10883 22160 4 1.4684 10794 20664.3 4 1.457 11212 17877.4 4 1.4718 11242 20906.5 4 1.4748 11483 21164.1 4 1.5527 11106 21374.4 4 1.575 11019 22952.3 4 1.5557 10767 21343.5 4 1.5553 10577 23899.3 4.18 1.577 10859 22392.9 4.25 1.4975 10575 18274.1 4.25 1.4369 10680 22786.7 3.97 1.3322 10926 22321.5 3.42 1.2732 11781 17842.2 2.75 1.3449 11241 16373.5 2.31 1.3239 12347 15933.8 2 1.2785 12699 16446.1 1.66 1.305 12214 17729 1.31 1.319 12066 16643 1.09 1.365 12085 16196.7 1 1.4016 11894 18252.1 1 1.4088 11793 17570.4 1 1.4268 15567 15836.8 1 1.4562 16135 15836.8
Names of X columns:
Rente Wisselkoers Reserves Uitvoer
Sample Range:
(leave blank to include all observations)
From:
To:
Color
red
grey
white
blue
red
black
brown
yellow
Omit all rows with missing values?
no
yes
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
z <- as.data.frame(t(y)) bitmap(file='test1.png') (r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,col=par1)) dev.off() load(file='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='mytable.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='mytable1.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation