8.7 某种电子元件的寿命x(单位:小时)服从正态分布。现测得16只元件的寿命如下

是否有理由认为元件的平均寿命显著地大于225小时(a=0.05)?

data = read.csv("习题8.7.csv")
t.test(data$寿命,mu = 225,alternative  = "greater")

p值小于0.05，不能认为认为元件的平均寿命显著地大于225小时

8.10 装配一个部件可以采用不同的方法,所关心的问题是哪一个方法的效率更高。劳动效率可以用平均装配时间来反映。现从不同的装配方法中各抽取12件产品,记录各自的装配时间(单位:分钟)如下

两总体为正态总体,且方差相同,问这两种方法的装配时间有无显著差别(0.05)?

data = read.csv("习题8.10.csv")
t.test(data$甲法,data$乙法)

p值等于0.01516，小于0.05，两种方法的装配时间有显著差别。

8.11 调查了339名50岁以上的人,在205名吸烟者中有43个患慢性气管炎,在134名不吸烟者中有13人患慢性气管炎。调查数据能否支持“吸烟者容易患慢性气管炎”这种观点

table = matrix(c(162,121,43,13),nrow = 2,byrow = T)
rownames(table) = c("没有患慢性气管炎","患慢性气管炎")
colnames(table) &#