# Assuming '1000O0' is a typo in Income
data$Income <- as.character(data$Income)
data$Income[data$Income == '1000O0'] <- '100000'
data$Income <- as.numeric(data$Income)

# Data validation
if(any(data$Income > 500000 | data$Income < 10000)) {
  stop("Income values out of expected range.")
}