使用 t.text 函数完成下面的例题 有甲、乙两台机床加工相同的产品，假定两台机床加工的产品均服从正态分布，且总体
方差相等， 从 这 两 台 机 床 加 工 的 产 品 中 随 机 地 抽 取 若 干 件 ， 测 得 产 品 直 径 (mm) 为 甲 ：
(20.5,19.8,19.7,20.4,20.1,20.0,19.0,19.9);乙： (19.7,20.8,20.5,19.8,19.4,20.6,19.2)试比较甲乙 两台机床加工的产品直径有无显著应差异？. （α=0.05 ）

参考答案： x <- c(20.5,19.8,19.7,20.4,20.1,20.0,19.0,19.9) y <- c(19.7,20.8,20.5,19.8,19.4,20.6,19.2) α <- 0.05 solution <- t.test(x,y,mu = 0,alternative="two.sided",paired =FALSE,var.equal = FALSE,conf.level=1- α) if(solution$p.value>α){ print(" 接受 H0") }else{ print(" 拒绝 H0 ，接受 H1") }输入结果：接受H0( 即：甲乙两台机床加工的产品直径无显著性差异)”