data <- data.frame(
  age = c("25", "30", "35"),
  income = c("50000", "60000", "70000")
)
data$age <- as.numeric(data$age)
data$income <- as.numeric(data$income)