Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
gender "m" "m" "m" "m" "f" "m" "m" "f" "m" "m" "f" "m" "f" "f" "m" "f" "m" "f" "f" "f" "m" "f" "f" "f" "f" "m" "m" "f" "f" "m"
Data Y:
RAD -6.5 -7.33 49.33 -11 -2.67 -8.33 9 9.67 2.33 -12.3 -6 5.67 28.33 12 -2 -11.3 1.33 3 -4.67 -5 -13 2.33 37.67 7.5 5 -5.67 -4 30 15.33 2
box colour
Notched Boxes
TRUE
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