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")