Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
4785 5407 4867 6047 2612 4952 1716 3826 3204 3767 1574 3683 2114 2327 1732 2783 2280 2632 3501 2097 1811 1984 1823 2610 1945 2145 1472 2272 1587 2329 2465 2683 1236 2325 1786 1985 1550 2077 1616 1638 1510 1806 1311 2595 1667 2127 2107 2276 2442 2104 2330 1655 2495 1343 1957 1578 1520 1798 1629 1993 1927 1949 1294 1209 1614 1636 1186 1357 1627 1356 912 1411 1627 1991 1241 2878 1326 2170 1836 1677 1180 1180 1252 2081 1636 1614 2337 1303 2571 1594 1164 1630 1926 1130 1219 1248 1575 1871 1191 1216 1136 1505 1436 1184 1370 1404 1319 1275 1189 1396 1103 1401 1373 1669 1031 1229 1125 1322 1333 1086 984 1220 886 1356 1303 1272 1374 1974 1253 1670 1330 1354 1241 1146 1622 1214 1095 2001 1799 973 983 1188 1510 1289 1063 1197 1498 1418 927 2230 1192 1283 1037 1186 1616 993 1156 1202 1024 1207 738 1611 1266 1461 1024 2091 952 1101 990 1172 892 1532 1061 1094 707 1503 710 1198 1143 713 854 2444 762 1112 928 1617 900 1129 1033 1122 900 1500 992 1021 977 1419 1258 1010 591 1243 1184 928 981 748 685 1182 821 999 753 1495 867 1001 937 1853 1110 1975 566 767 217 836 166 1012 414 699 64 1225 96 1728 NA 952 NA 1128 NA 846 NA 1205 NA 729 NA 714 NA 858 NA 1595 NA 833 NA 1120 NA 1141 NA 886 NA 814 NA 1043 NA 998 NA 1228 NA 1066 NA 1592 NA 727 NA 782 NA 926 NA 769 NA 1110 NA 839 NA 791 NA 866 NA 841 NA 538 NA 824 NA 570 NA 463 NA 442 NA 962 NA 523 NA 595 NA 543 NA 386 NA 379 NA 678 NA 595 NA 486 NA 411 NA 465 NA 509 NA 206 NA 158 NA 379 NA 44 NA 100 NA 40 NA 67 NA 6 NA 20 NA 37
Names of X columns:
page_UK page_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
par1 <- 'grey' 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