Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
23100 22650 22440 22910 22980 22535 22300 22780 22780 23300 23800 24510 24660 24730 25070 24690 24880 23920 23880 23990 24590 23610 23580 23360 23910 23940 23060 22800 23020 22890 22780 22530 22290 22820 22480 22110 22000 22230 22260 22590 22820 22420 22230 21600 21000 21360 21640 21450 21710 21620 21800 21490 21670 22130 22050 22050 22140 22390 22220 21790 21510 21670 21745 21850 22105 22050 21670 21680 21800 21920 21980 22270 21740 21950 22010 21890 21920 22110 22340 22210 22240 21960 22220 22060 22090 21960 21940 21790 21710 21690 21710 21670 21640 21500 21290 21250 21580 21670 21620 21510 21360 21420 21470 21370 21370 21340 21130 21130 20990 21240 21320 21430 21390 21530 21510 21630 21560 21610 21560 21310 21340 21410 21550 21380 21600 21530 21560 21670 21540 21540 21550 21590 21420 21420 21370 21380 21210 21505 21365 21385 21350 21360 21530 21380 21630 22145 22315 22340 22440 22135 21955 22060 22050 22035 22280 22315 22205 21970 22075 22115 22105 21885 21805 21910 21995 22245 22100 22130 22300 22915 23040 22880 23000 23160 23020 22770 22660 22740 22905 22720 22705 22735 22600 22510 22560 22575 22685 22980 23275 23845 23640 23640 23835 23625 24055 24005 24325 24445 24670 24615 24700 25065 25185 25220 25235 24975 25055 25520 25880 25960 25740 24965 25235 24895 24635 24835 24635 24695 25090 25220 24740 25005 24650 24460 24680 24840 24630 24490 24695
Names of X columns:
Prijs
Sample Range:
(leave blank to include all observations)
From:
To:
Color
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation