### R code from vignette source 'C:/Bendix/teach/NSCE/2022/pracs/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
###################################################
diff <- sm-ns
ratio <- sm/ns
AF <- (ratio - 1)/ratio
round( rbind( diff, ratio, 100*AF ), 1 )