Tugas-Bab-8.R

# TUGAS BAB 8
# UJI KESAMAAN RATA-RATA DARI DUA POPULASI
# UNTUK DATA BERPASANGAN DAN SALING BERHUBUNGAN
# (PAIRED t TEST)

# Nama : Tirza Abigail Theodora
# NIM  : 2502056040


data=read.csv2("data_berpasangan.csv",header=TRUE)

data

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

# ==========================================
# 1. PAIRED t TEST
# ==========================================

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

## 
##  Paired t-test
## 
## data:  data$Y and data$X
## t = 7.6525, df = 8, p-value = 6.003e-05
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
##  11.33381 21.11064
## sample estimates:
## mean difference 
##        16.22222

# ==========================================
# 2. MENGHITUNG SELISIH PASANGAN DATA
# ==========================================

selisih=data$Y-data$X

selisih

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

# ==========================================
# 3. Q-Q PLOT DATA SELISIH
# ==========================================

qqnorm(selisih)

qqline(selisih)

# ==========================================
# 4. UJI NORMALITAS KOLMOGOROV-SMIRNOV
# ==========================================

library(nortest)

lillie.test(selisih)

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

# ==========================================
# 5. UJI NORMALITAS JARQUE-BERA
# ==========================================

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.3935, df = 2, p-value = 0.4982