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

###################################################
### code chunk number 1: infant-sol.rnw:11-14
###################################################
Y <- (33200 + 32500)/2
D <- 269
cbind( D, Y, D/Y*100000 )


###################################################
### code chunk number 2: infant-sol.rnw:19-20
###################################################
269/32.800