Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
18 20 12 23 19 20 22 18 14 22 24 25 19 20 15 25 20 20 28 24 21 16 21 15 28 28 28 21 10 11 22 22 22 24 19 22 24 27 27 26 23 24 28 24 23 24 24 24 20 25 21 26 24 20 21 21 19 28 28 25 27 28 16 23 22 24 24 26 21 24 26 22 22 21 25 21 26 23 25 23 20 20 20 21 21 24 22 26 25 25 23 24 23 21 20 19 27 24 21 25 25 19 23 23 25 25 21 16 23 23 24 19 21 24 22 18 18 24 24 28 19 18 15 21 21 17 27 23 18 25 25 26 25 22 18 23 22 22 17 23 19 28 24 17 25 25 26 20 22 21 25 24 26 21 21 21 24 24 12 28 25 20 20 23 20 19 27 24 24 27 24 21 23 22 24 18 21 23 20 20 18 23 23 27 24 19 25 26 24 20 20 21 21 23 16 23 22 17 27 23 23 24 17 20 27 20 19 24 22 18 23 18 18 24 19 21 21 19 20 23 16 17 27 26 25 24 14 15 25 25 17 19 23 17 24 18 24 25 22 21 23 26 22 23 25 18 25 26 22 26 26 20 26 24 21 16 22 21 23 21 20 26 22 18 25 28 25 23 22 23 26 26 21 22 20 20 20 24 21 27 21 20 20 23 22 22 23 15 24 23 24 21 22 22 24 23 21 26 21 17 24 27 23 24 23 22 27 26 23 25 27 16 27 27 18 19 23 25 22 23 18 22 23 14 25 28 20 23 24 19 24 20 18 24 23 22 23 22 21 22 15 14 24 27 5 19 23 25 25 23 21 26 20 11 18 18 20 24 22 9 28 20 15 23 21 23 19 25 21 19 19 9 27 25 24 24 24 16 26 22 20 21 28 15 25 22 18 28 21 22 19 23 21 20 19 21 26 21 21 27 25 20 23 23 24 18 28 15 23 14 24 21 23 18 23 24 24 22 25 24 21 15 15 14 23 19 24 26 20 26 21 26 24 26 26 22 23 23 20 15 13 20 16 16 18 20 22 18 20 21 25 21 11 28 28 23 23 19 18 20 21 19 22 22 15 27 27 8 24 20 15 23 17 21 20 26 25 22 21 14 21 24 21 24 21 18 26 25 18 24 22 12 18 17 24 17 14 17 23 23 20 21 28 24 21 24 22 24 22 15 22 24 22 24 25 26 24 21 17 24 22 23 23 16 19 21 18 21 24 27 23 19 17 19 19 25 18 23 24 16 25 21 23 24 21 13 21 19 18 18 27 23 23 28 21 20 19 23 23 23 16 23 25 17 23 26 20 23 25 18 27 25 20 19 24 19 25 24 26 25 24 9 21 22 23 25 21 9 17 17 13 22 23 27 23 17 22 27 25 12 27 19 18 5 8 6 19 14 17 24 22 22 23 25 22 28 28 23 25 25 19 27 24 20 16 15 17 25 24 24 26 28 20 24 24 18 23 25 23 24 23 27 27 26 25 25 26 24 19 22 12 19 25 16 24 22 24 20 26 23 21 20 24 28 26 24 26 26 26 19 21 19 23 21 28 23 24 23 21 21 21 26 18 19 25 23 23 25 26 23 24 23 20 23 25 18 22 20 20 27 25 28 26 26 21 23 19 25 22 21 18 26 23 24 22 24 28 17 6 9 25 22 22 22 21 26 28 28 28 22 24 18 21 14 23 24 20 15 26 28 24 26 19 12 24 24 12 27 21 20 22 21 25 23 26 24 22 24 23 23 26 18 15 25 20 20 23 22 22 24 20 25 24 25 27 26 28 24 23 25 21 20 14 17 16 16 26 24 24 20 20 13 22 23 19 24 23 18 23 18 16 22 21 8 28 25 27 21 23 23 24 26 20 28 26 20 25 24 26 24 23 23 24 21 24 21 23 21 20 20 15 26 23 22 16 24 25
Names of X columns:
AMS.E1 AMS.E3 AMS.E2
check.keys
(?)
TRUE
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