Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
94 94 94 93 93 93 92 92 92 90 90 90 110 110 110 109 109 109 94 94 94 84 84 84 85 85 85 85 85 85 86 86 86 88 88 88 93 93 93 94 94 94 90 90 90 91 91 91 104 104 104 103 103 103 88 88 88 79 79 79 82 82 82 88 88 88 93 93 93 89 89 89 94 94 94 96 96 96 94 94 94 92 92 92 113 113 113 122 122 122 107 107 107 98 98 98 103 103 103 110 110 110 113 113 113 110 110 110 123 123 123 124 124 124 118 118 118 117 117 117 139 139 139 146 146 146 134 134 134 121 121 121 123 123 123 122 122 122 127 127 127 122 122 122 139 139 139 136 136 136 127 127 127 123 123 123 140 140 140 146 146 146 138 138 138 120 120 120 122 122 122 115 115 115 115 115 115 102 102 102 119 119 119 114 114 114 108 108 108 102 102 102 121 121 121 109 109 109 102 102 102 95 95 95 98 98 98 92 92 92 94 94 94 90 90 90 113 113 113 111 111 111 103 103 103 90 90 90 108 108 108 99 99 99 95 95 95 91 91 91 85 85 85 72 72 72 90 90 90 90 90 90 114 114 114 115 115 115 104 104 104 93 93 93 101 101 101 90 90 90 79 79 79 75 75 75 71 71 71 61 61 61 84 84 84 87 87 87 107 107 107 99 99 99 93 93 93 74 74 74 87 87 87 71 71 71 67 67 67 61 61 61 63 63 63 52 52 52 80 80 80 84 84 84 102 102 102 93 93 93 87 87 87 72 72 72 83 83 83 72 72 72 66 66 66 64 64 64 64 64 64 47 47 47 77 77 77 79 79 79
Names of X columns:
reeks reeks reeks
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