📕일양 분포 ( U(0,1)) par(mfrow=c(2,2)) n=c(10,100,1000,100000) mu=0.5; var=1/12 for(j in 1: length(n)) { m=1000 xbar=rep(0,m) for( i in 1 : m){ x=runif(n[j]) xbar[i]=mean(x)} xbar_mu = mean(xbar) xbar_var= var(xbar);xbar_var cat("표본의 개수 = ",n[j],"\n","모평균 = ",mu,"표본분포의 평균 = ",xbar_mu,"\n","모분산 = ",var,",var/n = ",var/n[j],"표본평균의 분산 = ",xbar_var,"\n") hist(xbar,breaks="fd",prob=T) curve(dnorm(x,mu,sq..
