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.
Mario Kart
Sign in to test your solution.
99
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
›
# Gegevens ophalen
data <- read.csv(paste0("https://raw.githubusercontent.com/rfordatascience/ti",
"dytuesday/master/data/2021/2021-05-25/records.csv"),
header = TRUE)
# Aanpassen naar de recordtijden en wijzing kolomnamen
data <- aggregate(data$time, by = list(track = data$track, type = data$type,
shortcut = data$shortcut), FUN = min)
data <- data[data$shortcut == "No", ]
data$shortcut <- NULL
colnames(data) <- c("track", "type", "record_time")
data <- data[order(data$track, data$type), ]
rownames(data) <- NULL
# Bepaal het gevraagde
You can submit as many times as you like. Only your latest submission will be taken into account.
Sign in to test your solution.