DataBerpasangan8.2.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

selisih = data$Y - data$X
selisih

## [1] 22 19  3 13 20 18 11 16 23

qqnorm(selisih)
qqline(selisih)

library(nortest)
lillie.test(selisih)

## 
##  Lilliefors (Kolmogorov-Smirnov) normality test
## 
## data:  selisih
## D = 0.17351, p-value = 0.6059

library(tseries)

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

jarque.bera.test(selisih)

## 
##  Jarque Bera Test
## 
## data:  selisih
## X-squared = 1.3706, df = 2, p-value = 0.5039