R/get_time_left_in_season.R

Defines functions get_time_left_in_season

#' @export
get_time_left_in_season <-
function(current_time,season_end){
  date_seq <- date_start_and_end_to_date_seq(current_time,season_end)
  # THIS IS PROBABLY WRONG 
  return (max(length(date_seq)+2,6))
}
reichlab/cdcForecastUtils documentation built on May 6, 2020, 10:43 a.m.