Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
0.5 "'VC'" 4.2 0.5 "'VC'" 11.5 0.5 "'VC'" 7.3 0.5 "'VC'" 5.8 0.5 "'VC'" 6.4 0.5 "'VC'" 10 0.5 "'VC'" 11.2 0.5 "'VC'" 11.2 0.5 "'VC'" 5.2 0.5 "'VC'" 7 1 "'VC'" 16.5 1 "'VC'" 16.5 1 "'VC'" 15.2 1 "'VC'" 17.3 1 "'VC'" 22.5 1 "'VC'" 17.3 1 "'VC'" 13.6 1 "'VC'" 14.5 1 "'VC'" 18.8 1 "'VC'" 15.5 2 "'VC'" 23.6 2 "'VC'" 18.5 2 "'VC'" 33.9 2 "'VC'" 25.5 2 "'VC'" 26.4 2 "'VC'" 32.5 2 "'VC'" 26.7 2 "'VC'" 21.5 2 "'VC'" 23.3 2 "'VC'" 29.5 0.5 "'OJ'" 15.2 0.5 "'OJ'" 21.5 0.5 "'OJ'" 17.6 0.5 "'OJ'" 9.7 0.5 "'OJ'" 14.5 0.5 "'OJ'" 10 0.5 "'OJ'" 8.2 0.5 "'OJ'" 9.4 0.5 "'OJ'" 16.5 0.5 "'OJ'" 9.7 1 "'OJ'" 19.7 1 "'OJ'" 23.3 1 "'OJ'" 23.6 1 "'OJ'" 26.4 1 "'OJ'" 20 1 "'OJ'" 25.2 1 "'OJ'" 25.8 1 "'OJ'" 21.2 1 "'OJ'" 14.5 1 "'OJ'" 27.3 2 "'OJ'" 25.5 2 "'OJ'" 26.4 2 "'OJ'" 22.4 2 "'OJ'" 24.5 2 "'OJ'" 24.8 2 "'OJ'" 30.9 2 "'OJ'" 26.4 2 "'OJ'" 27.3 2 "'OJ'" 29.4 2 "'OJ'" 23
Names of X columns:
Dosis Middel Haargroei
check.keys
(?)
TRUE
FALSE
R Code
library(psych) par1b <- T if(par1=='FALSE') par1b <- F z <- t(y) (r <- alpha(z,check.keys=par1b)) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Cronbach Alpha and Related Statistics',5,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Items',1,TRUE) a<-table.element(a,'Cronbach Alpha',1,TRUE) a<-table.element(a,'Std. Alpha',1,TRUE) a<-table.element(a,'G6(smc)',1,TRUE) a<-table.element(a,'Average R',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'All itmes',header=TRUE) a<-table.element(a,round(r$total['raw_alpha'],4)) a<-table.element(a,round(r$total['std.alpha'],4)) a<-table.element(a,round(r$total['G6(smc)'],4)) a<-table.element(a,round(r$total['average_r'],4)) a<-table.row.end(a) n = length(z[1,]) for (i in 1:n) { a<-table.row.start(a) a<-table.element(a,paste(colnames(z)[i],' excluded',sep=''),header=TRUE) a<-table.element(a,round(r$alpha.drop[i,'raw_alpha'],4)) a<-table.element(a,round(r$alpha.drop[i,'std.alpha'],4)) a<-table.element(a,round(r$alpha.drop[i,'G6(smc)'],4)) a<-table.element(a,round(r$alpha.drop[i,'average_r'],4)) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.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