R/fweibull4.R

Defines functions `fweibull4`

`fweibull4` <-
function(x, p) {
  ## dweibull does not like named vectors as first argument
  p[1] + p[2] * dweibull(as.numeric(x), p[3], p[4])
}

Try the cardidates package in your browser

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

cardidates documentation built on Oct. 8, 2023, 1:06 a.m.