R/ln_approx.R

In johnypark/divsptise: DIVerse SPecies TIme SEries r package

#' ln_approx
#' Warpper function of approx
#' @importFrom stats approx
#' @export
ln_approx <-function(df,x.name,y.name,xout){

  if(missing(xout)){
    output<-approx(x=df[[x.name]],y=df[[y.name]])
    xout=0;
  }
  else {
    output<-approx(x=df[[x.name]],y=df[[y.name]], xout)
  }
  return(output)
}