例题：水泥厂用自动包装机包装水泥，每袋额定重量是50kg ，某日开工后随机抽查了9 袋，称得重量如下：
49.6,49.3,50.1,50.0,49.2,49.9,49.8,51.0,50.2设每袋重量服从正态分布，问包装机工作是否正常（α =0.05 ）？

参考答案： x <- c(49.6,49.3,50.1,50.0,49.2,49.9,49.8,51.0,50.2) α <- 0.05 solution <- t.test(x,mu=50,alternative="two.sided",conf.level = 1-α) solution if(solution$p.value>α ){print(" 接受 H0") }else{ print(" 拒绝 H0 ，接受 H1") } p-value> α，接受 H0 认为包装机工作正常。