x <- c(15,10,13,7,9,8,21,9,14,8) y <- c(15,14,12,8,14,7,16,10,15,12) t.test(x,y,alt="two.sided", var.equal=TRUE) #豸♀, 焔郁
Two Sample t-test data: x and y t = -0.5331, df = 18, p-value = 0.6005 alternative hypothesis: true difference in means is not equal to 0 95 percent confidence interval: -4.446765 2.646765 sample estimates: mean of x mean of y 11.4 12.3
x <- c(15,10,13,7,9,8,21,9,14,8) y <- c(15,14,12,8,14,7,16,10,15,12) t.test(x,y,alt="less", var.equal=TRUE) #豸♀(u1>u2), 焔郁
Two Sample t-test data: x and y t = -0.5331, df = 18, p-value = 0.3002 alternative hypothesis: true difference in means is less than 0 95 percent confidence interval: -Inf 2.027436 sample estimates: mean of x mean of y 11.4 12.3
x <- c(15,10,13,7,9,8,21,9,14,8) y <- c(15,14,12,8,14,7,16,10,15,12) t.test(x,y,alt="two.sided", var.equal=FALSE) #豸♀, 焔郁讌
Welch Two Sample t-test data: x and y t = -0.5331, df = 16.245, p-value = 0.6012 alternative hypothesis: true difference in means is not equal to 0 95 percent confidence interval: -4.474425 2.674425 sample estimates: mean of x mean of y 11.4 12.3
x <- c(15,10,13,7,9,8,21,9,14,8) y <- c(15,14,12,8,14,7,16,10,15,12) t.test(x,y,alt="less", var.equal=FALSE) #豸♀(u1>u2), 焔郁讌
Welch Two Sample t-test data: x and y t = -0.5331, df = 16.245, p-value = 0.3006 alternative hypothesis: true difference in means is less than 0 95 percent confidence interval: -Inf 2.044664 sample estimates: mean of x mean of y 11.4 12.3
x <- c(15,10,13,7,9,8,21,9,14,8) y <- c(15,14,12,8,14,7,16,10,15,12) t.test(x,y,paired=TRUE) #覲(: /)
Paired t-test data: x and y t = -0.9612, df = 9, p-value = 0.3616 alternative hypothesis: true difference in means is not equal to 0 95 percent confidence interval: -3.018069 1.218069 sample estimates: mean of the differences -0.9