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.