PRAKTIKUM 3 SIMSTAT

Bab sebelumnya telah pembangkitan peubah acak dengan menggunakan metode transformasi langsung, namun dibeberapa peubah acak tidak memiliki transformasi langsung yang menghubungan antara sebaran \(U(0,1)\) kepada fungsi kepadatan sebaran tersebut tetapi memiliki fungsi invers kumulatifnya dapat ditentukan. Pembangkitan peubah acak dengan metode ini dinamakan inverse transformasi (Inverse Transformation).

exponential (lamda)

exp<-function(n,lmd){
  r <-runif(n,0,1)
  x = -(1/lmd)*log(r)
}
y<-exp(2000,7)
head(y)
## [1] 0.05682639 0.26618233 0.14427396 0.45232941 0.02030155 0.04064207
plot(density(y))
polygon(density(y), col="pink",border ="black")


algoritma

Algoritma: 1. Misalkan ( ) adalah fungsi kepekatan peluang bagi peubah acak x, sehingga 2. Bangkitkan bilangan acak r (U(0,1)). 3. Misalkan ( ) sehingga peubah acak x: