Foro de debate

Superponer curva normal en un barplot

Re: Superponer curva normal en un barplot

by Alfredo Holley -
Number of replies: 0

Va a ver si te sirve.

Saludos!

N = 100 #tamaño poblacional

try = 10

prb = 0.25

n_samp = 3 #tamaño muestral


dist_pop <- rbinom(N, try, prb)

std_error <- sd(dist_pop)/sqrt(n_samp)

x <- seq(min(dist_pop), max(dist_pop), length= 1000)

TCL_curve <- dnorm(x, mean= mean(dist_pop), sd= std_error)*N

barplot(table(dist_pop), ylim= c(0, 5+max(TCL_curve)))

points(x, TCL_curve, lwd= 2, "l", col= "black")