R/piecefunc.R

In casspants/MATH4753kran1018: MATH4753 Package

Defines functions piecefunc

Documented in piecefunc

#' Piecewise Function
#'
#' @param x
#' @param coef
#'
#' @return piecewise regression
#' @export
#'
#' @examples
piecefunc <- function(x,coef){
  coef[1]+coef[2]*(x)+coef[3]*(x-18)*(x-18>0)
}