### R code from vignette source 'compare-rates-sol.rnw'

###################################################
### code chunk number 1: compare-rates-sol.rnw:36-39
###################################################
Y <- c( 495+491, 485+481 )/2 * c(5,1)
names(Y) <- c("1993-97","1999")
Y


###################################################
### code chunk number 2: compare-rates-sol.rnw:45-47
###################################################
Y[1] <- 495/2+496+497+496+495+491/2
Y


###################################################
### code chunk number 3: compare-rates-sol.rnw:51-53
###################################################
ir <- c(113,26)/Y*10^2
round( ir, 2 )


###################################################
### code chunk number 4: compare-rates-sol.rnw:57-59
###################################################
mr <- c(22,3)/Y*10^2
round( mr, 2 )