R version 2.8.0 (2008-10-20) Copyright (C) 2008 The R Foundation for Statistical Computing ISBN 3-900051-07-0 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. Natural language support but running in an English locale R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > x <- array(list(4 + ,4 + ,3 + ,3 + ,3 + ,2 + ,2 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,4 + ,2 + ,2 + ,2 + ,2 + ,1 + ,4 + ,2 + ,2 + ,4 + ,2 + ,2 + ,2 + ,2 + ,4 + ,4 + ,4 + ,2 + ,4 + ,4 + ,4 + ,3 + ,2 + ,4 + ,4 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,4 + ,4 + ,4 + ,4 + ,2 + ,2 + ,2 + ,2 + ,2 + ,4 + ,2 + ,2 + ,4 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,3 + ,3 + ,2 + ,3 + ,2 + ,2 + ,3 + ,2 + ,5 + ,4 + ,4 + ,4 + ,2 + ,3 + ,2 + ,1 + ,1 + ,2 + ,4 + ,2 + ,1 + ,1 + ,1 + ,2 + ,3 + ,3 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,4 + ,4 + ,4 + ,3 + ,3 + ,2 + ,2 + ,1 + ,2 + ,2 + ,3 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,4 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,3 + ,3 + ,3 + ,2 + ,3 + ,2 + ,2 + ,2 + ,2 + ,4 + ,4 + ,2 + ,2 + ,4 + ,4 + ,3 + ,4 + ,4 + ,3 + ,3 + ,3 + ,2 + ,4 + ,3 + ,4 + ,3 + ,3 + ,5 + ,5 + ,4 + ,4 + ,5 + ,3 + ,4 + ,4 + ,4 + ,4 + ,4 + ,2 + ,2 + ,4 + ,4 + ,2 + ,2 + ,2 + ,4 + ,2 + ,2 + ,2 + ,3 + ,2 + ,2 + ,4 + ,4 + ,3 + ,4 + ,2 + ,2 + ,3 + ,3 + ,2 + ,3 + ,3 + ,2 + ,3 + ,4 + ,3 + ,5 + ,3 + ,2 + ,3 + ,4 + ,4 + ,4 + ,2 + ,2 + ,4 + ,4 + ,2 + ,2 + ,4 + ,3 + ,1 + ,2 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,2 + ,2 + ,3 + ,4 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,4 + ,4 + ,2 + ,1 + ,5 + ,2 + ,3 + ,2 + ,2 + ,2 + ,3 + ,3 + ,2 + ,2 + ,2 + ,2 + ,4 + ,3 + ,2 + ,1 + ,2 + ,4 + ,2 + ,4 + ,4 + ,2 + ,2 + ,2 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,4 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,3 + ,2 + ,4 + ,3 + ,3 + ,4 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,4 + ,4 + ,4 + ,4 + ,3 + ,2 + ,2 + ,2 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,4 + ,2 + ,2 + ,4 + ,4 + ,3 + ,4 + ,4 + ,2 + ,1 + ,1 + ,3 + ,1 + ,1 + ,1 + ,1 + ,1 + ,4 + ,2 + ,4 + ,4 + ,4 + ,2 + ,3 + ,2 + ,3 + ,4 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,3 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,3 + ,4 + ,4 + ,4 + ,2 + ,4 + ,2 + ,4 + ,4 + ,3 + ,4 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,3 + ,2 + ,2 + ,1 + ,2 + ,2 + ,3 + ,2 + ,2 + ,1 + ,3 + ,2 + ,2 + ,2 + ,3 + ,3 + ,3 + ,4 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,3 + ,3 + ,3 + ,4 + ,3 + ,2 + ,2 + ,2 + ,2 + ,4 + ,2 + ,4 + ,4 + ,4 + ,2 + ,2 + ,4 + ,1 + ,2 + ,2 + ,3 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,3 + ,3 + ,2 + ,2 + ,2 + ,2 + ,3 + ,3 + ,3 + ,4 + ,2 + ,4 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,3 + ,3 + ,2 + ,3 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,5 + ,3 + ,3 + ,2 + ,2 + ,4 + ,2 + ,2 + ,4 + ,4 + ,3 + ,3 + ,4 + ,2 + ,4 + ,3 + ,3 + ,4 + ,4 + ,4 + ,4 + ,5 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,3 + ,3 + ,3 + ,2 + ,4 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,4 + ,4 + ,4 + ,4 + ,4 + ,3 + ,3 + ,3 + ,4 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,3 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,1 + ,2 + ,3 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,4 + ,2 + ,2 + ,2 + ,2 + ,3 + ,2 + ,2 + ,1 + ,2 + ,2 + ,1 + ,3 + ,2 + ,3 + ,2 + ,4 + ,4 + ,4 + ,3 + ,4 + ,3 + ,3 + ,3 + ,2 + ,3 + ,4 + ,4 + ,4 + ,3 + ,5 + ,4 + ,4 + ,3 + ,2 + ,1 + ,3 + ,2 + ,3 + ,2 + ,2 + ,2 + ,3 + ,3 + ,2 + ,3 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,3 + ,4 + ,2 + ,2 + ,2 + ,2 + ,3 + ,4 + ,4 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,3 + ,2 + ,2 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,4 + ,4 + ,4 + ,3 + ,2 + ,4 + ,3 + ,3 + ,4 + ,4 + ,4 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,3 + ,2 + ,3 + ,3 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,4 + ,2 + ,2 + ,4 + ,2 + ,2 + ,2 + ,2 + ,3 + ,2 + ,1 + ,1 + ,3 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,4 + ,4 + ,3 + ,4 + ,3 + ,3 + ,4 + ,3 + ,3 + ,2 + ,1 + ,3 + ,2 + ,2 + ,1 + ,1 + ,2 + ,1 + ,4 + ,4 + ,2 + ,4 + ,2 + ,4 + ,2 + ,2 + ,4 + ,2 + ,4 + ,3 + ,3 + ,4 + ,2 + ,2 + ,3 + ,3 + ,1 + ,4 + ,3 + ,1 + ,4 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,3 + ,2 + ,3 + ,3 + ,3 + ,4 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,4 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,5 + ,4 + ,2 + ,4 + ,4 + ,4 + ,2 + ,4 + ,4 + ,3 + ,2 + ,2 + ,4 + ,5 + ,1 + ,4 + ,2 + ,1 + ,4 + ,3 + ,1 + ,1 + ,3 + ,2 + ,2 + ,3 + ,3 + ,5 + ,4 + ,4 + ,4 + ,4 + ,2 + ,4 + ,3 + ,2 + ,3 + ,3 + ,4 + ,3 + ,5 + ,3 + ,3 + ,4 + ,3 + ,1 + ,2 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,3 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,4 + ,2 + ,1 + ,2 + ,1 + ,3 + ,4 + ,2 + ,3 + ,3 + ,4 + ,3 + ,3 + ,4 + ,2 + ,4 + ,2 + ,2 + ,3 + ,3 + ,2 + ,2 + ,2 + ,3 + ,2 + ,1 + ,1 + ,3 + ,3 + ,2 + ,1 + ,2 + ,2 + ,4 + ,2 + ,2 + ,2 + ,2 + ,2 + ,4 + ,2 + ,4 + ,3 + ,1 + ,4 + ,2 + ,4 + ,3 + ,2 + ,2 + ,2 + ,1 + ,1 + ,3 + ,2 + ,2 + ,4 + ,2 + ,3 + ,3 + ,2 + ,2 + ,2 + ,2 + ,3 + ,3 + ,1 + ,2 + ,2 + ,4 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,4 + ,4 + ,2 + ,3 + ,2 + ,4 + ,2 + ,2 + ,3 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,3 + ,2 + ,1 + ,1 + ,1 + ,1 + ,3 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,3 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,4 + ,3 + ,1 + ,3 + ,2 + ,3 + ,3 + ,2 + ,2 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,4 + ,3 + ,4 + ,5 + ,3 + ,3 + ,2 + ,3 + ,2 + ,2 + ,2 + ,2 + ,4 + ,2 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,3 + ,2 + ,2 + ,2 + ,4 + ,2 + ,2 + ,2 + ,3 + ,3 + ,2 + ,2 + ,4 + ,4 + ,4 + ,2 + ,4 + ,4 + ,1 + ,4 + ,3 + ,4 + ,2 + ,3 + ,3 + ,2 + ,3 + ,2 + ,3 + ,3 + ,2 + ,4 + ,2 + ,2 + ,3 + ,2 + ,3 + ,2 + ,3 + ,4 + ,4 + ,2 + ,2 + ,2 + ,2 + ,3 + ,2 + ,2 + ,2 + ,4 + ,2 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,4 + ,5 + ,2 + ,3 + ,4 + ,2 + ,2 + ,4 + ,4 + ,2 + ,3 + ,2 + ,2 + ,3 + ,3 + ,1 + ,3 + ,3 + ,4 + ,3 + ,5 + ,4 + ,4 + ,3 + ,4 + ,2 + ,3 + ,4 + ,3 + ,1 + ,2 + ,4 + ,2 + ,1 + ,2 + ,3 + ,3 + ,1 + ,2 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,4 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,3 + ,3 + ,4 + ,2 + ,3 + ,4 + ,2 + ,2 + ,4 + ,3 + ,1 + ,2 + ,2 + ,3 + ,3 + ,3 + ,2 + ,3 + ,3 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,5 + ,3 + ,3 + ,5 + ,3 + ,2 + ,3 + ,4 + ,3 + ,3 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2) + ,dim=c(9 + ,145) + ,dimnames=list(c('Q1_9' + ,'Q1_10' + ,'Q1_13' + ,'Q1_14' + ,'Q1_18' + ,'Q1_21' + ,'Q1_23' + ,'Q1_25' + ,'Q1_34') + ,1:145)) > y <- array(NA,dim=c(9,145),dimnames=list(c('Q1_9','Q1_10','Q1_13','Q1_14','Q1_18','Q1_21','Q1_23','Q1_25','Q1_34'),1:145)) > for (i in 1:dim(x)[1]) + { + for (j in 1:dim(x)[2]) + { + y[i,j] <- as.numeric(x[i,j]) + } + } > #'GNU S' R Code compiled by R2WASP v. 1.0.44 () > #Author: Dr. Ian E. Holliday > #To cite this work: Ian E. Holliday, 2009, YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/ > #Source of accompanying publication: > #Technical description: > library(psych) > z <- t(y) > (r <- alpha(z)) Reliability analysis Call: alpha(x = z) raw_alpha std.alpha G6(smc) average_r mean sd 0.85 0.85 0.86 0.40 2.4 0.64 Reliability if an item is dropped: raw_alpha std.alpha G6(smc) average_r Q1_9 0.84 0.85 0.85 0.41 Q1_10 0.84 0.84 0.84 0.40 Q1_13 0.83 0.84 0.84 0.40 Q1_14 0.84 0.85 0.84 0.41 Q1_18 0.83 0.83 0.83 0.38 Q1_21 0.83 0.83 0.84 0.39 Q1_23 0.84 0.85 0.85 0.41 Q1_25 0.83 0.83 0.83 0.39 Q1_34 0.83 0.83 0.83 0.39 Item statistics n r r.cor r.drop mean sd Q1_9 145 0.62 0.54 0.50 2.5 1.11 Q1_10 145 0.66 0.59 0.55 2.9 1.06 Q1_13 145 0.67 0.63 0.57 2.2 0.92 Q1_14 145 0.63 0.58 0.52 2.3 0.94 Q1_18 145 0.74 0.71 0.65 2.7 1.08 Q1_21 145 0.72 0.68 0.62 2.3 0.82 Q1_23 145 0.63 0.56 0.51 2.2 0.86 Q1_25 145 0.73 0.70 0.63 2.2 0.82 Q1_34 145 0.72 0.70 0.62 2.3 0.83 Non missing response frequency for each item 1 2 3 4 5 miss Q1_9 0.19 0.39 0.17 0.23 0.02 0 Q1_10 0.09 0.34 0.21 0.33 0.03 0 Q1_13 0.18 0.54 0.16 0.11 0.01 0 Q1_14 0.18 0.49 0.18 0.15 0.00 0 Q1_18 0.07 0.52 0.14 0.21 0.06 0 Q1_21 0.12 0.59 0.18 0.11 0.00 0 Q1_23 0.21 0.50 0.20 0.09 0.00 0 Q1_25 0.15 0.58 0.17 0.10 0.00 0 Q1_34 0.12 0.56 0.21 0.11 0.00 0 > > #Note: the /var/www/html/freestat/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/www/html/freestat/rcomp/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="/var/www/html/freestat/rcomp/tmp/1ngq61292595644.tab") > > > > proc.time() user system elapsed 0.924 0.031 0.948