R 이항분포곡선 그리기

1 개요

R 이항분포곡선 그리기

2 예시: 동전 던지기

• 동전을 10번 던져서 앞면이 나오는 횟수의 확률분포

x <- seq(0, 15)
y <- dbinom(x, 10, 1/2)
plot(x,y)

확률값 설명

# 앞면이 k번 나올 확률 = (1/2)^10 * choose(10, k)
(1/2)^10 * choose(10, 0) ## [1] 0.0009765625
(1/2)^10 * choose(10, 1) ## [1] 0.009765625
(1/2)^10 * choose(10, 2) ## [1] 0.04394531
(1/2)^10 * choose(10, 3) ## [1] 0.1171875
(1/2)^10 * choose(10, 4) ## [1] 0.2050781
(1/2)^10 * choose(10, 5) ## [1] 0.2460938
(1/2)^10 * choose(10, 6) ## [1] 0.2050781
(1/2)^10 * choose(10, 7) ## [1] 0.1171875
(1/2)^10 * choose(10, 8) ## [1] 0.04394531 
(1/2)^10 * choose(10, 9) ## [1] 0.009765625   
(1/2)^10 * choose(10,10) ## [1] 0.0009765625  
(1/2)^10 * choose(10,11) ## [1] 0

3 예시: 시행횟수 n, 확률 p

3.1 n=20, p=.5

n = 20
p = .5
plot(0:n, dbinom(0:n, size=n, prob=p))

3.2 n=100, p=.5

n = 100
p = .5
plot(0:n, dbinom(0:n, size=n, prob=p))

3.3 n=100, p=.25

n = 100
p = .25
plot(0:n, dbinom(0:n, size=n, prob=p))

3.4 n=20, p=.25

n = 20
p = .25
plot(0:n, dbinom(0:n, size=n, prob=p))

4 같이 보기

• 이항분포
• R dbinom()
• R 정규분포곡선 그리기

5 참고

• https://www.statology.org/plot-binomial-distribution-r/