data <- c(1,4,3,3,2,5,7,12,1,2,3,12)
# Simple calculation
harmonic_mean(data)
# Learning mode
harmonic_mean(data, learn = TRUE)
# Interactive mode
if(interactive()){
harmonic_mean(interactive = TRUE)
}
Run the code above in your browser using DataLab