Andere gemiddelden

Log in om je oplossingen te testen.
# Het meetkundig gemiddelde mean_geom <- function(data) { n <- length(data) return( ) } # Het harmonisch gemiddelde mean_harm <- function(data) { # Het kwadratisch gemiddelde mean_kwadr <- ### Enkele testen ### data <- c(98, 97, 98, 99, 100, 98) mean_geom(data) # 98.33 mean_harm(data) # 98.32 mean_kwadr(data) # 98.34 data <- c(14, 25, 14, 18, 16, 16, 20) mean_geom(data) # 17.23 mean_harm(data) # 16.93 mean_kwadr(data) # 17.94
Je kunt zo vaak indienen als je wenst. Er wordt enkel rekening gehouden met je laatst ingediende oplossing.
Log in om je oplossingen te testen.