Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1.2176 613.70 913.9 699.8 1.2218 759.20 888.0 871.2 1.2490 816.40 973.8 842.6 1.2991 736.80 927.6 809.2 1.3408 680.10 833.0 847.1 1.3119 736.50 879.5 857 1.3014 637.20 797.3 839.9 1.3201 801.90 834.5 967.4 1.2938 772.30 735.1 1037.2 1.2694 897.30 835.0 1062.3 1.2165 792.10 892.8 899.3 1.2037 826.80 697.2 1129.6 1.2292 666.80 821.10 845.7 1.2256 906.60 732.70 1173.9 1.2015 871.40 797.60 1073.8 1.1786 891.00 866.30 1021.7 1.1856 739.20 826.30 912.9 1.2103 833.60 778.60 1055 1.1938 715.60 779.20 936.4 1.2020 871.60 951.00 920.6 1.2271 751.60 692.30 1059.3 1.2770 1005.5 841.40 1164.1 1.2650 681.20 857.30 823.9 1.2684 837.30 760.70 1076.6 1.2811 674.40 841.20 833.5 1.2727 806.30 810.30 996 1.2611 860.20 1007.4 852.8 1.2881 689.80 931.30 758.5 1.3213 691.60 931.20 760.4 1.2999 682.60 855.80 826.8 1.3074 800.10 858.40 941.7 1.3242 1023.7 925.90 1097.8 1.3516 733.50 930.70 802.8 1.3511 875.30 1035.6 839.7 1.3419 770.20 979.20 791 1.3716 1005.7 942.60 1063.1 1.3622 982.30 843.90 1138.4 1.3896 742.90 854.30 888.6 1.4227 977.60 1046.5 931.1 1.4684 823.90 960.70 863.2 1.4570 791.60 855.40 936.2 1.4718 755.50 1053.8 701.7 1.4748 748.00 874.20 873.8 1.5527 763.80 1067.0 696.8 1.5750 871.50 1213.4 658.1 1.5557 837.00 1130.3 706.7 1.5553 726.10 1267.6 458.5 1.5770 899.30 1213.6 685.7 1.4975 630.70 970.60 660.1 1.4369 985.80 1210.9 774.9 1.3322 884.10 1096.7 787.4 1.2732 606.00 1119.1 486.9 1.3449 582.60 1271.8 310.8 1.3239 593.40 973.90 619.5 1.2785 620.60 1070.4 550.2 1.3050 621.60 1158.2 463.4 1.3190 620.30 989.90 630.4 1.3650 639.90 910.90 729 1.4016 560.70 1075.1 485.6 1.4088 489.80 1036.1 453.7
Names of X columns:
WK UIT IN HB
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