Prijzen 2dehands auto's - Versie B

library(dplyr)

# Data inlezen:
autosTeKoop <- read.csv(
  "https://raw.githubusercontent.com/RobbeW/Data_Statistiek_R/main/bronnen/used_cars.csv",
  na.strings = c(".", "NA", ""),
  strip.white = TRUE,
  stringsAsFactors = FALSE
)
prijzenAstonMartin <- read.csv(
  "https://raw.githubusercontent.com/RobbeW/Data_Statistiek_R/main/bronnen/prices_aston_martin.csv",
  na.strings = c(".", "NA", ""),
  strip.white = TRUE,
  stringsAsFactors = FALSE
)

# Alleen gewenste kolommen:
autosTeKoop <- autosTeKoop[c("brand","model","model_year","milage")]

# Kolommen hernoemen
names(autosTeKoop)[names(autosTeKoop)=="milage"] <- "milage_mile"

# Scores omvormen naar integers
autosTeKoop$model_year <- as.numeric(autosTeKoop$model_year)
autosTeKoop$milage_mile <- as.numeric(gsub(',', '',substr(autosTeKoop$milage_mile,1,nchar(autosTeKoop$milage_mile)-3)))
prijzenAstonMartin$new_price <- as.numeric(prijzenAstonMartin$new_price)

# Beantwoord hieronder de vragen

Je kunt zo vaak indienen als je wenst. Er wordt enkel rekening gehouden met je laatst ingediende oplossing.