source('/home/pw/wessanet/cretab') myrfcuid = '' x <- array(list(7,7,7,5,5,5,5,5,6,5,4,4,4,5,5,5,5,5,5,5,6,6,6,7,7,4,7,7,6,5,5,6,6,7,7,6,6,5,5,6,5,2,4,6,5,5,6,6,4,5,4,6,6,6,6,6,6,6,7,7,5,5,6,5,3,3,4,3,7,6,6,7,3,5,6,6,5,5,6,6,3,3,4,4,5,5,5,6,2,1,2,2,6,5,6,6,3,4,5,5,6,6,6,7,6,6,6,7,5,4,5,5,5,4,5,6,7,5,5,6,6,4,6,6,5,5,6,6,5,6,5,5,4,3,4,4,4,5,6,5,6,5,5,6,5,3,5,5,5,5,5,5,7,7,7,7,5,6,5,6,5,4,5,4,6,5,7,5,5,5,5,5,6,6,7,6,7,7,6,6,5,3,3,4,5,4,4,4,5,6,6,6,6,5,5,5,2,2,4,5,4,4,4,6,4,4,6,5,6,5,5,6,3,4,4,5,6,6,6,6,6,2,5,5,5,4,5,6,6,6,6,6,1,4,6,3,5,5,6,6,7,6,5,6,4,4,5,5,5,6,5,5,6,6,5,6,4,5,4,4,6,6,5,5,6,6,6,6,5,4,6,6,5,6,5,6,3,3,5,5,5,5,5,6,6,5,6,6,5,5,6,6,6,6,6,6,6,6,6,6,4,4,4,4,4,4,4,4,6,5,5,5,7,6,6,7,4,3,3,5,5,6,7,7,6,2,5,5,6,5,6,6,5,3,6,6,3,4,5,5,7,6,6,6,6,5,6,7,4,4,4,5,4,5,6,4,5,5,5,5,3,4,4,4,7,7,7,6,6,4,6,6,6,6,6,5,4,4,4,4,5,4,5,5,6,6,6,7,5,3,5,6,6,4,4,5,6,7,7,6,4,5,6,6,5,5,5,5,6,6,6,6,5,5,6,6,5,5,5,5,4,4,5,5,4,5,5,4,6,6,5,7,5,5,7,7,6,5,6,5,5,4,7,7,6,4,6,6,5,5,5,5,4,5,4,5,6,6,6,7,4,5,4,5,5,3,3,5,5,5,5,5,6,3,5,5,3,4,5,3,5,4,5,5,4,5,5,5,5,2,5,4,5,5,3,4,7,7,7,7,5,6,6,6,7,6,6,6,5,5,4,6,4,4,4,5,6,6,6,5,4,3,4,5,4,7,6,6,4,3,2,2,4,4,5,5,6,6,5,7,6,5,6,6,5,6,5,5,3,4,4,5,6,6,6,6,5,6,6,6,4,4,5,5,5,5,5,5,2,3,2,2,5,6,6,7,7,5,6,7,4,6,5,5,4,5,6,6,7,6,7,5,6,5,5,6,5,6,5,5,5,5,5,6,5,5,6,6,7,6,7,7,6,5,7,6,6,6,6,6,5,5,5,6,2,4,6,6,4,4,4,4,6,4,6,6,5,5,6,4,5,4,4,5,5,5,5,5),dim=c(4,162),dimnames=list(c('Q2','Q9','Q16','Q23'),1:162)) y <- array(NA,dim=c(4,162),dimnames=list(c('Q2','Q9','Q16','Q23'),1:162)) 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/162yl1604837475.tab")