R/lh-ogive-knife.R

knife=function(par, age){
  res=age
  
  res[age> c(par["break"])][]=par["m1"]
  res[age<=c(par["break"])][]=par["m2"]
  
  return(res)}
laurieKell/lh documentation built on May 20, 2019, 7:59 p.m.