• QR Code (size=2)
• QR Code (size=3)
• QR Code (size=4)
• QR Code (size=5)
• QR Code (size=6)

11 8 7
19 18 20
16 12 9
24 24 19
15 16 12
17 19 16
19 16 17
19 15 9
28 28 28
26 21 20
15 18 16
26 22 22
16 19 17
24 22 12
25 25 18
22 20 20
15 16 12
21 19 16
22 18 16
27 26 21
26 24 15
26 20 17
22 19 17
21 19 17
22 23 18
20 18 15
21 16 20
20 18 13
22 21 21
21 20 12
8 15 6
22 19 13
20 19 19
24 7 12
17 20 14
20 20 13
23 19 12
20 19 17
22 20 19
19 18 10
15 14 10
20 17 11
22 17 11
17 8 10
14 9 7
24 22 22
17 20 12
23 20 18
25 22 20
16 22 9
18 22 16
20 16 14
18 14 11
23 24 20
24 21 17
23 20 14
13 20 8
20 18 16
20 14 11
19 19 10
22 24 15
22 19 15
15 16 10
17 16 10
19 16 18
20 14 10
22 22 22
21 21 16
21 15 10
16 14 7
20 15 16
21 14 16
20 20 16
23 21 22
18 14 5
22 19 18
16 16 10
17 13 8
24 26 16
13 13 8
19 18 16
20 15 14
22 18 15
19 21 9
21 17 21
15 18 7
21 20 17
24 18 18
22 25 16
20 20 16
21 19 14
19 18 15
14 12 8
25 22 22
11 16 5
17 18 13
22 23 22
20 20 18
22 20 15
15 16 11
23 22 19
20 19 19
22 23 21
16 6 4
25 19 17
18 24 10
19 19 13
25 15 15
21 18 11
22 18 20
21 22 13
22 23 18
23 18 20
20 17 15
6 6 4
15 22 9
18 20 18
24 16 12
22 16 17
21 17 12
23 20 16
20 23 17
20 18 14
18 13 13
25 22 20
16 20 16
20 20 15
14 13 10
22 16 16
26 25 21
20 16 15
17 15 16
22 19 19
22 19 9
20 24 19
17 9 7
22 22 23
17 15 14
22 22 10
21 22 16
25 24 12
11 12 10
19 21 7
24 25 20
17 26 9
22 21 12
17 14 10
26 28 19
20 21 11
19 16 15
21 16 14
24 25 11
21 21 14
19 22 15
13 9 7
24 20 22
28 19 19
27 24 22
22 22 11
23 22 19
19 12 9
18 17 11
23 18 17
21 10 12
22 22 17
17 24 10
15 18 17
21 18 13
20 23 11
26 21 19
19 21 21
28 28 24
21 17 13
19 21 16
22 21 13
21 20 15
20 18 15
19 17 11
11 7 7
17 17 13
19 14 13
20 18 12
17 14 8
21 23 7
21 20 17
12 14 9
23 17 18
22 21 17
22 23 17
21 24 18
20 21 12
18 14 14
21 24 22
24 16 19
22 21 21
20 8 10
17 17 16
19 18 11
16 17 15
19 16 12
23 22 21
8 17 22
22 21 20
23 20 15
15 20 9
17 19 15
21 8 14
25 19 11
18 11 9
20 13 12
21 18 11
21 19 14
24 23 10
22 20 18
22 22 11
23 19 14
17 16 16
15 11 11
22 21 16
19 14 13
18 21 12
21 20 17
20 21 23
19 20 14
19 19 10
16 19 16
18 18 11
23 20 16
22 21 19
23 22 17
20 19 12
24 23 17
25 16 11
25 23 19
20 18 12
23 23 8
21 20 17
23 20 13
23 23 17
11 13 7
21 21 23
27 26 18
19 18 13
21 19 17
16 18 13
21 18 8
22 19 16
16 13 14
18 10 13
23 21 19
24 24 15
20 21 15
20 23 8
18 18 14
4 11 7
14 16 11
22 20 17
17 20 19
23 26 17
20 21 12
18 12 12
19 15 18
20 18 16
15 14 15
24 18 20
21 16 16
19 19 12
19 7 10
27 21 28
23 24 19
23 21 18
20 20 19
17 22 8
21 17 17
23 19 16
22 20 18
16 16 12
20 20 17
16 16 13

par1 <- 'TRUE'
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')