problem-7.15

problem-7.15  These can be found with
> t.test(homedata$y1970, conf.level = 0.9)
> t.test(homedata$y2000, conf.level = 0.9)