Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
4.213.144.00 4.197.453.00 4.181.541.00 4.148.612.00 4.474.366.00 4.457.128.00 4.213.144.00 4.050.930.00 4.066.621.00 4.066.621.00 4.084.080.00 4.115.462.00 4.164.303.00 4.164.303.00 4.132.921.00 4.050.930.00 4.474.366.00 4.538.898.00 4.441.437.00 4.213.144.00 4.310.826.00 4.164.303.00 4.230.382.00 4.261.985.00 4.294.914.00 4.213.144.00 4.230.382.00 4.115.462.00 4.474.366.00 4.587.739.00 4.490.278.00 4.310.826.00 4.505.969.00 4.294.914.00 4.490.278.00 4.474.366.00 4.523.207.00 4.343.755.00 4.538.898.00 4.523.207.00 4.816.032.00 4.749.953.00 4.490.278.00 4.359.446.00 4.538.898.00 4.294.914.00 4.474.366.00 4.505.969.00 4.572.048.00 4.425.746.00 4.505.969.00 4.554.810.00 4.734.262.00 4.587.739.00 4.392.596.00 4.181.541.00 4.376.905.00 3.839.875.00 4.099.771.00 4.246.073.00 4.392.596.00 4.181.541.00 4.181.541.00 4.181.541.00 4.294.914.00 4.132.921.00 3.920.319.00 3.742.414.00 3.871.478.00 3.367.598.00 3.676.335.00 3.855.787.00 3.888.716.00 3.709.264.00 3.724.955.00 3.676.335.00 3.839.875.00 3.724.955.00 3.498.430.00 3.334.669.00 3.611.582.00 3.010.241.00 3.400.748.00 3.578.653.00 3.578.653.00 3.367.598.00 3.172.455.00 3.156.764.00 3.334.669.00 3.172.455.00 2.863.939.00 2.651.337.00 2.879.630.00 2.342.821.00 2.830.789.00 3.090.464.00 3.172.455.00 2.993.003.00 2.766.257.00 2.928.471.00 2.993.003.00 2.944.162.00 2.455.973.00 2.229.448.00 2.391.441.00 1.903.473.00 2.407.353.00 2.586.805.00 2.733.107.00 2.489.123.00 2.260.830.00 2.391.441.00 2.455.973.00 2.326.909.00 1.838.941.00 1.626.339.00 1.821.482.00 1.284.673.00 1.870.323.00 2.229.448.00
Data Y:
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
box colour
Notched Boxes
TRUE
FALSE
% to trim
Chart options
Label y-axis:
Label x-axis:
R Code
bitmap(file='test1.png') par1 <- as.numeric(par1) par2<- as.logical(par2) par3<-as.numeric(par3) if(par3>45){par3<-45;warning('trim limited to 45%')} if(par3<0){par3<-0;warning('negative trim makes no sense. Trim is zero.')} x1<-x[y==1] y1<-y[y==1] lotrm<-as.integer(length(x1)*par3/100) hitrm<-as.integer(length(x1)*(100-par3)/100) srt<-order(x1,y1) trmx1<-x1[srt[lotrm:hitrm]] trmy1<-y1[srt[lotrm:hitrm]] x2<-x[y==2] y2<-y[y==2] lotrm<-as.integer(length(x2)*par3/100) hitrm<-as.integer(length(x2)*(100-par3)/100) srt<-order(x2,y2) trmx2<-x2[srt[lotrm:hitrm]] trmy2<-y2[srt[lotrm:hitrm]] xtrm<-c(trmx1,trmx2) ytrm<-c(trmy1,trmy2) r<-boxplot(xtrm~as.factor(ytrm), col=par1, notch=par2, names =c('yes', 'no'), main='Reddy and Moores Placements Data', xlab='Placement Student', ylab='Degree Grade') 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,'Placement',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) a<-table.row.start(a) a<-table.element(a,'yes',1,TRUE) for (j in 1:5) { a<-table.element(a,r$stats[j,1]) } a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'no',1,TRUE) for (j in 1:5) { a<-table.element(a,r$stats[j,2]) } a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab') tr.mns<-tapply(x,y,mean, trim=par3/100) a<-table.start() a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/trimmed_mean.htm','Trimmed Mean Equation','Trimmed Mean'),2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Placement') a<-table.element(a,'No Placement') a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,tr.mns[1]) a<-table.element(a,tr.mns[2]) 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