data(births)
attach(births)
epi.eff(response=bweight,type="metric",exposure=hyp)
epi.eff(response=lowbw,type="binary",exposure=hyp)
sex <- factor(sex)
epi.eff(response=bweight,type="metric",exposure=hyp,strata=sex)
epi.eff(response=lowbw,type="binary",exposure=hyp,strata=sex)
Run the code above in your browser using DataLab