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.
Andere gemiddelden
Sign in to test your solution.
# 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
You can submit as many times as you like. Only your latest submission will be taken into account.
Sign in to test your solution.