使用 t.text 函数完成下面的例题 用 10 只家兔试验某批注射液对体温的影响，测定每只兔子注射前后的体温，如下注射
前： (37.8,38.2,38.0,37.6,37.9,38.1,38.2,37.5,38.5,37.9) 注射后： (37.9,39.0,38.9,38.4,37.9,39.0,39.5,38.6,38.8,39.0) 已知家兔体温服从正态分
布，问注射前后体温有无显著差异？（α=0.01 ）（配对）

参考答案： x <- c(37.8,38.2,38.0,37.6,37.9,38.1,38.2,37.5,38.5,37.9) y <- c(37.9,39.0,38.9,38.4,37.9,39.0,39.5,38.6,38.8,39.0) α <- 0.01 solution <- t.test(x,y,mu = 0,alternative="two.sided",paired = TRUE,var.equal = FALSE,conf.level=1- α)if(solution$p.value>α){ print(" 接受 H0") }else{ print(" 拒绝 H0 ，接受 H1") } 输出结果：拒绝H0 ，接受 H1 （即：注射前后体温差异显著）