R/get_time_bnds_1.R

Defines functions get_time_bounds_1

get_time_bounds_1 <- function(times) {
  time_bnds <- array(NA, dim = c(2, 1))
  time_bnds[1, 1] <- min(times, na.rm = TRUE)
  time_bnds[2, 1] <- max(times, na.rm = TRUE)

  return(time_bnds)
}

Try the cmsafops package in your browser

Any scripts or data that you put into this service are public.

cmsafops documentation built on Sept. 18, 2023, 5:16 p.m.