Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
122 111 114 69 140 116 143 103 122 139 127 135 113 113 118 99 161 76 134 110 96 121 104 95 135 66 110 111 128 77 142 101 117 108 94 135 135 70 121 124 103 92 118 104 127 113 116 95 129 89 115 83 135 96 133 95 113 110 111 106 92 78 118 115 134 74 106 93 137 88 100 104 102 86 134 104 130 99 144 101 120 53 91 96 100 58 134 117 161 82 128 57 124 71 115 105 123 60 117 77 111 73 146 78 101 81 131 101 122 118 78 59 120 101 115 22 142 77 94 100 114 39 108 42 119 80 117 48 86 131 138 46 119 89 117 51 117 108 76 86 119 105 119 85 124 103 116 83 118 77 102 26 116 73 103 42 117 71 108 105 122 73 90 98 133 108 116 57 110 37 90 70 74 73 75 47 107 73 90 91 96 110 115 78 91 92 77 52 108 88 83 100 77 33 99 42 115 81 99 67 106 8 77 46 115 83 67 87 8 82 69 63 88 27 107 14 120 83 3 168 1 67 0 21 0 55 0 54 NA 118 NA 69 NA 77 NA 72 NA 53 NA 40 NA 102 NA 25 NA 31 NA 77 NA 38 NA 23 NA 91 NA 58 NA 42 NA 44 NA 58 NA 35 NA 88 NA 25 NA 39 NA 0 NA 48 NA 64 NA 65 NA 95 NA 29 NA 2 NA 83 NA 11 NA 16 NA 9 NA 46 NA 41 NA 14 NA 63 NA 9 NA 0 NA 58 NA 18 NA 42 NA 0 NA 26 NA 38 NA 0 NA 0 NA 1 NA 0 NA 13 NA 0 NA 0 NA 0 NA 0 NA 0
Names of X columns:
lfm_UK lfm_B
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