DataBerpasangan8.1.R

data=read.csv("C:/Users/Asus/Downloads/Statistika milla/DataBerpasangan.csv", sep=";")
data

##    X   Y
## 1 78 100
## 2 76  95
## 3 67  70
## 4 77  90
## 5 70  90
## 6 72  90
## 7 78  89
## 8 74  90
## 9 77 100

t.test(data$Y, data$X, paired=TRUE)

## 
##  Paired t-test
## 
## data:  data$Y and data$X
## t = 7.6796, df = 8, p-value = 5.854e-05
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
##  11.27332 20.94890
## sample estimates:
## mean difference 
##        16.11111