R/lh-cc.R

ccFn=function(freq,age){
  freq=freq/sum(freq)
  lm  =lm(log(freq)~age)
  hat =exp(predict(lm))
  sel =(freq/hat)/max(freq/hat)
  data.frame(age=age,obs=freq,hat=hat,sel=sel)}
laurieKell/lh documentation built on May 20, 2019, 7:59 p.m.