Invisible Gorilla Hwachon 2015

동과 서

kable(t(as.matrix(table(monkey), 1)))

원숭이-바나나	원숭이-팬더	팬더-바나나
16	6	0

kable(t(as.matrix(table(leader), 1)))

여전히 행복하다	행복하지 않다
8	13

kable(t(as.matrix(table(saucer), 1)))

맨 위	중간	맨 아래
10	0	11

kable(table(saucer, monkey))

	원숭이-바나나	원숭이-팬더	팬더-바나나
맨 위	7	3	0
중간	0	0	0
맨 아래	9	2	0

Selective Attention

How many passes?

kable(t(as.matrix(table(satQ_1))))

11	13	14	15	16	17
1	5	8	5	1	1

kable(t(as.matrix(table(satQ_1.2))))

15	not 15
5	16

kable(t(as.matrix(prop.table(table(satQ_1.2)))))

15	not 15
0.24	0.76

Did you see the gorilla?

kable(t(as.matrix(table(satQ_2))))

Yes	No
9	13

kable(t(as.matrix(prop.table(table(satQ_2)))))

Yes	No
0.41	0.59

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

kable(addmargins(table("패스성공횟수" = satQ_1.2, "고릴라?" = satQ_2)))

	Yes	No	Sum
15	3	2	5
not 15	6	10	16
Sum	9	12	21

kable(prop.table(table("패스성공횟수" = satQ_1.2, "고릴라?" = satQ_2), margin = 1))

	Yes	No
15	0.60	0.40
not 15	0.38	0.62

Monkey Business Illusion

How many passes?

kable(t(as.matrix(table(mbiQ_1))))

14	15	16
2	1	19

kable(t(as.matrix(table(mbiQ_1.2))))

16	not 16
19	3

kable(t(as.matrix(prop.table(table(mbiQ_1.2)))))

16	not 16
0.86	0.14

Did you see the gorilla?

kable(t(as.matrix(table(mbiQ_2))))

Yes	No
18	4

kable(t(as.matrix(prop.table(table(mbiQ_2)))))

Yes	No
0.82	0.18

Curtain color changed?

kable(t(as.matrix(table(mbiQ_3))))

Yes	No
3	19

kable(t(as.matrix(prop.table(table(mbiQ_3)))))

Yes	No
0.14	0.86

One of the black team member left?

kable(t(as.matrix(table(mbiQ_4))))

Yes	No
2	20

kable(t(as.matrix(prop.table(table(mbiQ_4)))))

Yes	No
0.09	0.91

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

kable(addmargins(table("패스성공횟수" = mbiQ_1.2, "고릴라?" = mbiQ_2)))

	Yes	No	Sum
16	16	3	19
not 16	2	1	3
Sum	18	4	22

kable(prop.table(table("패스성공횟수" = mbiQ_1.2, "고릴라?" = mbiQ_2), margin = 1))

	Yes	No
16	0.84	0.16
not 16	0.67	0.33

kable(addmargins(table("패스성공횟수" = mbiQ_1.2, "커튼 색깔이?" = mbiQ_3)))

	Yes	No	Sum
16	2	17	19
not 16	1	2	3
Sum	3	19	22

kable(prop.table(table("패스성공횟수" = mbiQ_1.2, "커튼 색깔이?" = mbiQ_3), margin = 1))

	Yes	No
16	0.11	0.89
not 16	0.33	0.67

kable(addmargins(table("패스성공횟수" = mbiQ_1.2, "선수 퇴장?" = mbiQ_4)))

	Yes	No	Sum
16	2	17	19
not 16	0	3	3
Sum	2	20	22

kable(prop.table(table("패스성공횟수" = mbiQ_1.2, "선수 퇴장?" = mbiQ_4), margin = 1))

	Yes	No
16	0.11	0.89
not 16	0.00	1.00

Chocolate

kable(t(as.matrix(table(chocolate), 1)))

1	2	3	4	5	6	10
1	1	1	3	14	1	1

pander(summary(chocolate))

Min.	1st Qu.	Median	Mean	3rd Qu.	Max.
1	4.25	5	4.73	5	10

Save

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