# 1. Membuat urutan nilai x dari -3 sampai 3 dengan panjang data 300
x <- seq(-3, 3, length.out = 300)
 
# 2. Menghitung nilai densitas distribusi normal baku (mean = 0, sd = 1)
y <- dnorm(x)
 
# 3. Membuat plot kurva normal dengan label sumbu yang diminta
plot(x, y, type = "l", col = "blue", lwd = 2,
     xlab = "x", ylab = "density", 
     main = "Kurva Distribusi Normal")
 
# 4. Menandai garis sumbu x (y = 0) dengan warna merah
abline(h = 0, col = "red", lwd = 1.5)
 

IyAxLiBNZW1idWF0IHVydXRhbiBuaWxhaSB4IGRhcmkgLTMgc2FtcGFpIDMgZGVuZ2FuIHBhbmphbmcgZGF0YSAzMDAKeCA8LSBzZXEoLTMsIDMsIGxlbmd0aC5vdXQgPSAzMDApCgojIDIuIE1lbmdoaXR1bmcgbmlsYWkgZGVuc2l0YXMgZGlzdHJpYnVzaSBub3JtYWwgYmFrdSAobWVhbiA9IDAsIHNkID0gMSkKeSA8LSBkbm9ybSh4KQoKIyAzLiBNZW1idWF0IHBsb3Qga3VydmEgbm9ybWFsIGRlbmdhbiBsYWJlbCBzdW1idSB5YW5nIGRpbWludGEKcGxvdCh4LCB5LCB0eXBlID0gImwiLCBjb2wgPSAiYmx1ZSIsIGx3ZCA9IDIsCiAgICAgeGxhYiA9ICJ4IiwgeWxhYiA9ICJkZW5zaXR5IiwgCiAgICAgbWFpbiA9ICJLdXJ2YSBEaXN0cmlidXNpIE5vcm1hbCIpCgojIDQuIE1lbmFuZGFpIGdhcmlzIHN1bWJ1IHggKHkgPSAwKSBkZW5nYW4gd2FybmEgbWVyYWgKYWJsaW5lKGggPSAwLCBjb2wgPSAicmVkIiwgbHdkID0gMS41KQo=