Diduga ada hubungan antara jumlah halaman buku yang digunakan dengan harga jual bukunya. Untuk menjawab dugaan tersebut dipilih sampel dari delapan buku yang dijual di toko tersebut

Book <- c("Intro to History", "Basic Algebra", "Intro to Psyc", "Intro to Sosiology", "Bun Mngi", "Intro to Biology", "Fund of Jazz", "Princ of Nursing")
jumlahHalaman <- c(500, 700, 800, 600, 400, 500, 600, 800)
harga <- c(84, 75, 99, 72, 69, 81, 63, 93)
dataBuku <- data.frame(Book, jumlahHalaman, harga)
print(dataBuku)
##                 Book jumlahHalaman harga
## 1   Intro to History           500    84
## 2      Basic Algebra           700    75
## 3      Intro to Psyc           800    99
## 4 Intro to Sosiology           600    72
## 5           Bun Mngi           400    69
## 6   Intro to Biology           500    81
## 7       Fund of Jazz           600    63
## 8   Princ of Nursing           800    93

1) Menampilkan scatterplot dari data di atas

plot(jumlahHalaman, harga,
     main = "Scatterplot Jumlah Halaman x Harga Buku",
     xlab = "Jumlah Halaman",
     ylab = "Harga Buku (Rp, Ribu)",
     pch = 19,
     col = "black")

cor(harga, jumlahHalaman)
## [1] 0.6138789
(koefKorelasi <- cor(dataBuku [, 2:3]))
##               jumlahHalaman     harga
## jumlahHalaman     1.0000000 0.6138789
## harga             0.6138789 1.0000000
library(corrplot)
## Warning: package 'corrplot' was built under R version 4.4.2
## corrplot 0.95 loaded
corrplot(corr = koefKorelasi, method = "number", type = "upper")

2) Menguji signifikansi koefisien korelasi dengan taraf nyata 5%

Hipotesis Uji
H0: rho = 0 (tidak ada korelasi)
H1: rho =! 0 (ada korelasi)
hasilUji <- cor.test(x = jumlahHalaman,
                     y = harga,
                     alternative = "two.sided",
                     method = "pearson",
                     exact = NULL, 
                     conf.level = 0.95)
print(hasilUji)
## 
##  Pearson's product-moment correlation
## 
## data:  jumlahHalaman and harga
## t = 1.9049, df = 6, p-value = 0.1055
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  -0.1600131  0.9204012
## sample estimates:
##       cor 
## 0.6138789
if (hasilUji$p.value < 0.05) {
  print("Oleh karena p-value < 0.05, maka Tolak H0. Jadi dapat disimpulkan ada cukup bukti untuk mengatakan Terdapat hubungan yang signifikan antara jumlah halaman dan harga buku pada taraf nyata 5%.")
} else {
  print("Oleh karena p-value > 0.05, maka Terima H0. Jadi dapat disimpulkan tidak cukup bukti untuk mengatakan terdapat hubungan yang signifikan antara jumlah halaman dan harga buku pada taraf nyata 5%.")
}
## [1] "Oleh karena p-value > 0.05, maka Terima H0. Jadi dapat disimpulkan tidak cukup bukti untuk mengatakan terdapat hubungan yang signifikan antara jumlah halaman dan harga buku pada taraf nyata 5%."
Hal ini menunjukkan bahwa berdasarkan data yang ada, tidak ada cukup bukti untuk mendukung klaim bahwa jumlah halaman mempengaruhi harga buku secara signifikan. Uji statistik ini menunjukkan bahwa hubungan korelasi tersebut tidak cukup kuat dan tidak dapat disimpulkan adanya hubungan yang kuat atau linear antara jumlah halaman dan harga buku pada taraf nyata 5%. Keputusan ini memberikan indikasi bahwa faktor-faktor lain mungkin berperan lebih besar dalam menentukan harga buku dibandingkan dengan jumlah halamannya.”