Computes the relative risks for each tobacco-related cancer based on the published risk curves.
RRTobDR(data, disease = "Pharynx", av_cigs_day = "cigs_per_day")
Data table of individual characteristics.
Character - the name of the disease for which the relative risks will be computed.
Character - the name of the variable containing each individual's average number of daily cigarettes.
Returns a numeric vector of each individual's relative risks for the tobacco related disease specified by "disease".
Relative risks for come from published risk functions whose parameters have been hard-coded within this function rather than being read from an external spreadsheet. These relative risks are based on an individual's current smoking intensity. There are others measures of smoking exposure including smoking duration and pack-years, which we will come to think about further.
if (FALSE) {
RRTobDR(data = data,
disease = "Pharynx",
av_cigs_day = "cigs_per_day"
)
}