source('/home/pw/wessanet/cretab') myrfcuid = '' x <- array(list(2,2,2,2,0,2,2,2,6,4,4,3,4,5,3,6,4,5,3,6,2,3,4,2,2,2,2,2,2,2,2,2,6,4,4,5,4,5,3,3,2,5,3,6,2,3,2,2,0,2,0,0,2,0,0,2,4,0,2,0,0,0,0,3,4,5,4,4,2,5,2,2,2,0,2,2,0,2,2,0,4,4,6,3,4,5,3,3,2,4,3,6,2,3,4,2,2,2,2,2,2,2,2,2,6,4,6,5,8,0,3,6,6,6,4,6,2,3,4,4,2,2,2,2,2,0,2,0,6,4,4,5,4,5,3,6,4,6,4,8,2,5,4,4,0,0,2,2,0,0,2,2,2,0,4,0,4,0,0,6,4,5,4,4,2,3,2,2,2,2,2,2,2,2,2,2,6,4,4,5,4,5,3,3,2,4,3,8,2,3,2,2,2,0,2,0,2,2,0,0,2,0,2,5,0,0,0,3,2,4,3,2,1,1,0,2,2,2,0,2,2,0,2,2,4,4,4,5,4,5,3,3,6,6,4,8,2,3,4,4,2,2,2,2,2,2,2,2,6,4,4,5,4,5,3,3,6,6,2,8,0,3,4,4,2,2,2,2,2,2,2,2,4,4,4,5,4,5,3,6,6,6,6,6,2,3,2,4,2,2,2,2,2,2,2,2,6,4,6,5,4,5,3,3,4,6,3,8,2,3,4,4,2,2,2,2,2,2,2,2,6,4,4,3,8,5,3,6,6,5,3,8,2,3,4,4,2,2,2,2,2,2,2,2,6,4,4,5,8,5,3,6,6,6,4,8,2,5,4,4,0,2,0,0,0,2,0,2,4,0,0,3,0,0,3,0,4,3,2,2,2,1,2,0,0,0,0,0,2,0,2,0,2,0,2,3,0,0,3,0,2,2,1,0,2,0,0,0,2,2,2,2,2,2,2,2,6,4,4,3,4,5,3,6,2,2,2,4,2,1,2,2,2,2,2,0,2,2,2,0,4,4,6,3,4,5,0,3,4,4,2,4,1,2,2,2,2,2,2,2,2,2,0,2,6,4,6,5,4,5,0,0,2,3,2,2,2,2,2,2,2,2,2,2,0,2,2,2,6,0,4,3,4,5,3,6,4,4,4,4,2,2,2,2,2,2,2,2,2,2,2,2,6,4,6,5,4,0,3,3,4,3,4,6,2,3,2,2,2,2,0,2,2,0,2,2,4,4,4,3,0,5,3,3,4,6,4,6,0,0,0,0,2,2,2,2,2,0,2,2,4,4,4,3,0,5,0,0,2,3,3,4,0,0,0,0,0,2,0,0,2,0,0,2,2,0,0,0,0,5,0,0,2,2,2,0,1,0,0,0,2,2,2,2,2,2,2,2,6,4,4,3,4,5,3,3,4,3,3,4,2,3,2,2,0,0,0,2,0,2,0,0,0,0,2,3,0,5,3,0,2,1,0,0,2,1,0,0,2,2,2,2,2,2,2,2,6,4,6,5,8,5,0,6,4,5,4,6,2,3,2,4,2,2,2,2,2,2,0,2,6,4,6,5,4,5,3,3,4,3,2,4,2,3,2,2,2,2,2,0,2,2,2,0,4,4,4,3,0,0,3,3,2,3,2,2,1,2,2,0,2,2,0,2,2,0,2,2,4,4,2,3,4,0,3,3,4,4,2,4,1,2,2,2,0,2,2,0,2,2,2,0,4,4,4,5,4,5,3,3,4,4,2,6,2,3,2,2,2,2,2,2,2,0,2,2,6,4,6,5,8,5,3,6,6,5,3,8,2,5,4,4),dim=c(24,33),dimnames=list(c('Q1','Q2','Q3','Q4','Q5','Q6','Q7','Q8','Q9','Q10','Q11','Q12','Q13','Q14','Q15','Q16','Q17','Q18','Q19','Q20','Q21','Q22','Q23','Q24'),1:33)) y <- array(NA,dim=c(24,33),dimnames=list(c('Q1','Q2','Q3','Q4','Q5','Q6','Q7','Q8','Q9','Q10','Q11','Q12','Q13','Q14','Q15','Q16','Q17','Q18','Q19','Q20','Q21','Q22','Q23','Q24'),1:33)) for (i in 1:dim(x)[1]) { for (j in 1:dim(x)[2]) { y[i,j] <- as.numeric(x[i,j]) } } par1 = 'TRUE' par1 <- 'TRUE' #'GNU S' R Code compiled by R2WASP v. 1.2.327 (Mon, 17 Jul 2017 15:03:19 +0200) #Author: root #To cite this work: Wessa P. (2017), Cronbach alpha (v1.0.5) in Free Statistics Software (v$_version), Office for Research Development and Education, URL https://www.wessa.net/rwasp_cronbach.wasp/ #Source of accompanying publication: # library(psych) par1b <- T if(par1=='FALSE') par1b <- F z <- t(y) (r <- alpha(z,check.keys=par1b)) 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="/home/pw/wessanet/rcomp/tmp/1f4x81580325377.tab")