R/year.R

In FPRgroup/fpemmodeling: fpemmodeling

year_sequence_maker <- function(first_year_max,
                          first_year,
                          last_year,
                          first_year_obs,
                          last_year_obs
) {
  min_year <- min(first_year, first_year_obs, first_year_max)
  max_year <- max(last_year, last_year_obs)
  model_seq <- seq(min_year, max_year) - min_year + 1
  model_seq_years <- seq(min_year, max_year)
  first_index <- which(first_year == model_seq_years)
  last_index <- which(last_year == model_seq_years)
  result_seq <- seq(first_index, last_index)
  result_seq_years <- seq(model_seq_years[first_index], model_seq_years[last_index])
  return(list(
    model_seq = model_seq,
    model_seq_years = model_seq_years,
    result_seq = result_seq,
    result_seq_years = result_seq_years
  ))
}