Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
10 7 14 11 8 21 11 8 20 13 10 20 7 8 20 12 9 18 11 8 18 12 10 17 12 7 15 12 10 18 11 8 16 12 8 17 10 6 19 12 7 21 10 9 15 15 9 21 12 8 16 15 8 18 13 10 18 12 7 17 12 7 18 9 7 16 12 6 15 8 9 15 10 7 19 11 8 14 14 10 19 14 9 19 11 8 15 11 8 17 11 10 21 10 8 13 8 4 12 12 6 15 10 7 19 12 7 19 8 3 14 10 8 18 9 8 11 12 6 17 15 10 18 13 8 13 11 4 12 12 8 17 12 7 20 9 6 16 14 9 22 10 10 16 14 9 23 12 7 20 15 10 23 9 7 13 14 10 18 10 9 18 11 7 17 11 10 17 12 8 18 11 8 21 10 6 13 13 9 19 8 7 16 9 8 17 9 8 18 15 9 18 8 5 12 13 9 19 10 6 16 13 8 20 15 10 21 10 7 18 9 5 13 12 4 17 12 9 20 12 10 21 12 8 19 10 6 15 9 6 14 12 9 15 12 3 16 12 7 19 8 9 17 11 7 17 10 8 15 15 9 19 13 9 21 11 8 19 12 9 18 11 6 18 11 7 15 14 8 19 14 7 19 14 9 18 12 9 20 10 5 18 12 6 12 11 8 15 15 10 17 9 5 15 11 8 17 14 8 20 10 10 11 12 7 14 10 9 14 12 8 12 13 8 19 13 10 22 12 9 16 12 9 15 9 6 15 10 8 18 7 5 12 12 3 17 12 6 10 12 6 10 13 10 18 12 9 16 15 9 22 8 5 12 7 6 10 9 7 20 11 8 20 11 9 19 6 3 10 6 5 13 8 5 15 11 9 19 12 10 17 13 7 15 9 8 12 10 6 14 9 5 13 10 8 15 12 7 20 7 5 12 13 6 16 10 10 15 10 10 17 11 6 15 8 4 12 12 8 17 4 5 11 13 7 16 13 10 16 10 8 15 12 7 17 6 2 7 8 7 14 13 9 21 12 8 20 10 5 15 10 8 13 10 6 20 8 7 15 11 10 16 12 8 19 12 10 16 12 9 19 11 8 17 12 10 19 10 4 14 12 6 16 13 9 16 10 4 14 7 6 11 11 7 17 10 9 20 12 8 20 11 6 17 10 4 13 12 8 20 11 8 17 14 9 16 12 6 19 12 5 20 10 5 17 11 8 14 12 8 20 12 9 19 12 7 18 8 9 17 11 8 17 8 6 10 6 7 12 13 8 19 11 8 19 9 7 21 11 7 21 14 8 17 9 8 19 13 9 21 12 9 15 12 9 14 11 8 15 9 2 13 7 8 14 10 8 14 12 8 19 11 7 17 11 10 19 11 8 18 13 10 21 11 5 12 8 4 15 11 10 19 10 8 16 12 7 19 8 5 16 13 7 18 10 9 18 11 8 15 11 8 15 8 2 11 13 9 18 12 8 13 9 5 9 15 7 21 12 8 19 14 7 13 7 5 15 11 10 18 10 6 16 7 6 10 11 5 12 11 7 18 10 8 17 9 8 15 11 4 16 12 9 19 10 4 15 13 10 24 10 6 15 10 6 14 12 8 16 12 8 16 12 8 20 12 8 20 12 8 20 12 8 20 7 7 14 14 7 22 9 8 16 8 10 9 13 10 14 6 3 11 12 8 23 8 2 10 6 4 10 6 4 8 12 9 21 10 10 18 9 6 15 11 10 20 14 10 17 6 3 5 9 9 14 11 9 19 9 6 15 8 5 12 6 4 10 10 4 11 6 6 15 9 6 15 12 8 20 12 8 20 13 5 20 12 7 19 12 6 16 10 10 21 9 8 22 12 8 17 14 9 21 6 5 19 13 10 23 12 8 21 13 9 22 6 8 11 12 7 20 10 10 18 9 10 16 12 9 18 7 4 13 10 4 17 11 8 20 15 9 20 10 10 15 12 8 18 10 5 15 12 10 19 11 8 19 11 7 19 12 8 20 15 8 20 12 9 16 11 8 18 9 6 17 11 8 18 11 8 13 9 5 20 15 9 21 12 8 17 9 8 19 12 8 20 12 6 15 9 6 15 9 9 19 11 8 18 12 9 22 12 10 20 12 8 18 12 8 14 6 7 15 11 7 17 12 10 16 9 8 17 11 7 15 9 10 17 10 7 18 10 7 16 9 9 18 12 9 22 11 8 16 9 6 16 9 8 20 12 9 18 6 2 16 10 6 16 12 8 20 11 8 21 14 7 18 8 8 15 9 6 18 10 10 18 10 10 20 10 10 18 11 8 16 10 8 19 12 7 20 14 10 22 10 5 18 8 3 8 8 2 13 7 3 13 11 4 18 6 2 12 9 6 16 12 8 21 12 8 20 12 5 18 9 10 22 15 9 23 15 8 23 13 9 21 9 8 16 12 5 14 9 7 18 15 9 22 11 8 20 11 4 18 6 7 12 14 8 17 11 7 15 8 7 18 10 9 18 10 6 15 9 7 16 8 4 15 9 6 16 10 10 19 11 9 19 14 10 23 12 8 20 9 4 18 13 8 21 8 5 19 12 8 18 14 9 19 9 8 17 10 4 21 12 8 19 12 10 24 9 6 12 9 7 15 12 10 18 15 9 19 12 8 22 11 3 19 8 8 16 11 7 19 11 7 18 10 8 18 12 8 19 9 7 21 11 7 19 15 9 22 14 9 23 6 9 17 9 4 18 9 6 19 8 6 15 7 6 14 10 8 18 6 3 17 9 8 19 9 8 16 7 6 14 11 10 20 9 2 16 12 9 18 9 6 16 10 6 21 11 5 16 7 4 14 12 7 16 8 5 19 13 8 19 11 6 19 11 9 18 12 6 16 11 4 14 12 7 19 3 2 11 10 8 18 13 9 18 10 6 16 6 5 20 11 7 18 12 8 20 9 4 16 10 9 18 15 9 19 9 9 19 6 7 15 9 5 17 15 7 21 15 9 24 9 8 16 11 6 13 9 9 21 11 8 16 10 7 17 9 7 17 6 7 18 12 8 18 13 10 23 12 6 20 12 6 20
Names of X columns:
Perceived_Usefulness Intention_to_Use Information_Quality
check.keys
(?)
TRUE1pearsonpearson08888TRUE
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation