Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
110.6 102.4 101.8 102.5 108.4 102.6 95.9 99.2 107.9 102.8 102.1 102.7 105.9 102.8 96.5 99.5 111.6 103.6 96.5 100.1 122 104.7 99.3 102.6 108.2 105.5 101.6 103.5 101.7 106.6 103.8 104.8 101.8 107.2 102.1 104.2 98.3 107.5 106.6 106.6 95.6 108.3 104.4 105.5 92.5 108.7 103.2 104.9 97 108.8 106.8 107.1 95.9 109.8 103.3 105.5 102 109.5 107 107.8 104 109.2 101.5 104.7 104.6 110.6 102.5 105.8 115.8 110.1 105 107.6 112.3 109.9 109.9 110 98.3 109.7 105.4 106.8 101.6 109.4 104.1 106.1 94 109.4 107.5 107.6 95.6 109.4 108.1 108 103.9 109.5 111.2 110.1 95.5 109.5 109.8 109 98.4 109.9 109.1 108.9 107.1 110 111.8 110.9 110.7 110.8 109.4 110 107.3 112.4 113.9 112.9 118.4 112.8 113.9 113.6 112.4 113.7 114.5 114.1 113.3 114.5 112.9 113.6 116.1 114.8 112.9 113.8 108.4 115.6 111.5 113 106.4 115.8 112 113.2 123.2 115.8 117.6 117.2 109.5 116.3 116.4 116 109 116.3 110.8 112.9 114.6 116.8 115.5 115.9 121.1 116.7 110.8 113.6 122.3 116.8 111.6 114.2 131 117 111.8 114.9 121.9 117.2 116 116.8 121 117.1 115.4 116.3 116.9 117.3 112.6 114.7 106.1 117.4 114.8 115.4 109.7 117.7 115.8 116.3 109.8 117.9 117.9 117.5 115 118.8 119.9 119.2 119.7 119.9 120.2 120.1 120.4 122.4 123.7 123 123.6 123.5 120.2 121.7 120 125.6 120.4 122.4 122.4 127.4 121.8 124.1 119.6 128.9 124.5 126 118.1 129.5 122.8 125.3 118 130.8 120.2 124.3 109.9 132.7 128.8 129.4 109 134 129.5 130.3 109.7 132.9 128.4 129.2 110.1 133.1 130 130.2 109.1 131.7 124.9 126.8 105.7 128.8 124.6 125.4 108.8 125.1 116.6 119.6 119.7 123.9 115.8 119.2 116.4 121.8 114.4 117.4 109 119.2 113.5 115.6
Names of X columns:
ltbw AfzPrBin EenhwInv Afz&Inv
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