# Data
belajar <- c(10, 12, 9, 11, 14, 8, 13, 12, 10, 11)
# Hitung nilai penting
n1 <- length(belajar)
mean1 <- mean(belajar)
sd1 <- sd(belajar)
se1 <- sd1 / sqrt(n1)
t_crit1 <- qt(0.975, df = n1 - 1)
moe1 <- t_crit1 * se1
lower1 <- mean1 - moe1
upper1 <- mean1 + moe1
# Hasil
cat("Studi Kasus 1 - Waktu Belajar:\n")
## Studi Kasus 1 - Waktu Belajar:
cat("Rata-rata =", mean1, "jam\n")
## Rata-rata = 11 jam
cat("Interval kepercayaan 95% =", lower1, "sampai", upper1, "jam\n\n")
## Interval kepercayaan 95% = 9.693943 sampai 12.30606 jam
# Interpretasi
cat("Interpretasi: Dengan tingkat kepercayaan 95%, rata-rata waktu belajar mahasiswa per minggu diperkirakan antara",
round(lower1,1), "jam hingga", round(upper1,1), "jam.\n\n")
## Interpretasi: Dengan tingkat kepercayaan 95%, rata-rata waktu belajar mahasiswa per minggu diperkirakan antara 9.7 jam hingga 12.3 jam.
pendapatan <- c(200, 220, 180, 210, 230, 190, 250, 240, 210, 205)
n2 <- length(pendapatan)
mean2 <- mean(pendapatan)
se2 <- sd(pendapatan) / sqrt(n2)
t_crit2 <- qt(0.975, df = n2 - 1)
moe2 <- t_crit2 * se2
lower2 <- mean2 - moe2
upper2 <- mean2 + moe2
cat("Studi Kasus 2 - Pendapatan:\n")
## Studi Kasus 2 - Pendapatan:
cat("Rata-rata =", mean2, "ribu\n")
## Rata-rata = 213.5 ribu
cat("Interval kepercayaan 95% =", lower2, "sampai", upper2, "ribu\n\n")
## Interval kepercayaan 95% = 197.8591 sampai 229.1409 ribu
cat("Interpretasi: Dengan keyakinan 95%, rata-rata pendapatan harian pedagang diperkirakan antara",
round(lower2,1), "ribu hingga", round(upper2,1), "ribu rupiah.\n\n")
## Interpretasi: Dengan keyakinan 95%, rata-rata pendapatan harian pedagang diperkirakan antara 197.9 ribu hingga 229.1 ribu rupiah.
pelanggan <- c(45, 50, 48, 53, 47, 52, 49, 50, 51, 46)
n3 <- length(pelanggan)
mean3 <- mean(pelanggan)
se3 <- sd(pelanggan) / sqrt(n3)
t_crit3 <- qt(0.975, df = n3 - 1)
moe3 <- t_crit3 * se3
lower3 <- mean3 - moe3
upper3 <- mean3 + moe3
cat("Studi Kasus 3 - Pelanggan:\n")
## Studi Kasus 3 - Pelanggan:
cat("Rata-rata =", mean3, "orang/hari\n")
## Rata-rata = 49.1 orang/hari
cat("Interval kepercayaan 95% =", lower3, "sampai", upper3, "orang/hari\n\n")
## Interval kepercayaan 95% = 47.23916 sampai 50.96084 orang/hari
cat("Interpretasi: Dengan kepercayaan 95%, rata-rata jumlah pelanggan per hari diperkirakan antara",
round(lower3,1), "sampai", round(upper3,1), "orang.\n\n")
## Interpretasi: Dengan kepercayaan 95%, rata-rata jumlah pelanggan per hari diperkirakan antara 47.2 sampai 51 orang.
kepuasan <- c(8, 9, 7, 8, 8, 9, 7, 8, 9, 7)
n4 <- length(kepuasan)
mean4 <- mean(kepuasan)
se4 <- sd(kepuasan) / sqrt(n4)
t_crit4 <- qt(0.975, df = n4 - 1)
moe4 <- t_crit4 * se4
lower4 <- mean4 - moe4
upper4 <- mean4 + moe4
cat("Studi Kasus 4 - Kepuasan:\n")
## Studi Kasus 4 - Kepuasan:
cat("Rata-rata =", mean4, "\n")
## Rata-rata = 8
cat("Interval kepercayaan 95% =", lower4, "sampai", upper4, "\n\n")
## Interval kepercayaan 95% = 7.415914 sampai 8.584086
cat("Interpretasi: Dengan tingkat kepercayaan 95%, skor rata-rata kepuasan pelanggan diperkirakan antara",
round(lower4,1), "hingga", round(upper4,1), "poin.\n\n")
## Interpretasi: Dengan tingkat kepercayaan 95%, skor rata-rata kepuasan pelanggan diperkirakan antara 7.4 hingga 8.6 poin.
tidur <- c(6.5, 7, 6, 6.8, 7.2, 6.4, 6.9, 7.1, 6.6, 6.7)
n5 <- length(tidur)
mean5 <- mean(tidur)
se5 <- sd(tidur) / sqrt(n5)
t_crit5 <- qt(0.975, df = n5 - 1)
moe5 <- t_crit5 * se5
lower5 <- mean5 - moe5
upper5 <- mean5 + moe5
cat("Studi Kasus 5 - Tidur:\n")
## Studi Kasus 5 - Tidur:
cat("Rata-rata =", mean5, "jam\n")
## Rata-rata = 6.72 jam
cat("Interval kepercayaan 95% =", lower5, "sampai", upper5, "jam\n\n")
## Interval kepercayaan 95% = 6.461414 sampai 6.978586 jam
cat("Interpretasi: Dengan kepercayaan 95%, rata-rata waktu tidur mahasiswa diperkirakan antara",
round(lower5,2), "jam hingga", round(upper5,2), "jam per malam.\n\n")
## Interpretasi: Dengan kepercayaan 95%, rata-rata waktu tidur mahasiswa diperkirakan antara 6.46 jam hingga 6.98 jam per malam.
# Data tinggi badan mahasiswa (dalam cm)
tinggi <- c(165, 170, 168, 172, 167, 169, 171, 166, 168, 170)
# Hitung parameter dasar
n <- length(tinggi)
rata_rata <- mean(tinggi)
simpangan_baku <- sd(tinggi)
standard_error <- simpangan_baku / sqrt(n)
t_kritis <- qt(0.975, df = n - 1) # 95% CI, dua sisi
# Hitung margin of error dan interval kepercayaan
margin_error <- t_kritis * standard_error
batas_bawah <- rata_rata - margin_error
batas_atas <- rata_rata + margin_error
# Tampilkan hasil
cat("Rata-rata tinggi badan mahasiswa:", rata_rata, "cm\n")
## Rata-rata tinggi badan mahasiswa: 168.6 cm
cat("Standard Error:", round(standard_error, 2), "\n")
## Standard Error: 0.7
cat("Margin of Error (95%):", round(margin_error, 2), "\n")
## Margin of Error (95%): 1.59
cat("Interval Kepercayaan 95%: [", round(batas_bawah,2), ",", round(batas_atas,2), "]\n\n")
## Interval Kepercayaan 95%: [ 167.01 , 170.19 ]
cat("Interpretasi:\n")
## Interpretasi:
cat("Dengan tingkat kepercayaan 95%, rata-rata tinggi badan mahasiswa\n")
## Dengan tingkat kepercayaan 95%, rata-rata tinggi badan mahasiswa
cat("diperkirakan berada antara", round(batas_bawah, 2), "cm hingga", round(batas_atas, 2), "cm.\n")
## diperkirakan berada antara 167.01 cm hingga 170.19 cm.
cat("Artinya, jika pengukuran diulang berkali-kali, maka sekitar 95% dari interval yang terbentuk\n")
## Artinya, jika pengukuran diulang berkali-kali, maka sekitar 95% dari interval yang terbentuk
cat("akan mencakup rata-rata tinggi badan mahasiswa yang sebenarnya.\n")
## akan mencakup rata-rata tinggi badan mahasiswa yang sebenarnya.