library(tidyverse)
## Warning: package 'dplyr' was built under R version 4.5.2
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.1     ✔ stringr   1.5.2
## ✔ ggplot2   4.0.0     ✔ tibble    3.3.0
## ✔ lubridate 1.9.4     ✔ tidyr     1.3.1
## ✔ purrr     1.1.0     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(lsr)
## Warning: package 'lsr' was built under R version 4.5.3
library(car)
## Warning: package 'car' was built under R version 4.5.3
## Zorunlu paket yükleniyor: carData
## Warning: package 'carData' was built under R version 4.5.3
## 
## Attaching package: 'car'
## 
## The following object is masked from 'package:dplyr':
## 
##     recode
## 
## The following object is masked from 'package:purrr':
## 
##     some
set.seed(1923)

deney_grubu <- rnorm(50, mean = 45, sd = 8)

kontrol_grubu <- rnorm(50, mean = 52,sd = 8)

fare_verisi <- data.frame(grup = rep(c("Deney" , "Kontrol") , each = 50)) %>% 
  mutate(süre = round(c(deney_grubu, kontrol_grubu), 2))
head(fare_verisi)
##    grup  süre
## 1 Deney 39.81
## 2 Deney 45.56
## 3 Deney 53.49
## 4 Deney 56.08
## 5 Deney 52.47
## 6 Deney 42.59
tail(fare_verisi)
##        grup  süre
## 95  Kontrol 46.23
## 96  Kontrol 59.74
## 97  Kontrol 52.52
## 98  Kontrol 50.93
## 99  Kontrol 62.96
## 100 Kontrol 64.11
fare_istatistik <- fare_verisi %>% 
  group_by(grup) %>% 
  summarise(N= n(),
            Ortalama = mean(süre),
            Standart_Sapma = sd(süre)
  )
print(fare_istatistik)
## # A tibble: 2 × 4
##   grup        N Ortalama Standart_Sapma
##   <chr>   <int>    <dbl>          <dbl>
## 1 Deney      50     45.2           8.81
## 2 Kontrol    50     52.4           7.92
  1. normallik testi
fare_verisi %>% 
  group_by(grup) %>% 
  summarise(shapiro_p =
              shapiro.test(süre)$p.value)
## # A tibble: 2 × 2
##   grup    shapiro_p
##   <chr>       <dbl>
## 1 Deney       0.409
## 2 Kontrol     0.810
  1. varyans homojenliği (Levene Testi)
leveneTest(süre ~ grup, data = fare_verisi)
## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.
## Levene's Test for Homogeneity of Variance (center = median)
##       Df F value Pr(>F)
## group  1  0.5295 0.4686
##       98
sonuc <- t.test(süre ~ grup, data = fare_verisi,
                var.equal = TRUE)
print(sonuc)
## 
##  Two Sample t-test
## 
## data:  süre by grup
## t = -4.3425, df = 98, p-value = 3.436e-05
## alternative hypothesis: true difference in means between group Deney and group Kontrol is not equal to 0
## 95 percent confidence interval:
##  -10.601619  -3.951181
## sample estimates:
##   mean in group Deney mean in group Kontrol 
##               45.1614               52.4378
cohensD(süre~grup,data = fare_verisi)
## [1] 0.8685009

Yapılan bağımsız örneklem t-testi sonucunda, ilaç verilen deney grubunun labirent tamamlama sürelerinin (X = 45.16, SS = 8.81), kontrol grubuna göre (X = 52.44, SS = 7.92) anlamlı derecede daha düşük (hızlı) olduğu saptanmıştır, t(98) = -4.34, p< .001, d = 0.87. Bu bulgu, İlaç-x’in mekansal bellek ve öğrenme üzerinde geliştirici bir etkisi olduğunu desteklemektedir.

fare_istatistik
## # A tibble: 2 × 4
##   grup        N Ortalama Standart_Sapma
##   <chr>   <int>    <dbl>          <dbl>
## 1 Deney      50     45.2           8.81
## 2 Kontrol    50     52.4           7.92
fare_verisi
##        grup  süre
## 1     Deney 39.81
## 2     Deney 45.56
## 3     Deney 53.49
## 4     Deney 56.08
## 5     Deney 52.47
## 6     Deney 42.59
## 7     Deney 46.81
## 8     Deney 55.29
## 9     Deney 43.88
## 10    Deney 39.07
## 11    Deney 43.15
## 12    Deney 58.96
## 13    Deney 44.90
## 14    Deney 23.37
## 15    Deney 56.29
## 16    Deney 49.14
## 17    Deney 32.75
## 18    Deney 33.34
## 19    Deney 47.98
## 20    Deney 54.33
## 21    Deney 44.06
## 22    Deney 34.74
## 23    Deney 60.17
## 24    Deney 41.93
## 25    Deney 59.17
## 26    Deney 48.08
## 27    Deney 43.07
## 28    Deney 45.61
## 29    Deney 29.79
## 30    Deney 52.20
## 31    Deney 43.21
## 32    Deney 37.14
## 33    Deney 49.75
## 34    Deney 43.63
## 35    Deney 32.58
## 36    Deney 52.19
## 37    Deney 50.07
## 38    Deney 36.86
## 39    Deney 39.90
## 40    Deney 46.03
## 41    Deney 47.41
## 42    Deney 30.18
## 43    Deney 36.82
## 44    Deney 28.16
## 45    Deney 56.93
## 46    Deney 49.41
## 47    Deney 43.84
## 48    Deney 57.38
## 49    Deney 48.93
## 50    Deney 49.57
## 51  Kontrol 63.75
## 52  Kontrol 56.53
## 53  Kontrol 58.75
## 54  Kontrol 51.34
## 55  Kontrol 51.16
## 56  Kontrol 68.14
## 57  Kontrol 43.57
## 58  Kontrol 35.85
## 59  Kontrol 46.12
## 60  Kontrol 40.33
## 61  Kontrol 51.60
## 62  Kontrol 46.45
## 63  Kontrol 51.50
## 64  Kontrol 63.86
## 65  Kontrol 46.04
## 66  Kontrol 52.16
## 67  Kontrol 59.20
## 68  Kontrol 38.89
## 69  Kontrol 43.48
## 70  Kontrol 44.71
## 71  Kontrol 47.93
## 72  Kontrol 56.19
## 73  Kontrol 56.66
## 74  Kontrol 48.56
## 75  Kontrol 47.97
## 76  Kontrol 47.62
## 77  Kontrol 48.27
## 78  Kontrol 35.06
## 79  Kontrol 54.64
## 80  Kontrol 56.00
## 81  Kontrol 58.97
## 82  Kontrol 51.72
## 83  Kontrol 68.53
## 84  Kontrol 48.54
## 85  Kontrol 59.03
## 86  Kontrol 66.96
## 87  Kontrol 53.76
## 88  Kontrol 54.23
## 89  Kontrol 58.60
## 90  Kontrol 47.17
## 91  Kontrol 54.04
## 92  Kontrol 43.59
## 93  Kontrol 52.71
## 94  Kontrol 55.22
## 95  Kontrol 46.23
## 96  Kontrol 59.74
## 97  Kontrol 52.52
## 98  Kontrol 50.93
## 99  Kontrol 62.96
## 100 Kontrol 64.11