Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1530 1 1297 1 1335 1 1282 1 1590 1 1300 1 1400 1 1255 1 1355 1 1375 1 1340 1 1380 1 1355 1 1522 1 1208 1 1405 1 1358 1 1292 1 1340 1 1400 1 1357 1 1287 1 1275 1 1270 1 1635 1 1505 1 1490 1 1485 1 1310 1 1420 1 1318 1 1432 1 1364 1 1405 1 1432 1 1207 1 1375 1 1350 1 1236 1 1250 1 1350 1 1320 1 1525 1 1570 1 1340 1 1422 1 1506 1 1215 1 1311 1 1300 1 1224 1 1350 1 1335 1 1390 1 1400 1 1225 1 1310 1 1560 1 1330 1 1222 1 1415 1 1175 1 1330 1 1485 1 1470 1 1135 1 1310 1 1154 1 1510 1 1415 1 1468 1 1390 1 1380 1 1432 1 1240 1 1195 1 1225 1 1188 1 1252 1 1315 1 1245 1 1430 1 1279 1 1245 1 1309 1 1412 1 1120 1 1220 1 1280 1 1440 1 1370 1 1192 1 1230 1 1346 1 1290 1 1165 1 1240 1 1132 1 1242 1 1270 1 1218 1 1430 1 1588 1 1320 1 1290 1 1260 1 1425 1 1226 1 1360 1 1620 1 1310 1 1250 1 1295 1 1290 1 1290 1 1275 1 1250 1 1270 1 1362 1 1300 1 1173 1 1256 1 1440 1 1180 1 1306 1 1350 1 1125 1 1165 1 1312 1 1300 1 1270 1 1335 1 1450 1 1310 1 1027 2 1235 2 1260 2 1165 2 1080 2 1127 2 1270 2 1252 2 1200 2 1290 2 1334 2 1380 2 1140 2 1243 2 1340 2 1168 2 1322 2 1249 2 1321 2 1192 2 1373 2 1170 2 1265 2 1235 2 1302 2 1241 2 1078 2 1520 2 1460 2 1075 2 1280 2 1180 2 1250 2 1190 2 1374 2 1306 2 1202 2 1240 2 1316 2 1280 2 1350 2 1180 2 1210 2 1127 2 1324 2 1210 2 1290 2 1100 2 1280 2 1175 2 1160 2 1205 2 1163 2 1022 2 1243 2 1350 2 1237 2 1204 2 1090 2 1355 2 1250 2 1076 2 1120 2 1220 2 1240 2 1220 2 1095 2 1235 2 1105 2 1405 2 1150 2 1305 2 1220 2 1296 2 1175 2 955 2 1070 2 1320 2 1060 2 1130 2 1250 2 1225 2 1180 2 1178 2 1142 2 1130 2 1185 2 1012 2 1280 2 1103 2 1408 2 1300 2 1246 2 1380 2 1350 2 1060 2 1350 2 1220 2 1110 2 1215 2 1104 2 1170 2 1120 2
Names of X columns:
Brain Gender
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 <- na.omit(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