s = rpois(10000, lambda = 250)
change = diff(s)/s[1:9999]
require(lattice)
## Loading required package: lattice
densityplot(change)
table(change > 0.23)
##
## FALSE TRUE
## 9883 116
*22000 doctors A multiplication problem in converting patients per week to an annual basis.
*708000 doctors Note 4 doctors per person.
*600000 doctors and 4000 slots per medical school Using established rates of doctors per 1000 to assess “need.” Medical school estimate doesn't take into account the working life of doctors.
*200000 slots a year in medical school Note the big career drop out rate.
*60000 slots per year 10% retirement rate.
AAMC document See page 11 for fall in number of physicians after Flexner report (175 to 125 per 100000). Figure 3 on page 12 for number of medical school graduates. Total physicians, see page 17: about 800000
Research article on sitting and mortality
Compare “never smoked” to “current smoker”. Rate ratio is 2.8 = 49.6/17.7. But the absolute difference in rate is 49.6-17.7 incidence rate per 100,000 person years.
Just like rate ratios but based on cumulative incidence. Example
Another example: examining the affect of an intervention (Calling people to remind them of an immunization):

showing affect of pressure bandages in patients undergoing coronary angiography.
A graphic on attributable risk:
Use this to derive the attributable fraction as \( \frac{RR-1}{RR} \)
In the British Doctors Study: Table 5.4
Combine the rates of the different groups and compare to the background rate.

Smoking and Tuberculosis in India. See the World Health Organization Exercise
Why we do them? When the incidence/prevalence is very small, so a cohort is not efficient.
What's an “odds”? From “Fugue for Tinhorns”
I’m pickin' Valentine, ‘cause on the morning line
A guy has got him figured at five to nine
Example: Ovarian cancer and oral contraception use:
Example: Bicycle helmets and head injury

Why the Odds Ratio Approximates the Relative Risk (when the prevalence/incidence is very small): Box 5.5
## Loading required package: splines
## Hmisc library by Frank E Harrell Jr
##
## Type library(help='Hmisc'), ?Overview, or ?Hmisc.Overview') to see overall
## documentation.
##
## NOTE:Hmisc no longer redefines [.factor to drop unused levels when
## subsetting. To get the old behavior of Hmisc type dropUnusedLevels().
## Attaching package: 'Hmisc'
## The following object(s) are masked from 'package:survival':
##
## untangle.specials
## The following object(s) are masked from 'package:base':
##
## format.pval, round.POSIXt, trunc.POSIXt, units
## Attaching package: 'mosaic'
## The following object(s) are masked from 'package:Hmisc':
##
## do
## The following object(s) are masked from 'package:stats':
##
## D, binom.test, median, prop.test, sd, var
## The following object(s) are masked from 'package:base':
##
## max, mean, min, print, sample
plotFun(log2((1 - ER * (1 - OR))/(ER * (1 - OR) * (1 - ER))) ~ OR & ER, OR.lim = c(0.5,
0.9), ER.lim = c(0.5, 0.9), main = "log2(NNT)")