[R] runif, ceiling, table, barplot (+주사위 던지기)

 

 

유튜브 datasciencelim 님의 R 프로그램 강의 내용을 토대로

통계 프로그램 R 기초 내용 정리합니다.


✔︎ runif(100): 임의 수치(random)를 같은 확률(uniform)로 100개 뽑아라

    0~1 사이의 값 100개가 출력됨

 

✔︎ ceiling(x): 수치를 올림해라

 

✔︎ table(xyz): 각 요소가 몇 번 나왔는지

 

✔︎ barplot(xyz): 막대그래프

 

# uniform distribution simulation
# p = 1/n, n of die = 6

roll <- 1000000
n <- 6
die <- ceiling (runif(roll)*n)
a <- table(die)
barplot(a)


# sum of two dice
roll2 <- 1000000
dice2 <- ceiling (runif(roll2)*6) + ceiling (runif(roll2)*6)
b <- table(dice2)
barplot(b)

b[1]*6-b[6]

 

b[1]*6 - b[6]  (마지막 줄)

 

주사위 2개를 던지면 2~12 사이의 정수가 나오는데 (정규분포)

[1]번째 숫자 (=2)의 확률의 6배 와

[6]번째 숫자 (=7)의 확률이 비슷해야 좋은 분포이므로 이렇게 테스트 가능