R/getPY.R

Defines functions getPY

Documented in getPY

getPY=function(surv,bin,binS,brks) {
  binLengths=diff(brks)
  LL=getBinInfo(bin,binS)["LL"]
  UL=getBinInfo(bin,binS)["UL"]
  indx=getBinInfo(bin,binS)["index"]
  ifelse(surv>=UL,binLengths[indx],ifelse(surv>LL,surv-LL,0))
}

Try the SEERaBomb package in your browser

Any scripts or data that you put into this service are public.

SEERaBomb documentation built on Dec. 16, 2019, 1:21 a.m.