[확률] R 주사위 던지기
주사위를 무작위로 던지는 간단한 예제를 R로 구현 해보자.
아래는 R Command
> par(mfrow=c(2,2))
# 빈 윈도우 띄우기 2행 2열의 테이블을 그릴 수 있음
> dice20 = sample(1:6, 20, replace = TRUE)
# 1부터 6까지의 수 중 하나를 무작위로 선택, 20회 시행
> barplot(table(dice20)/20, ylim=c(0,0.5), main="(a) n=20")
> dice100 = sample(1:6, 100, replace = TRUE)
> barplot(table(dice100)/100, ylim=c(0,0.5), main="(b) n=100")
> dice1000 = sample(1:6, 1000, replace = TRUE)
> barplot(table(dice1000)/1000, ylim=c(0,0.5), main="(c) n=1000")
> dice10000 = sample(1:6, 10000, replace = TRUE)
> barplot(table(dice10000)/10000, ylim=c(0,0.5), main="(d) n=10000")
결과 화면은 아래와 같다.
도움이 되셨으면 공감 한번 눌러주세요^^