excel中整理數(shù)據(jù)
另存為
R語言界面
HVA<-read.table(file=file.choose(),header=T)
chaHVA<-HVA$preHVA-HVA$postHVA
t.test(chaHVA,alternative="greater")
============直接輸入
x<-c(20.15,24.07,15.23,21.24,25.54,26.57,19.12,14.64,21.6,16.98)
y<-c(4,1.65,7,1.5,4,5.69,13,4.53,1.2,0.1)
t.test(x-y,alternative="greater")
One Sample t-test
data: x - y
t = 8.5903, df = 9, p-value = 6.239e-06
alternative hypothesis: true mean is greater than 0
95 percent confidence interval:
12.78001 Inf
sample estimates:
mean of x
16.247
=======================