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