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

19	18	20
24	24	19
15	16	12
17	19	16
19	15	9
28	28	28
26	21	20
15	18	16
26	22	22
16	19	17
15	16	12
22	18	16
26	24	15
26	20	17
21	19	17
22	23	18
20	18	15
21	16	20
22	21	21
18	27	6
20	19	19
24	7	12
17	20	14
20	20	13
20	19	17
22	20	19
15	14	10
20	17	11
22	17	11
17	8	10
14	9	7
17	20	12
23	20	18
16	22	9
18	22	16
20	16	14
18	14	11
23	24	20
24	21	17
23	20	14
20	18	16
19	19	10
22	24	15
17	16	10
20	14	10
21	21	16
21	15	10
23	21	22
15	17	13
22	19	18
17	13	8
19	18	16
21	17	21
21	20	17
24	18	18
19	18	15
14	12	8
25	22	22
17	18	13
20	20	18
22	20	15
15	16	11
23	22	19
20	19	19
16	6	4
25	19	17
18	24	10
23	18	20
20	17	15
6	6	4
15	22	9
18	20	18
22	16	17
21	17	12
20	23	17
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	9
20	24	19
17	9	7
22	22	23
17	15	14
22	22	10
25	24	12
11	12	10
19	21	7
24	25	20
17	26	9
26	28	19
21	16	14
21	21	14
19	22	15
24	20	22
28	19	19
27	24	22
23	18	17
22	22	17
15	18	17
20	23	11
28	28	24
19	21	16
22	21	13
21	20	15
20	18	15
19	17	11
17	17	13
21	23	7
12	14	9
20	21	12
18	14	14
21	24	22
24	16	19
17	17	16
8	17	22
22	21	20
17	19	15
25	19	11
18	11	9
23	15	18
21	18	11
21	19	14
24	23	10
17	16	16
15	11	11
22	21	16
19	14	13
19	20	14
19	19	10
22	21	19
23	22	17
25	23	19
20	18	12
23	23	8
21	20	17
23	23	17
11	13	7
21	21	23
21	19	17
22	19	13
21	18	8
22	19	16
18	10	13
24	24	15
20	21	15
18	18	14
14	16	11
17	20	19
18	12	12
19	15	18
15	14	15
24	18	20
19	19	12
23	24	19
23	21	18
17	22	8
22	20	18
16	16	13
21	19	18
19	19	13
13	7	10
17	17	12
18	23	10
20	23	13
18	18	8
15	18	9
17	15	12
21	14	11
23	17	10
18	20	16
20	21	14
22	18	19
20	18	16
24	21	21
23	16	16
22	17	12
21	12	9
23	25	15
20	12	11
23	22	20
24	24	19
17	18	17
19	15	18
25	25	19
18	17	11
15	17	8
27	24	19
26	27	24
14	19	8
19	22	10
25	24	20
20	23	17
17	16	12
13	16	10
20	16	15
20	15	16
18	17	16
22	25	18
21	14	16
18	20	20
19	19	16
23	18	11
26	22	24
19	18	13
26	22	17
23	18	9
23	19	10
23	21	15
20	20	12
16	17	12
26	22	22
24	24	23
20	19	19
12	20	7
21	16	9
26	22	19
17	19	8
18	13	10
28	22	18
24	20	19
24	21	12
12	15	12
13	15	10
16	23	12
23	21	15
18	16	13
18	18	14
21	18	18
7	10	4
21	20	10
17	13	7
22	25	20
15	18	10
10	19	11
25	17	16
23	22	19
23	19	16
23	21	15
23	21	14
15	15	11
23	22	11
23	21	19
23	20	15
17	18	12
19	19	24
23	21	16
22	19	9
14	16	16
19	17	8
21	26	11
23	20	13
16	13	14
19	21	14
26	23	17
22	20	20
24	23	11
24	24	19
11	8	6
21	19	16
21	18	14
22	21	16
19	16	11
18	17	14
27	27	22
14	12	7
15	17	17
20	17	16
26	24	22
20	18	13
19	18	14
20	19	15
18	19	15
20	24	15
26	22	19
20	20	18
21	22	10

library(psych)
z <- t(y)
(r <- alpha(z))
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')