Selective Attention

How many passes?

kable(t(as.matrix(table(satQ_1))))
7 8 9 10 11 12 13 14 15 16 17 18
2 1 2 4 2 6 9 9 22 2 1 1 
kable(t(as.matrix(table(satQ_1.2))))
15 not 15
22 39 
kable(t(as.matrix(prop.table(table(satQ_1.2)))))
15 not 15
0.36 0.64

Did you see the gorilla?

kable(t(as.matrix(table(satQ_2))))
Yes No
30 32 
kable(t(as.matrix(prop.table(table(satQ_2)))))
Yes No
0.48 0.52

Selective Attention Test에서 패스 성공횟수 카운트와 고릴라 인지 여부

kable(addmargins(table("패스성공횟수" = satQ_1.2, "고릴라?" = satQ_2)))
Yes No Sum
15 11 11 22
not 15 19 20 39
Sum 30 31 61 
kable(prop.table(table("패스성공횟수" = satQ_1.2, "고릴라?" = satQ_2), margin = 1))
Yes No
15 0.50 0.50
not 15 0.49 0.51

Monkey Business Illusion

How many passes?

kable(t(as.matrix(table(mbiQ_1))))
7 10 11 13 15 16 17
1 1 1 1 5 52 1 
kable(t(as.matrix(table(mbiQ_1.2))))
16 not 16
52 10 
kable(t(as.matrix(prop.table(table(mbiQ_1.2)))))
16 not 16
0.84 0.16

Did you see the gorilla?

kable(t(as.matrix(table(mbiQ_2))))
Yes No
41 21 
kable(t(as.matrix(prop.table(table(mbiQ_2)))))
Yes No
0.66 0.34

Curtain color changed?

kable(t(as.matrix(table(mbiQ_3))))
Yes No
23 39 
kable(t(as.matrix(prop.table(table(mbiQ_3)))))
Yes No
0.37 0.63

One of the black team member left?

kable(t(as.matrix(table(mbiQ_4))))
Yes No
15 47 
kable(t(as.matrix(prop.table(table(mbiQ_4)))))
Yes No
0.24 0.76

패스 성공횟수 카운트와 고릴라 인지 여부, 커튼색깔 변화 인지 여부, 선수퇴장 인지 여부.

kable(addmargins(table("패스성공횟수" = mbiQ_1.2, "고릴라?" = mbiQ_2)))
Yes No Sum
16 36 16 52
not 16 5 5 10
Sum 41 21 62 
kable(prop.table(table("패스성공횟수" = mbiQ_1.2, "고릴라?" = mbiQ_2), margin = 1))
Yes No
16 0.69 0.31
not 16 0.50 0.50 
kable(addmargins(table("패스성공횟수" = mbiQ_1.2, "커튼 색깔이?" = mbiQ_3)))
Yes No Sum
16 19 33 52
not 16 4 6 10
Sum 23 39 62 
kable(prop.table(table("패스성공횟수" = mbiQ_1.2, "커튼 색깔이?" = mbiQ_3), margin = 1))
Yes No
16 0.37 0.63
not 16 0.40 0.60 
kable(addmargins(table("패스성공횟수" = mbiQ_1.2, "선수 퇴장?" = mbiQ_4)))
Yes No Sum
16 14 38 52
not 16 1 9 10
Sum 15 47 62 
kable(prop.table(table("패스성공횟수" = mbiQ_1.2, "선수 퇴장?" = mbiQ_4), margin = 1))
Yes No
16 0.27 0.73
not 16 0.10 0.90

Save

save.image(file = "./gorilla_1402.RData")