Bu çalışmada aynı bireylerin egzersiz öncesi ve egzersiz sonrası stres düzeyleri arasındaki fark bağımlı örneklemler t testi ile incelenmiştir. Araştırmanın hipotezleri H0: Egzersiz öncesi ve sonrası stres ortalamaları arasında fark yoktur (μönce = μsonra) ve H1: Egzersiz öncesi ve sonrası stres ortalamaları arasında fark vardır (μönce ≠ μsonra) şeklinde kurulmuştur. Analizde aynı bireylerden iki farklı zamanda alınan stres puanları kullanılmıştır. Öncelikle normallik varsayımı fark değerleri üzerinden kontrol edilmiştir. Varsayım sağlandıktan sonra bağımlı örneklemler t testi uygulanmıştır.

(library(readxl))
## [1] "readxl"    "stats"     "graphics"  "grDevices" "utils"     "datasets" 
## [7] "methods"   "base"
(library(dplyr))
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
## [1] "dplyr"     "readxl"    "stats"     "graphics"  "grDevices" "utils"    
## [7] "datasets"  "methods"   "base"
(library(effsize))
## Warning: package 'effsize' was built under R version 4.5.3
##  [1] "effsize"   "dplyr"     "readxl"    "stats"     "graphics"  "grDevices"
##  [7] "utils"     "datasets"  "methods"   "base"

Veri Setinin Oluşturulması

set.seed(123)

stres_veri <- data.frame(
  ogrenci_no = 1:30,
  stres_puani = rnorm(30, mean = 48, sd = 5)
)

Veri Setini İnceleyelim

glimpse(stres_veri)
## Rows: 30
## Columns: 2
## $ ogrenci_no  <int> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,…
## $ stres_puani <dbl> 45.19762, 46.84911, 55.79354, 48.35254, 48.64644, 56.57532…

Bu kod ile veri setinin kaç gözlem ve kaç değişkenden oluştuğu incelenmiştir.

head(stres_veri)
##   ogrenci_no stres_puani
## 1          1    45.19762
## 2          2    46.84911
## 3          3    55.79354
## 4          4    48.35254
## 5          5    48.64644
## 6          6    56.57532

Bu kod ile veri setinin ilk 6 satırı görüntülenmiştir.

Eksik Veri Kontrolü

colSums(is.na(stres_veri))
##  ogrenci_no stres_puani 
##           0           0

Bu adımda veri setinde eksik değer bulunup bulunmadığı kontrol edilmiştir. Eksik veri olmadığı için analize devam edilmiştir.

boxplot(
  stres_veri$stres_puani,
  main = "Stres Puanları",
  ylab = "Puan"
)