R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

par(mfrow=c(3,2)) set.seed(1299)

———————–

1. BINOMIAL (Diskrit)

Contoh: jumlah nasabah berhasil transaksi online dari 10 percobaan

———————–

binom_data <- rbinom(100, size = 10, prob = 0.7)

hist(binom_data, main=“Distribusi Binomial(Transaksi Online Berhasil)”, xlab=“Jumlah Nasabah Berhasil”)

———————–

2. POISSON (Diskrit)

Contoh: jumlah nasabah datang ke teller per jam

———————–

pois_data <- rpois(100, lambda = 5)

hist(pois_data, main=“Distribusi Poisson(Jumlah Nasabah per Jam)”, xlab=“Jumlah Nasabah”)

———————–

3. NORMAL (Pendekatan Diskrit)

Contoh: jumlah transaksi teller per hari

———————–

norm_diskrit <- rnorm(100, mean = 50, sd = 10)

hist(norm_diskrit, main=“Distribusi Normal(Jumlah Transaksi Teller)”, xlab=“Jumlah Transaksi”)

———————–

4. NORMAL (Kontinu)

Contoh: waktu pelayanan teller (menit)

———————–

norm_kontinu <- rnorm(100, mean = 5, sd = 1)

hist(norm_kontinu, main=“Distribusi Normal(Waktu Pelayanan Teller)”, xlab=“Waktu Pelayanan (menit)”)

———————–

5. UNIFORM (Kontinu)

Contoh: waktu kedatangan nasabah antara 0–60 menit

———————–

uniform_data <- runif(100, min = 0, max = 60)

hist(uniform_data, main=“Distribusi Uniform(Waktu Kedatangan Nasabah)”, xlab=“Menit”)