R/misc.R

In Health-Economics-in-R/QALY: Calculate Quality Adjusted Life Years (QALYs) Gains with Discounting and Inflated Costs

#
is_new_year <- function(cumul,
                        t) {

  cumul_new <- cumul + t
  floor(cumul_new) > floor(cumul)
}

#
get_remainder <- function(intervs) {

  last_value <-
    unlist(intervs) %>%
    tail(1)

  rem <- last_value %% 1

  if (rem == 0) {
    return(NULL)
  }

  return(rem)
}