library(tidyverse)
## Warning: package 'tidyverse' was built under R version 4.5.2
## Warning: package 'ggplot2' 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.1 ✔ 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(dplyr)
library(lsr)
## Warning: package 'lsr' was built under R version 4.5.2
set.seed(123)
boy_verisi<- data.frame(id=1:43)%>%mutate(boy=round(rnorm(n(),108,5),1))
head(boy_verisi)
## id boy
## 1 1 105.2
## 2 2 106.8
## 3 3 115.8
## 4 4 108.4
## 5 5 108.6
## 6 6 116.6
shapiro.test(boy_verisi$boy)
##
## Shapiro-Wilk normality test
##
## data: boy_verisi$boy
## W = 0.98831, p-value = 0.935
oneSampleTTest(boy_verisi$boy, mu=110)
##
## One sample t-test
##
## Data variable: boy_verisi$boy
##
## Descriptive statistics:
## boy
## mean 107.965
## std dev. 4.468
##
## Hypotheses:
## null: population mean equals 110
## alternative: population mean not equal to 110
##
## Test results:
## t-statistic: -2.987
## degrees of freedom: 42
## p-value: 0.005
##
## Other information:
## two-sided 95% confidence interval: [106.59, 109.34]
## estimated effect size (Cohen's d): 0.455
Analiz sonucunda, çocukların boy ortalamasının 110 cm olan referans değerden anlamlı düzyde düşük olduğu görülmüştür (t(42))=-10.95, p<.001, %95 GA [108.21, 108.77]). Test sonucu hessplanan etki büyüklüğü d=1.669 farkın çok büyük olduğunu göstermnektedir. Bu durumda çocukların boy ortalaması (x=100 cm), b 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.