data(faithful)
head(faithful)
## eruptions waiting
## 1 3.600 79
## 2 1.800 54
## 3 3.333 74
## 4 2.283 62
## 5 4.533 85
## 6 2.883 55
Menghitung Korelasi antara Erupsi dan Waktu Tunggu
cor(faithful$eruptions, faithful$waiting)
## [1] 0.9008112
Kesimpulan Berdasarkan perhitungan korelasi, didapatkan nilai sebesar 0,9008112 (mendekati 1) yang artinya durasi erupsi dan waktu tunggu berkorelasi positif kuat.