# 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)