# 1. Menggambar kurva distribusi normal standar
curve(dnorm(x, mean = 0, sd = 1),
from = -4, to = 4,
col = "blue",
lwd = 2,
main = "Kurva Distribusi Normal Standar",
xlab = "Nilai X",
ylab = "Densitas")
# 2. Opsional: Menambahkan garis tengah (Rata-rata/Mean)
abline(v = 0, col = "red", lty = 2)
# Definisi parameter
mu <- 10
sd <- sqrt(2) # Akar dari variansi 2
# Plot kurva distribusi normal
curve(dnorm(x, mean = mu, sd = sd),
from = 4, to = 16,
col = "blue",
lwd = 2,
main = "Kurva Distribusi Normal (Mu = 10, Variansi = 2)",
xlab = "Nilai X",
ylab = "Densitas")
# Garis vertikal penanda rata-rata (mu = 10)
abline(v = mu, col = "red", lty = 2)
# 1. Kurva utama: mu = 10, variansi = 2 (sd = sqrt(2))
curve(dnorm(x, mean = 10, sd = sqrt(2)),
from = 4, to = 18,
col = "blue", lwd = 2,
main = "Perbandingan Kurva Distribusi Normal",
xlab = "Nilai X", ylab = "Densitas")
# 2. Tambah kurva kedua: mu = 13, variansi = 2 (sd = sqrt(2))
curve(dnorm(x, mean = 13, sd = sqrt(2)),
add = TRUE, col = "red", lwd = 2, lty = 2)
# 3. Tambah kurva ketiga: mu = 10, variansi = 5 (sd = sqrt(5))
curve(dnorm(x, mean = 10, sd = sqrt(5)),
add = TRUE, col = "darkgreen", lwd = 2, lty = 3)
# 4. Legenda
legend("topright",
legend = c("Mu = 10, Var = 2", "Mu = 13, Var = 2", "Mu = 10, Var = 5"),
col = c("blue", "red", "darkgreen"),
lty = c(1, 2, 3), lwd = 2)
# 1. Menggambar kurva distribusi normal standar
curve(dnorm(x, mean = 0, sd = 1),
from = -4, to = 4,
col = "blue",
lwd = 2,
main = "Kurva Distribusi Normal Standar",
xlab = "Nilai X",
ylab = "Densitas")
# 2. Opsional: Menambahkan garis tengah (Rata-rata/Mean)
abline(v = 0, col = "red", lty = 2)
# 1. Menggambar kurva distribusi normal standar
curve(dnorm(x, mean = 2, sd = 1),
from = -4, to = 4,
col = "blue",
lwd = 2,
main = "Kurva Distribusi Normal Standar",
xlab = "Nilai X",
ylab = "Densitas")
# 2. Opsional: Menambahkan garis tengah (Rata-rata/Mean)
abline(v = 0, col = "red", lty = 2)
# 1. Menggambar kurva distribusi normal standar
curve(dnorm(x, mean = 5, sd = 5),
from = -4, to = 4,
col = "blue",
lwd = 2,
main = "Kurva Distribusi Normal Standar",
xlab = "Nilai X",
ylab = "Densitas")
# 2. Opsional: Menambahkan garis tengah (Rata-rata/Mean)
abline(v = 0, col = "red", lty = 2)
# 1. Menggambar kurva distribusi normal standar
curve(dnorm(x, mean = 10, sd = 3),
from = -4, to = 4,
col = "blue",
lwd = 2,
main = "Kurva Distribusi Normal Standar",
xlab = "Nilai X",
ylab = "Densitas")
# 2. Opsional: Menambahkan garis tengah (Rata-rata/Mean)
abline(v = 0, col = "red", lty = 2)
# 1. Menggambar kurva distribusi normal standar
curve(dnorm(x, mean = 1.5, sd = 0.1),
from = -4, to = 4,
col = "blue",
lwd = 2,
main = "Kurva Distribusi Normal Standar",
xlab = "Nilai X",
ylab = "Densitas")
# 2. Opsional: Menambahkan garis tengah (Rata-rata/Mean)
abline(v = 0, col = "red", lty = 2)
curve(dnorm(x, mean = 0, sd = 1),
from = 4, to = 18,
col = "blue", lwd = 2,
main = "Perbandingan Kurva Distribusi Normal",
xlab = "Nilai X", ylab = "Densitas")
curve(dnorm(x, mean = 2, sd = 1),
add = TRUE, col = "red", lwd = 2, lty = 2)
curve(dnorm(x, mean = 5, sd = 5),
add = TRUE, col = "darkgreen", lwd = 2, lty = 3)
curve(dnorm(x, mean = 10, sd = 3),
add = TRUE, col = "yellow", lwd = 2, lty = 3)
curve(dnorm(x, mean = 1.5, sd = 0.1),
add = TRUE, col = "pink", lwd = 2, lty = 3)
# 4. Legenda
legend("topright",
legend = c("Mu = 10, Var = 2", "Mu = 13, Var = 2", "Mu = 10, Var = 5"),
col = c("blue", "red", "darkgreen"),
lty = c(1, 2, 3), lwd = 2)
# 1. Plot kurva pertama sebagai dasar grafik (mengatur rentang sumbu x dan y)
curve(dnorm(x, mean = 0, sd = 1), from = -10, to = 22, ylim = c(0, 4),
col = "blue", lwd = 2,
main = "Perbandingan 5 Kurva Distribusi Normal",
xlab = "Nilai X", ylab = "Densitas")
# 2. Tambahkan kurva 2 sampai 5
curve(dnorm(x, mean = 2, sd = 1), add = TRUE, col = "red", lwd = 2)
curve(dnorm(x, mean = 5, sd = 5), add = TRUE, col = "green", lwd = 2)
curve(dnorm(x, mean = 10, sd = 3), add = TRUE, col = "purple", lwd = 2)
curve(dnorm(x, mean = 1.5, sd = 0.1), add = TRUE, col = "orange", lwd = 2)
# 3. Legenda
legend("topright",
legend = c("Kurva 1 (Mu=0, SD=1)",
"Kurva 2 (Mu=2, SD=1)",
"Kurva 3 (Mu=5, SD=5)",
"Kurva 4 (Mu=10, SD=3)",
"Kurva 5 (Mu=1.5, SD=0.1)"),
col = c("blue", "red", "green", "purple", "orange"),
lwd = 2, cex = 0.8)
# 1. Kurva utama (df = 3)
curve(dt(x, df = 3), from = -4, to = 4, col = "red", lwd = 2,
main = "Kurva Distribusi T-Student", xlab = "Nilai t", ylab = "Densitas")
# 2. Tambah kurva df = 10
curve(dt(x, df = 10), add = TRUE, col = "blue", lwd = 2, lty = 2)
# 3. Tambah Distribusi Normal Standar
curve(dnorm(x), add = TRUE, col = "black", lwd = 2, lty = 3)
# Legenda
legend("topright",
legend = c("T (df = 3)", "T (df = 10)", "Normal Standar"),
col = c("red", "blue", "black"),
lty = 1:3, lwd = 2)
# Parameter derajat bebas (degrees of freedom)
df_val <- 10
# Plot kurva distribusi t tunggal
curve(dt(x, df = df_val),
from = -4, to = 4,
col = "darkblue",
lwd = 2,
main = paste("Kurva Distribusi T (df =", df_val, ")"),
xlab = "Nilai t",
ylab = "Densitas")
# Garis putus-putus merah di tengah (mean = 0)
abline(v = 0, col = "red", lty = 2)
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.5.3
ggplot(data.frame(x = c(-4, 4)), aes(x = x)) +
# Kurva T (df = 2) dengan arsir merah
stat_function(fun = dt, args = list(df = 2),
geom = "area", fill = "red", alpha = 0.25) +
# Kurva T (df = 10) dengan arsir biru
stat_function(fun = dt, args = list(df = 10),
geom = "area", fill = "blue", alpha = 0.25) +
# Garis tepi kurva
stat_function(fun = dt, args = list(df = 2), color = "red", linewidth = 1) +
stat_function(fun = dt, args = list(df = 10), color = "blue", linewidth = 1) +
labs(title = "Kurva Distribusi T Bertumpuk (Area Terarsir)",
subtitle = "Merah: df = 2 | Biru: df = 10",
x = "Nilai t",
y = "Densitas") +
theme_classic()
# Parameter derajat bebas
df1_val <- 5
df2_val <- 10
# Plot kurva distribusi F
curve(df(x, df1 = df1_val, df2 = df2_val),
from = 0, to = 5,
col = "darkgreen",
lwd = 2,
main = paste("Kurva Distribusi F (df1 =", df1_val, ", df2 =", df2_val, ")"),
xlab = "Nilai F",
ylab = "Densitas")
# 1. Kurva utama (df1 = 2, df2 = 5)
curve(df(x, df1 = 2, df2 = 5), from = 0, to = 5, col = "red", lwd = 2,
main = "Perbandingan Kurva Distribusi F", xlab = "Nilai F", ylab = "Densitas")
# 2. Tambahkan kurva lainnya
curve(df(x, df1 = 5, df2 = 10), add = TRUE, col = "blue", lwd = 2, lty = 2)
curve(df(x, df1 = 20, df2 = 20), add = TRUE, col = "green3", lwd = 2, lty = 3)
# 3. Legenda
legend("topright",
legend = c("df1=2, df2=5", "df1=5, df2=10", "df1=20, df2=20"),
col = c("red", "blue", "green3"),
lty = 1:3, lwd = 2)
