Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
84 122.2 83.4 108.8 78 122.6 113.6 128.4 74 122.2 112.9 121.1 75 118.8 104 119.5 79 119 109.9 128.7 79 118.2 99 108.7 82 117.8 106.3 105.5 88 116.8 128.9 119.8 81 114.6 111.1 111.3 69 113.4 102.9 110.6 62 113.8 130 120.1 62 124.2 87 97.5 68 125.8 87.5 107.7 57 125.6 117.6 127.3 67 122.4 103.4 117.2 72 119 110.8 119.8 75 119.4 112.6 116.2 81 118.6 102.5 111 80 118 112.4 112.4 79 116 135.6 130.6 81 114.8 105.1 109.1 83 114.6 127.7 118.8 84 114.6 137 123.9 90 124 91 101.6 84 125.2 90.5 112.8 90 124 122.4 128 92 117.6 123.3 129.6 93 113.2 124.3 125.8 85 111.4 120 119.5 93 112.2 118.1 115.7 94 109.8 119 113.6 94 106.4 142.7 129.7 102 105.2 123.6 112 96 102.2 129.6 116.8 96 99.8 151.6 127 92 111 110.4 112.1 90 113 99.2 114.2 84 108.4 130.5 121.1 86 105.4 136.2 131.6 70 102 129.7 125 67 102.8 128 120.4 60 103.4 121.6 117.7 62 101.6 135.8 117.5 61 98.6 143.8 120.6 54 98 147.5 127.5 50 93.8 136.2 112.3 45 95.6 156.6 124.5 34 105.6 123.3 115.2 37 106.8 104.5 104.7 44 103.6 139.8 130.9 34 101.2 136.5 129.2 37 100.4 112.1 113.5 31 103.2 118.5 125.6 31 105.6 94.4 107.6 28 106.6 102.3 107 31 107.2 111.4 121.6 33 107.4 99.2 110.7 36 104.8 87.8 106.3 39 107.2 115.8 118.6 42 117.4 79.7 104.6
Names of X columns:
consvert werkl investg consg
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