Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
100.00 100.00 100.00 100.00 85.19 101.92 96.14 94.25 70.37 102.88 93.15 95.40 74.07 102.40 95.21 97.70 85.19 100.96 95.97 98.85 103.70 100.48 94.61 97.70 88.89 100.96 96.54 94.25 85.19 100.48 98.39 93.10 100.00 100.00 102.67 90.80 100.00 99.52 103.76 98.85 107.41 100.00 101.61 100.00 111.11 100.48 101.91 100.00 81.48 101.44 103.95 97.70 85.19 105.77 105.97 96.55 103.70 116.35 105.35 97.70 103.70 118.27 103.20 100.00 103.70 120.19 104.62 100.00 81.48 124.52 103.91 98.85 96.30 132.21 101.78 97.70 103.70 133.65 97.81 95.40 92.59 139.42 98.74 91.95 88.89 145.67 98.47 94.25 85.19 149.04 97.49 93.10 70.37 155.29 98.14 93.10 62.96 161.54 99.04 91.95 74.07 168.75 96.96 90.80 77.78 173.56 94.53 90.80 62.96 176.44 96.08 91.95 66.67 179.81 95.53 91.95 66.67 183.65 94.32 90.80 66.67 187.02 92.41 91.95 48.15 191.35 92.44 88.51 48.15 196.15 93.08 82.76 48.15 199.04 91.06 86.21 44.44 208.17 91.69 83.91 51.85 219.71 89.88 80.46 81.48 222.60 87.79 80.46 107.41 219.71 85.06 80.46 114.81 226.44 85.72 82.76 129.63 218.27 84.86 83.91 133.33 206.73 84.69 81.61 162.96 209.62 80.44 78.16 151.85 221.63 79.30 73.56 188.89 226.44 80.29 70.11 214.81 225.00 80.31 74.71 218.52 236.06 79.20 88.51 200.00 228.37 83.41 90.80 203.70 229.33 86.92 86.21 177.78 249.04 93.75 79.31 118.52 164.42 98.10 75.86 100.00 130.29 92.87 79.31 77.78 110.10 94.34 88.51 70.37 96.15 97.69 91.95 22.22 78.85 95.71 91.95 25.93 62.50 94.69 88.51 -7.41 51.92 91.50 83.91 -37.04 48.08 89.11 85.06 -62.96 48.08 88.66 93.10 -25.93 48.08 87.54 95.40 -37.04 48.08 87.54 95.40
Names of X columns:
inflatie rentevoeten wisselkoersen werkloosheid
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation