### R code from vignette source 'smokers-sol.rnw'

###################################################
### code chunk number 1: smokers-sol.rnw:35-39
###################################################
sm <- c(2.0,3.0,15.0)
ns <- c(0.2,1.0,9.0)
names(sm) <- names(ns) <- c("Lung Ca","Oth lung","CVD")
rbind( sm, ns )


###################################################
### code chunk number 2: smokers-sol.rnw:42-46
###################################################
ER <- sm-ns
RR <- sm/ns
EF <- (RR-1)/RR*100
round( rbind( ER, RR, EF ), 1 )