Pertanyaan Pemrograman Statistika

A. Membangkitkan Data Populasi yang mengikuti Sebaran Normal

Berikut dibangkitkan 100.000 data yang menyebar Normal dengan µ = 20 dan σ = 10

set.seed(10)
pop.norm<-rnorm(n=100000, mean=20, sd=10)

B. Membentuk Histogram TANPA XLIM

iterasi<-100
n<-5
means.a5<-rep(NA, iterasi)

for (i in 1:iterasi){
  d<-sample(pop.norm, n)
  means.a5[i]<-mean(d)
}
hist(means.a5, main="Contoh Histogram", xlab="tabel X", ylab="tabel Y")
abline(v=mean(pop.norm), lty=2, lwd=3, col="blue")
abline(v=mean(means.a5), lty=2, lwd=3, col="red")
abline(v=35, lty=2, lwd=3, col="black")
abline(v=40, lty=2, lwd=3, col="green")

Pertanyaan : Bagaimana supaya Abline yang keempat warna Green muncul?

C. Membentuk Histogram DENGAN XLIM

iterasi<-100
n<-5
means.a5<-rep(NA, iterasi)

for (i in 1:iterasi){
  d<-sample(pop.norm, n)
  means.a5[i]<-mean(d)
}
hist(means.a5, main="Contoh Histogram", xlab="tabel X", ylab="tabel Y", xlim=c(0,40))
abline(v=mean(pop.norm), lty=2, lwd=3, col="blue")
abline(v=mean(means.a5), lty=2, lwd=3, col="red")
abline(v=35, lty=2, lwd=3, col="black")
abline(v=40, lty=2, lwd=3, col="green")