Křesťanské školy a žáci se SVP
Juda Kaleta
2023-05-05
Úvod
\(H_{0A}\): Mezi církevními ZŠ a zbytkem ZŠ není signifikantní rozdíl v zastoupení žáků se SVP.
\(H_{0B}\): Mezi soukromými ZŠ a zbytkem ZŠ není signifikantní rozdíl v zastoupení žáků se SVP.
\(H_{1A}\): Církevní ZŠ mají vyšší poměrné zastoupení žáků se SVP oproti zbytku ZŠ.
\(H_{1B}\): Soukromé ZŠ mají nižší poměrné zastoupení žáků se SVP oproti zbytku ZŠ.
Zdroj dat
Jako zdroj dat jsou použity výkazy M3 získané z podzimního sběru v roce 2022. Tyto data MŠMT zveřejnilo na zakládě zákona o svobodném přístupu k informacím.
Příprava dat celého souboru ZŠ
# Nacteni dat
m3 <- read_excel("M202209/M03_2022.xlsx", "v0322a_1")
vsechny_skoly <- m3 %>%
filter(sp == "B", zrus == "N") %>% # Vyfiltrování pouze běžných a nezružených škol.
select("izo", "zriz", "r370112", "r02012") %>%
rename(IZO = "izo", Zrizovatel = "zriz", ZaciCelkem = "r370112", ZaciSVP = "r02012") %>%
filter(ZaciCelkem > 0) %>% # Vyfiltrování pouze škol s nenulovým počtem žáků.
mutate(Pomer = ZaciSVP / ZaciCelkem) %>%
filter(Pomer <= 1) # Vyfiltrování zřejmě chybných dat (celkový počet žaků < počet žáků se SVP)
summary(vsechny_skoly)## IZO Zrizovatel ZaciCelkem ZaciSVP
## Length:4353 Length:4353 Min. : 2.0 Min. : 0.0
## Class :character Class :character 1st Qu.: 49.0 1st Qu.: 4.0
## Mode :character Mode :character Median : 151.0 Median : 18.0
## Mean : 225.7 Mean : 27.1
## 3rd Qu.: 356.0 3rd Qu.: 41.0
## Max. :1150.0 Max. :216.0
## Pomer
## Min. :0.00000
## 1st Qu.:0.07122
## Median :0.10748
## Mean :0.11842
## 3rd Qu.:0.14904
## Max. :1.00000Příprava vzorku církevních ZŠ
cirkevni_skoly <- vsechny_skoly %>%
filter(Zrizovatel == 6)
summary(cirkevni_skoly)## IZO Zrizovatel ZaciCelkem ZaciSVP
## Length:41 Length:41 Min. : 9.0 Min. : 0.0
## Class :character Class :character 1st Qu.: 85.0 1st Qu.: 12.0
## Mode :character Mode :character Median :162.0 Median : 21.0
## Mean :171.6 Mean : 25.1
## 3rd Qu.:209.0 3rd Qu.: 34.0
## Max. :509.0 Max. :122.0
## Pomer
## Min. :0.00000
## 1st Qu.:0.09542
## Median :0.14525
## Mean :0.15914
## 3rd Qu.:0.19186
## Max. :0.50926Příprava vzorku soukromých ZŠ
soukrome_zs <- vsechny_skoly %>%
filter(Zrizovatel == 5)
summary(soukrome_zs)## IZO Zrizovatel ZaciCelkem ZaciSVP
## Length:280 Length:280 Min. : 4.00 Min. : 0.000
## Class :character Class :character 1st Qu.: 40.75 1st Qu.: 1.000
## Mode :character Mode :character Median : 64.50 Median : 5.000
## Mean : 84.76 Mean : 8.121
## 3rd Qu.:117.50 3rd Qu.:11.000
## Max. :453.00 Max. :65.000
## Pomer
## Min. :0.00000
## 1st Qu.:0.02962
## Median :0.07197
## Mean :0.08550
## 3rd Qu.:0.12500
## Max. :0.36723Grafické znázornění zastoupení žáků se SVP
Celý soubor ZŠ
Vzorek církevních ZŠ
Vzorek soukromých ZŠ
T-Test vzorku církevních a soukromých
t.test(vsechny_skoly$Pomer, cirkevni_skoly$Pomer)##
## Welch Two Sample t-test
##
## data: vsechny_skoly$Pomer and cirkevni_skoly$Pomer
## t = -2.5798, df = 40.56, p-value = 0.01361
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.072597930 -0.008831028
## sample estimates:
## mean of x mean of y
## 0.1184216 0.1591361Protože výsledná p-hodnota (\(p = 0.01361\)) je nižší než zvolená hladina významnosti \(\alpha = 0.05\), můžeme zamítnout nulovou hypotézu \(H_{0A}\). Zároveň je potvrzena hypotéza \(H_{1A}\), která předpokládala, že na církevních školách jsou ve vyšší míře zastoupeni žáci se SVP.
t.test(vsechny_skoly$Pomer, soukrome_zs$Pomer)##
## Welch Two Sample t-test
##
## data: vsechny_skoly$Pomer and soukrome_zs$Pomer
## t = 6.9857, df = 327.8, p-value = 1.587e-11
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## 0.02365367 0.04219797
## sample estimates:
## mean of x mean of y
## 0.11842159 0.08549577Protože výsledná p-hodnota (\(p = 1.587 \cdot 10^{-11}\)) je výrazně nižší než zvolená hladina významnosti \(\alpha = 0.05\), můžeme zamítnout nulovou hypotézu \(H_{0B}\). Zároveň je potvrzena hypotéza \(H_{1B}\), která předpokládala, že na soukromých školách jsou v nižší míře zastoupeni žáci se SVP.
Závěr
