Epidemiology Class Notes 2012-09-27

In the News

s = rpois(10000, lambda = 250)
change = diff(s)/s[1:9999]
require(lattice)
## Loading required package: lattice
densityplot(change)

plot of chunk unnamed-chunk-1

table(change > 0.23)
## 
## FALSE  TRUE 
##  9883   116 

Estimation Problem 1: Number of Physicians

*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

Linking Exposure and Disease

An example of risk ratios and population attributable fraction

Research article on sitting and mortality

Rate ratios versus absolute difference in rate

Table 5.1

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.

Relative Risk

Just like rate ratios but based on cumulative incidence. Example

Table 1.2

Another example: examining the affect of an intervention (Calling people to remind them of an immunization):

Table 5.2

Relative Risk Reduction

Box 5.2
showing affect of pressure bandages in patients undergoing coronary angiography.

Attributable Risk

A graphic on attributable risk:
Fig 5.1
Use this to derive the attributable fraction as \( \frac{RR-1}{RR} \)

In the British Doctors Study: Table 5.4

Population Attributable Risk

Combine the rates of the different groups and compare to the background rate.
Fig. 5.2
Smoking and Tuberculosis in India. See the World Health Organization Exercise

Case Control

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:
Table 5.6

Example: Bicycle helmets and head injury
Table 5.9

Why the Odds Ratio Approximates the Relative Risk (when the prevalence/incidence is very small): Box 5.5

Odds Ratios

Conversion between OR and event rate (ER) and Number Needed to Treat

## 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)")

plot of chunk unnamed-chunk-3