In de vorige oefening bepaalde je de mediaan als volgt:
remweg <- c(28.2, 28.5 ,29.3 ,29.6 ,29.9, 30.2, 30.6, 30.6, 30.6, 30.7)
n <- length(remweg)
if (n %% 2 != 0) { # oneven aantal waarnemingen
mediaan <- remweg[(n + 1) / 2]
} else { # even aantal waarnemingen
a <- remweg[n / 2]
b <- remweg[n / 2 + 1]
mediaan <- (a + b) / 2
}
Het spreekt voor zich dat er in R hiervoor een functie ingebakken zit, namelijk median(). De code kan dus sterk vereenvoudigd worden:
remweg <- c(28.2, 28.5 ,29.3 ,29.6 ,29.9, 30.2, 30.6, 30.6, 30.6, 30.7)
mediaan <- median( remweg )
# Superkort!
Herneem je oplossing van de vorige oefening.
Geef het gemiddelde opnieuw weer, maar deze keer met behulp van de median() functie.