Publications by coop711
Red and Black 4th One Million Trials
Data Search for Best Configuration M1 <- 3000001 M2 <- 4000000 Xsum <- numeric(0) Values_mat <- numeric(0) for(k in M1:M2){ set.seed(k) N <- nrow(class_roll) class_roll$group <- sample(1:N) %% 2 %>% factor(levels = c(0, 1), labels = c("Red", "Black")) Xsum <- c(Xsum, red_and_black(class_roll)$Xsum) Values_mat ...
186 sym R (6533 sym/34 pcs) 2 img 6 tbl
Red and Black 8th One Million Trials
Data Search for Best Configuration M1 <- 7000001 M2 <- 8000000 Xsum <- numeric(0) Values_mat <- numeric(0) for(k in M1:M2){ set.seed(k) N <- nrow(class_roll) class_roll$group <- sample(1:N) %% 2 %>% factor(levels = c(0, 1), labels = c("Red", "Black")) Xsum <- c(Xsum, red_and_black(class_roll)$Xsum) Values_mat ...
186 sym R (6178 sym/34 pcs) 2 img 6 tbl
Quiz 210927 (Which World?)
id name.x group.x group.y 20183221 박재진 Black Red 20213928 남밝음 Black Red 20213226 복원준 Red Black 응답 집계 지역 및 지역크기별 가구수 비례 무작위추출법 집계 공평하게 소득 순으로 학력 순으로 연령 순으로 계 Red 259 9 3 12 283 Black 257 16 7 3 283 계 516 25 10 15 566 Pearson’s...
327 sym 8 img 23 tbl
Quiz 211004 (Wason Selection)
퀴즈 응답 비교 통계학의 기본원리 공평하게 추출하면 … 공평 무난 철저 균일 계 Red 226 6 3 50 285 Black 225 9 4 45 283 계 451 15 7 95 568 Pearson’s Chi-squared test with simulated p-value (based on 2000 replicates): . Test statistic df P value 1.001 NA 0.7966 공평하게 추출하면 … (%) 공평 무...
755 sym 10 img 24 tbl
Oxford Happiness Questionnaire 211011
옥스포드 행복 설문지 실험결과를 분석한다. 이 실험에는 두 가지 목적이 있다. 첫째는 있는 그대로 옥스포드 행복 설문지로 측정하는 여러분의 행복 수준은 어느 정도인지, 둘째는 영문판으로 응답할 때와 국문판으로 응답할 때 어떤 차이가 있는지, 특히 응답에 ...
811 sym 2 img 10 tbl
Literacy Applied R Programming 2102
막대그래프 막대그래프로 답안 분포를 시각적으로 살핀다. 차후 나오는 정답률과 함께 어느 문항에서 어느 답안을 많이 고르는지 파악하는 데 활용한다. Data Counts Q1 Q2 Q3 Q4 Q5 Q6 Q7 Q8 Q9 Q10 Q11 Q12 Q13 Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21 Q22 Q23 Q24 Q25 0 1 48 0 0 3 56 2 3 0 55 0 0 2 1 48 8...
858 sym R (616 sym/5 pcs) 11 img 14 tbl
Quiz 211025 (Prospect Theory)
퀴즈 응답 비교 Wilkinson 소득불평등과 건강 및 사회문제 지표 소득불평등이 심한 나라에서 건강 및 사회문제지수가 나쁘게 나온다. 소득이 많은 나라에서 건강 및 사회문제지수가 나쁘게 나온다. 소득불평등이 심하면 건강 및 사회문제지수가 나빠진다. 소득이 �...
471 sym 8 img 17 tbl
Quiz 211101 (Anchor Effects)
퀴즈 응답 비교 황금기와 신자유주의 시기 소득5분위별 소득증가율 집계 황금기에 소득이 가장 많이 늘어난 계층은 하위 20%(1분위)이다. 황금기에 소득증가율이 가장 높은 계층은 하위 20%(1분위)이다. 신자유주의시기에 소득이 가장 많이 늘어난 계층은 하위 20%(1...
611 sym 8 img 22 tbl
BFP and MI : 211108
Data Reading join()을 사용하기 위하여 dplyr 패키지는 사전에 등록 library(knitr) library(pander) library(magrittr) library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff,...
934 sym R (12578 sym/42 pcs) 16 tbl
Quiz11122 (Birthday Problem, Matching Problem, MPG, Monty Hall Show)
퀴즈 응답 Birthday Problem 생일이 같은 사람 학번 생일 그룹 20216229 01월02일 Red 20216744 01월02일 Black 20212562 01월02일 Red 20213308 01월06일 Black 20203529 01월06일 Red 20216276 01월06일 Black 20182957 01월06일 Red 20187016 01월07일 Red 20183648 01월07일 Red 20182842 01월10일 Black 20176410 0...
1254 sym R (31 sym/3 pcs) 4 img 15 tbl