Warning! It seems that you are using Dodona within another webpage, so not everything may work properly. Let your teacher know so that he can solve the problem by adjusting a setting in the learning environment. In the meantime, you can click this link to open Dodona in a new window.
Warning! The page was not fully loaded, probably because of a network issue. It could be that not all functionalities work as expected. Please try reloading the page.
Prijzen 2dehands auto's - Versie A
Sign in to test your solution.
library(dplyr)
# Data inlezen:
data <- read.csv(
"https://raw.githubusercontent.com/RobbeW/Data_Statistiek_R/main/bronnen/used_cars.csv",
na.strings = c(".", "NA", ""),
strip.white = TRUE,
stringsAsFactors = FALSE
)
# Alleen gewenste kolommen:
data <- data[c("brand","model","model_year","milage")]
# Kolommen hernoemen
names(data)[names(data)=="milage"] <- "milage_mile"
# Scores omvormen naar integers
data$model_year <- as.numeric(data$model_year)
data$milage_mile <- as.numeric(gsub(',', '',substr(data$milage_mile,1,nchar(data$milage_mile)-3)))
# Beantwoord hieronder de vragen