R/ttp.fun.R

In deftic/defShit: Package of private functions and stuff

#' Calculates TTP of peaks
#'
#' @param z A data.frame containing all peaks as columns and timepoints in column 1 from a csv file
#'
#' @return The TTP value for the peak
#' @export
#'
#' @examples
#' add_numbers(1, 2) ## returns 3

ttp.fun <- function(z) {
   
  xmax <- pracma::findpeaks(z$value, sortstr = TRUE)[1, 2] # timepoint with max value 
  ttp <- xmax - (max(localMinima.fun(z$value[5:xmax])) + 4)  # time to peak
  
  return(ttp)
   
  }