data <- c("apple", "apple", "banana", "banana")
tie_break <- c(1, 2, 1, 2)
second_tie_break <- c(1, 1, 2, 1)
calc_mode(data) # Expect: "Indeterminate"
calc_mode(data, tie_break) # Expect: "Indeterminate"
calc_mode(data, tie_break, second_tie_break) # Expect: "banana"
Run the code above in your browser using DataLab