R/get_hiat_list.adm.R

In admtools: Estimate and Manipulate Age-Depth Models

get_hiat_list.adm = function(x){
  
  #' 
  #' @export
  #' 
  
  hiat_pos = get_hiat_pos(x)
  no_of_hiat = get_hiat_no(x)
  hiat_list = list()
  adm = x
  for (i in seq_len(no_of_hiat)){
    li = c(
      "height" = hiat_pos[i],
    "start" = min(adm$t[adm$h == hiat_pos[i]]),
    "end" = max(adm$t[adm$h == hiat_pos[i]])
    )
    hiat_list[[i]] = li
  }
  
  return(hiat_list)
  
}