R Markdown

library(readxl)
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
library(effsize)#etki büyüklüğü için
mindfulness_veri<-read_xlsx("mindfulness_veri.xlsx")
#veri setini inceleyelim 
glimpse(mindfulness_veri)
## Rows: 87
## Columns: 3
## $ ogrenci_no <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, …
## $ on_test    <dbl> 57, 57, 57, 61, 56, 60, 63, 52, 60, 58, 62, 56, 65, 61, 64,…
## $ son_test   <dbl> 53, 49, 58, 57, 51, 50, 58, 51, 50, 53, 63, 49, 61, 55, 63,…
#eksik veri kontrolü
colSums(is.na(mindfulness_veri))
## ogrenci_no    on_test   son_test 
##          0          0          0
#görselleştirme
boxplot(mindfulness_veri$on_test,
        mindfulness_veri$on_test,
        names=c("ön Test","Son Test"))

#normallik testi
shapiro.test(mindfulness_veri$on_test-mindfulness_veri$son_test)
## 
##  Shapiro-Wilk normality test
## 
## data:  mindfulness_veri$on_test - mindfulness_veri$son_test
## W = 0.97595, p-value = 0.1046
t.test(mindfulness_veri$on_test,
       mindfulness_veri$son_test,
       paired = TRUE)
## 
##  Paired t-test
## 
## data:  mindfulness_veri$on_test and mindfulness_veri$son_test
## t = 13.421, df = 86, p-value < 2.2e-16
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
##  4.514003 6.083698
## sample estimates:
## mean difference 
##        5.298851
#etki büyüklüğü
cohen.d(mindfulness_veri$son_test,
        mindfulness_veri$on_test,
        paired = TRUE)
## 
## Cohen's d
## 
## d estimate: -0.62672 (medium)
## 95 percent confidence interval:
##      lower      upper 
## -0.7275352 -0.5259048

Raporlama Üniversite öğrencilerinin Mindfulness uygulaması sonrasında sınav kaygısı puanlarında anlamlı bir değişim olup olmadığını incelemek amacıyla yapılan Bağımlı Örneklem T Testi sonucu,mindfulness müdahalesi öncesi ve sonrasısınav kaygısı puanları arasında istatistiksel olarak anlamlı bir fark olduğunu göstermiştir,t(86)=13.42,p<.001. Ortalama fark 5.30 puandır ve %95 güven aralığı (4.51,6.08)olarak hesaplanmıştır. Bu bulgu,müdahale sonrasında sınav kaygısı düzeylerinin anlamlı düzeyde azaldığını göstermektedir. Etki büyüklüğü analizi,değişimin orta düzeyde olduğunu ortaya koymuştur,d=0.63,%95 GA (-0.73,-0.53).Negatif yön,son test puanlarının ön test puanlarına kıyasla daha düşük olduğunu,yani kaygı düzeyinde azalma meydana geldiğini göstermektedir.