Data

동과 서

pander(table(gorilla.monkey.banana), caption = "두 개를 고른다면?")
두 개를 고른다면?
원숭이와 바나나 원숭이와 팬더 팬더와 바나나
39 24 0 
pander(table(gorilla.still.happy), caption = "여전히 행복한가요?")
여전히 행복한가요?
행복해보인다 행복해보이지 않는다
39 24 
pander(table(gorilla.front), caption = "어느 것이 앞쪽에 있나요?")
어느 것이 앞쪽에 있나요?
가장작은 비행접시 중간크기 비행접시 가장큰 비행접시
21 3 39 
pander(table(gorilla.front, gorilla.monkey.banana), caption = "어느 것이 앞에 있는지와 두 개를 고른다면")
어느 것이 앞에 있는지와 두 개를 고른다면
  원숭이와 바나나 원숭이와 팬더 팬더와 바나나
가장작은 비행접시 11 10 0
중간크기 비행접시 3 0 0
가장큰 비행접시 25 14 0

Invisible Gorilla

Selective Attention Test

pander(summary(gorilla.pass.1), caption = "흰 셔츠 팀의 패스 성공횟수는?")
흰 셔츠 팀의 패스 성공횟수는?
Min. 1st Qu. Median Mean 3rd Qu. Max. NA’s
4 13 14 13.8 15 20 5 
pander(table(gorilla.pass.1), caption = "흰 셔츠 팀의 패스 성공횟수는?")
흰 셔츠 팀의 패스 성공횟수는?
4 8 12 13 14 15 16 18 20
1 1 5 20 14 14 6 1 1 
pander(table(gorilla.gorilla.1), caption = "고릴라 본 사람?")
고릴라 본 사람?
보았다 못 보았다
33 30 
tbl.gorilla.1 <- table(gorilla.gorilla.1)
pander(t(matrix(paste(format(prop.table(tbl.gorilla.1)*100, digits = 3, nsmall = 1), "%", sep = ""), nrow = dim(tbl.gorilla.1)[1], dimnames = dimnames(tbl.gorilla.1))))
보았다 못 보았다
52.4% 47.6%

Monkey Business Illusion

pander(summary(gorilla.pass.2), caption = "흰 셔츠 팀의 패스 성공횟수는?")
흰 셔츠 팀의 패스 성공횟수는?
Min. 1st Qu. Median Mean 3rd Qu. Max. NA’s
3 16 16 15.1 16 17 5 
pander(table(gorilla.pass.2), caption = "흰 셔츠 팀의 패스 성공횟수는?")
흰 셔츠 팀의 패스 성공횟수는?
3 10 11 12 13 14 15 16 17
2 1 1 1 2 3 2 50 1 
tbl.gorilla.2 <- table(gorilla.gorilla.2)
pander(tbl.gorilla.2, caption = "고릴라 본 사람?")
고릴라 본 사람?
보았다 못 보았다
54 10 
pander(t(matrix(paste(format(prop.table(tbl.gorilla.2)*100, digits = 3, nsmall = 1), "%", sep = ""), nrow = dim(tbl.gorilla.2)[1], dimnames = dimnames(tbl.gorilla.2))))
보았다 못 보았다
84.4% 15.6% 
tbl.curtain.color <- table(gorilla.curtain.color)
pander(tbl.curtain.color, caption = "커튼 색 바뀐 것 본 사람?")
커튼 색 바뀐 것 본 사람?
보았다 못 보았다
17 47 
pander(t(matrix(paste(format(prop.table(tbl.curtain.color)*100, digits = 3, nsmall = 1), "%", sep = ""), nrow = dim(tbl.curtain.color)[1], dimnames = dimnames(tbl.curtain.color))))
보았다 못 보았다
26.6% 73.4% 
tbl.player.exit <- table(gorilla.player.exit)
pander(tbl.player.exit, caption = "선수 나가는 것 본 사람?")
선수 나가는 것 본 사람?
보았다 못 보았다
17 47 
pander(t(matrix(paste(format(prop.table(tbl.player.exit)*100, digits = 3, nsmall = 1), "%", sep = ""), nrow = dim(tbl.player.exit)[1], dimnames = dimnames(tbl.player.exit))))
보았다 못 보았다
26.6% 73.4%

Door Study

tbl.door.study <- table(gorilla.door.study)
pander(tbl.door.study, caption = "길 묻는 사람 바뀐 것 눈치챈 사람?")
길 묻는 사람 바뀐 것 눈치챈 사람?
네 아니오
37 26 
pander(t(matrix(paste(format(prop.table(tbl.door.study)*100, digits = 3, nsmall = 1), "%", sep = ""), nrow = dim(tbl.door.study)[1], dimnames = dimnames(tbl.door.study))))
네 아니오
58.7% 41.3%

Chocolate Study

pander(summary(gorilla.chocolate), caption = "몇 개나 줄 거예요?")
몇 개나 줄 거예요?
Min. 1st Qu. Median Mean 3rd Qu. Max. NA’s
1 3 4 4.33 5 10 5 
pander(table(gorilla.chocolate), caption = "몇 개나 줄 거예요?")
몇 개나 줄 거예요?
1 2 3 4 5 6 9 10
2 7 9 14 26 1 2 2

자료 갈무리