# NOT RUN {
x <- c(1:10, NA)
safe_median(x, na.rm = TRUE)
median(x, na.rm = TRUE)
try(median(x, na.mr = TRUE))
try(safe_median(x, na.mr = TRUE))
try(median(1, 2, 3))
try(safe_median(1, 2, 3))
# }
Run the code above in your browser using DataCamp Workspace