Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
10 10 15 9 14 12 14 14 8 6 19 13 17 12 18 13 10 6 15 12 16 10 12 9 13 12 10 7 14 10 15 11 20 15 9 10 12 12 13 10 16 12 12 11 14 11 15 12 19 15 16 12 16 11 14 9 14 11 14 11 13 9 18 15 15 12 15 9 15 12 13 12 14 9 15 9 14 11 19 12 16 12 16 12 12 12 10 6 11 11 13 12 14 9 11 11 11 9 16 10 9 10 16 9 19 12 13 11 15 9 14 9 15 12 11 6 14 10 15 12 17 11 16 14 13 8 15 9 14 10 15 10 14 10 12 11 12 10 15 12 17 14 13 10 5 8 7 8 10 7 15 11 9 6 9 9 15 12 14 12 11 12 18 9 20 15 20 15 16 13 15 9 14 12 13 9 18 15 14 11 12 11 9 6 19 14 13 11 12 8 14 10 6 10 14 9 11 8 11 9 14 10 12 11 19 14 13 12 14 9 17 13 12 8 16 12 15 14 15 9 15 10 16 12 15 12 12 9 13 9 14 12 17 15 14 12 14 11 14 8 15 11 11 11 11 10 16 12 12 9 12 11 19 15 18 14 16 6 16 9 13 9 11 8 10 7 14 10 14 6 14 9 16 9 10 7 16 11 7 9 16 12 15 9 17 10 11 11 11 7 10 12 13 8 14 13 13 11 13 11 12 12 10 11 15 12 6 3 15 10 15 13 11 10 14 6 14 11 16 12 12 9 15 10 20 15 12 9 9 6 13 9 15 15 19 15 11 9 11 11 17 9 15 11 14 10 15 9 11 6 12 12 15 13 16 12 16 12
Names of X columns:
Perceived_Ease_of_Use Perceived_Usefulness
check.keys
(?)
0
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