Nothing
tp_to_sac = function(t, h, T_unit = NULL, L_unit = NULL){
#' @export
#'
#' @title define sed. acc. curve
#'
#' @description
#' defines _sac_ (sediment accumulation curve) object from tie points
#'
#' @param t numeric vector, time coordinates of tie points
#' @param h numeric vector, height coordinates of tie points
#' @param T_unit time unit
#' @param L_unit length unit
#'
#' @returns a _sac_ object reflecting a sediment accumulation curve
#'
#' @seealso [sac_to_adm()] to transform sediment accumulation curves into age-depth models, [get_T_tp()] and [get_L_tp()] to extract time and height/length tie points
li = list(t = t,
h = h,
T_unit = T_unit,
L_unit = L_unit)
class(li) = "sac"
return(li)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.