Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
59 48 65 57 73 48 82 54 72 72 91 73 47 48 65 100 89 42 48 92 67 62 77 70 41 50 71 78 53 62 74 78 70 80 85 78 52 64 71 100 80 56 88 100 97 86 100 78 67 72 100 89 57 86 88 78 57 54 65 100 45 88 100 100 70 68 88 85 65 56 65 100 64 64 88 82 67 76 97 85 66 76 88 100 67 54 100 100 72 96 60 78 35 88 65 100 64 86 68 78 47 54 54 71 40 70 51 78 64 94 80 78 61 66 91 100 47 64 71 57 60 64 88 100 73 80 71 92 63 74 82 96 60 62 82 82 95 56 97 82 72 72 97 96 68 44 60 92 64 60 94 75 61 94 71 67 69 52 60 75 54 86 97 78 27 52 91 100 80 62 88 85 64 96 65 64 33 70 88 78 83 74 74 64 94 64 68 50 72 86 71 75 65 62 85 71 83 54 91 75 76 90 51 78 73 50 88 50 30 62 51 89 92 52 91 67 75 74 85 57 34 84 68 71 45 70 80 78 51 60 65 64 86 58 91 64 48 54 54 50
Names of X columns:
ОБШ ШМ ШУДЖ СУБ
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