"galileo" <-
structure(list(init.h = c(600, 700, 800, 950, 1100, 1300, 1500
), h.d = c(253, 337, 395, 451, 495, 534, 573)), .Names = c("init.h", 
"h.d"), row.names = c("1", "2", "3", "4", "5", "6", "7"), class = "data.frame")