prevost_m1: Incidence of Interval Cancers Modelled as a Function of Mean...

In ellessenne/random: A Random Collection of R Things

Description

Model 1 from Provost et al. (1998), Am J Epidemiol

Usage

prevost_m1(par, J, data)

Arguments

par	Parameter λ of the model
J	Incidence of preclinical disease
data	Dataset

Value

A numeric value representing the negative log-likelihood of the model

Source

https://academic.oup.com/aje/article-lookup/doi/10.1093/oxfordjournals.aje.a009687

Examples

data("crcscreen", package = "tag")
df <- na.omit(crcscreen[crcscreen$ageD == "55-64" & crcscreen$t > 0, ])
J <- crcscreen[crcscreen$ageD == "55-64" & crcscreen$group == "Controls", ]
J <- J$r / J$py
optimise(
  f = prevost_m1,
  interval = c(0, 100),
  data = df,
  J = J
)

ellessenne/random documentation built on Nov. 4, 2019, 11:52 a.m.