dose <- c(4, 4, 2, 8, 5, 5, 5, 6, 7, 5, 5, 5, 3, 4, 7, 5, 6, 4, 9, 7, 5, 5, 1, 8, 3, 5, 3, 2, 5, 6, 6, 9, 6, 2, 5, 3, 7, 4, 6, 3, 5, 4, 5, 2, 3, 6, 8, 6, 5, 5, 4, 1, 5, 6, 3, 6, 3, 4, 3, 4, 9, 2, 8, 4, 7, 9, 1, 5, 3, 5, 7, 7, 6, 5, 3, 8, 7, 5, 4, 8) weight.gain<- c(8.1, 13.7, 1.9, 20.9, 11.7, 17.5, 19.9, 17.9, 23.6, 6.7, 20.2, 15.5, 5.2, 11.5, 16.9, 15.5, 9.9, 15.1, 21.6, 19.7, 16.8, 16.2, 3.7, 25.1, 11.7, 14.7, 18.6, 13.2, 18.8, 20, 17.8, 25.9, 13.9, 8.6, 11.8, 10.7, 21.3, 16.7, 18.8, 7.7, 16.6, 12.2, 15.5, 6, 9, 15.2, 26.5, 23, 10.7, 7.6, 13.7, 4, 16.7, 17.2, 12, 20, 14.1, 7.2, 7, 7.5, 25.7, 8.3, 23.7, 6.6, 18.7, 24.8, 8.2, 21.2, 6.9, 20.5, 14, 18.9, 16.6, 18, 12.3, 17.5, 20.7, 15.9, 9.3, 20.5)