source('/home/pw/wessanet/cretab')



myrfcuid = 'r0294607'

x <- array(list(5,5,4,1,5,5,4,2,4,5,2,1,2,4,2,4,5,4,3,1,4,5,2,5,5,5,3,2,5,5,2,2,5,4,3,3,5,5,5,1,5,5,2,4,5,5,5,1,5,5,2,1,4,4,2,4,5,5,2,2,5,5,3,2,4,3,2,3,5,5,2,2,4,4,3,1,4,4,4,3,2,2,4,4,3,3,4,1,4,4,5,1,4,4,3,1,5,5,2,1,4,4,2,1,3,3,2,3,5,5,1,1,2,2,1,3,3,5,2,4,5,5,3,1,5,3,3,3,5,5,2,1,5,5,2,1,5,4,4,4,5,4,3,2,4,4,2,4,4,4,1,4,4,4,3,5,5,5,1,3,2,2,1,3,4,4,1,4,5,5,3,1,4,4,3,4,5,5,4,4,3,3,1,4,5,5,2,3,5,2,2,4),dim=c(4,48),dimnames=list(c('EP1','EP2','EP3','EP4'),1:48))
 y <- array(NA,dim=c(4,48),dimnames=list(c('EP1','EP2','EP3','EP4'),1:48))
 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 (Sat, 03 Sep 2016 22:51:52 +0200)
#Author: root
#To cite this work: Wessa P., 2016, Cronbach alpha (v1.0.4) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://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/1uqoj1480944080.tab")