library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.2.0
## ✔ forcats 1.0.1 ✔ stringr 1.6.0
## ✔ ggplot2 4.0.1 ✔ tibble 3.3.0
## ✔ lubridate 1.9.5 ✔ tidyr 1.3.2
## ✔ purrr 1.2.2
## ── 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(dplyr)
library(lsr)
boy_verisi<-data.frame(id=1:43) %>%
mutate(boy=round(rnorm(n(),108.5),1))
head(boy_verisi)
## id boy
## 1 1 108.6
## 2 2 107.8
## 3 3 107.9
## 4 4 108.3
## 5 5 107.4
## 6 6 107.9
shapiro.test(boy_verisi$boy) #normallik testi
##
## Shapiro-Wilk normality test
##
## data: boy_verisi$boy
## W = 0.98337, p-value = 0.7791
shapiro-wilk testi sonucunda p>.05 olduğu için verinin normal dağıldığını kabul ederiz.
#tek örneklem t-testi
oneSampleTTest(boy_verisi$boy,mu=110)
##
## One sample t-test
##
## Data variable: boy_verisi$boy
##
## Descriptive statistics:
## boy
## mean 108.484
## std dev. 1.006
##
## Hypotheses:
## null: population mean equals 110
## alternative: population mean not equal to 110
##
## Test results:
## t-statistic: -9.887
## degrees of freedom: 42
## p-value: <.001
##
## Other information:
## two-sided 95% confidence interval: [108.174, 108.793]
## estimated effect size (Cohen's d): 1.508
Yapılan analiz sonucunda çocukların bıoy ortalamasının 110 cm olan referans değerden anlamlı düzeyde düşük olduğu görülmüştür(t(42)=-10.95,p<.001,%95 GA{108.21,108.77}).Test sonucu hesaplanan etki büyüklüğü d=1.669 farkın çok büyük olduğunu göstermektedir.Bu durumda çocukların boy ortalalamsı (x=100 cm),bu yaş grubu çocuklar için belirlenen norm değerden (110cm) düşük olduğu için,çocukların boy gelişimi açısından akranlarının gerisinde kaldığı söylenebilir.