Replace floor_mult with existing function?

[athowes]

The floor_mult function is this:

floor_mult <- function(x, f = 1) {
  checkmate::assert_numeric(f, lower = 0)
  ifelse(f == 0, x, floor(x / f) * f)
}

It does the floor of a multiple (aside from 1). I'd expect this must have been implemented somewhere else that we could rely upon. Seems quite closely related to e.g. %% and %/%.

[athowes]

Looks like there is something like it in plyr: https://stackoverflow.com/questions/43627679/round-any-equivalent-for-dplyr

[seabbs]

Can we get around this by depending on primarycensoreddist instead for simulation?

[athowes]

We can on the simulation but I think we will still need it again in the adding censored columns.

[seabbs]

This seems hard to avoid with a new function being exposed in primarycensored which I don't think we want to do so voting to leave and closing. Reopen if you feel strongly we should look for ways to remove.