Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
100.00 100.00 100.00 100.00 95.83 95.06 91.74 97.67 100.00 92.59 84.40 95.35 100.00 93.83 84.40 95.35 112.50 96.30 87.16 97.67 116.67 96.30 88.07 101.55 104.17 96.30 87.16 99.22 79.17 92.59 83.49 96.90 79.17 92.59 81.65 100.00 79.17 87.65 82.57 101.55 83.33 92.59 92.66 101.55 66.67 92.59 94.50 102.33 91.67 93.83 93.58 96.90 87.50 95.06 88.07 97.67 104.17 95.06 84.40 100.00 120.83 97.53 85.32 97.67 116.67 100.00 86.24 96.12 104.17 101.23 86.24 90.70 108.33 101.23 84.40 93.02 100.00 101.23 82.57 94.57 116.67 97.53 82.57 92.25 116.67 90.12 82.57 89.92 116.67 85.19 89.91 89.92 116.67 81.48 91.74 86.82 133.33 82.72 89.91 86.82 129.17 85.19 85.32 89.15 91.67 86.42 82.57 89.92 120.83 87.65 82.57 90.70 129.17 88.89 83.49 91.47 120.83 87.65 83.49 91.47 133.33 85.19 83.49 91.47 133.33 86.42 84.40 87.60 129.17 83.95 80.73 87.60 120.83 79.01 76.15 88.37 116.67 82.72 77.06 86.05 116.67 81.48 74.31 89.15 120.83 79.01 70.64 94.57 91.67 77.78 72.48 100.00 108.33 76.54 72.48 101.55 100.00 80.25 73.39 104.65 112.50 83.95 72.48 105.43 112.50 83.95 69.72 111.63 95.83 79.01 65.14 110.08 87.50 75.31 62.39 117.83 79.17 71.60 59.63 122.48 70.83 75.31 63.30 123.26 79.17 88.89 75.23 119.38 87.50 90.12 79.82 120.16 54.17 85.19 76.15 113.95 33.33 75.31 72.48 101.55 20.83 71.60 68.81 97.67 41.67 76.54 71.56 95.35 25.00 87.65 76.15 92.25 25.00 95.06 77.06 82.17 33.33 97.53 75.23 82.17 45.83 95.06 70.64 74.42 50.00 91.36 66.06 68.99 54.17 92.59 66.97 64.34 79.17 98.77 74.31 71.32 79.17 100.00 77.98 68.22
Names of X columns:
Vertr_index Werkl_mannen Werkl_vrouwen Consprijsindex
Sample Range:
(leave blank to include all observations)
From:
To:
Color
grey
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