Analisis Titanic

1. Import Data

# Data Simulasi Aman (Anti-Error)
set.seed(123)
df <- data.frame(
  Age = sample(20:60, 100, replace = TRUE),
  Fare = runif(100, 10, 100)
)
head(df)

##   Age     Fare
## 1  50 44.91181
## 2  34 32.18041
## 3  33 19.99868
## 4  22 45.09950
## 5  56 61.47418
## 6  33 29.52035

2. Hasil

cor(df)

##             Age       Fare
## Age  1.00000000 0.09567029
## Fare 0.09567029 1.00000000