Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
6 7 2 11 13 3 17 10 4 12 7 11 3 5 1 12 18 8 6 1
Names of X columns:
Score
Sample Range:
(leave blank to include all observations)
From:
To:
Color
121248484848FALSE121101two.sidedgrey1111121212greygrey1111111111two.sidedtwo.sided12greytwo.sidedgrey1112greytwo.sidedgrey1111two.sidedtwo.sidedtwo.sidedtwo.sided111two.sidedtwo.sided12greypearson0.950.950.95greygreygreygrey
grey
white
blue
red
black
brown
yellow
Omit all rows with missing values?
-0.3-0.3-0.3-0.3-0.3-0.3Do not include Seasonal DummiesDo not include Seasonal DummiesDo not include Seasonal DummiesDo not include Seasonal Dummies0.95no2222nono222Do not include Seasonal DummiesDo not include Seasonal Dummies2222222Do not include Seasonal Dummies0.950.95SinglenoDo not include Seasonal Dummies0.95no22no0.99no22220.970.97Do not include Seasonal Dummies0.970.97222Do not include Seasonal Dummies0.950.95Doubleno-3-3-3nononono
no
yes
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
if(par2=='yes') { z <- na.omit(as.data.frame(t(y))) } else { 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,'Boxplot statistics',6,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Variable',1,TRUE) a<-table.element(a,'lower whisker',1,TRUE) a<-table.element(a,'lower hinge',1,TRUE) a<-table.element(a,'median',1,TRUE) a<-table.element(a,'upper hinge',1,TRUE) a<-table.element(a,'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