Regression_2
2024-08-23
Техническая информация и библиотеки
options(scipen = 999) # Убирает научную запись чиселrm(list = ls())
date()
## [1] "Sat Aug 24 23:14:27 2024"
sessionInfo()
## R version 4.4.1 (2024-06-14)
## Platform: x86_64-apple-darwin20
## Running under: macOS Ventura 13.6.9
##
## Matrix products: default
## BLAS: /Library/Frameworks/R.framework/Versions/4.4-x86_64/Resources/lib/libRblas.0.dylib
## LAPACK: /Library/Frameworks/R.framework/Versions/4.4-x86_64/Resources/lib/libRlapack.dylib; LAPACK version 3.12.0
##
## locale:
## [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
##
## time zone: Europe/Moscow
## tzcode source: internal
##
## attached base packages:
## [1] stats graphics grDevices utils datasets methods base
##
## loaded via a namespace (and not attached):
## [1] digest_0.6.36 R6_2.5.1 fastmap_1.2.0 xfun_0.46
## [5] cachem_1.1.0 knitr_1.48 htmltools_0.5.8.1 rmarkdown_2.27
## [9] lifecycle_1.0.4 cli_3.6.3 sass_0.4.9 jquerylib_0.1.4
## [13] compiler_4.4.1 rstudioapi_0.16.0 tools_4.4.1 evaluate_0.24.0
## [17] bslib_0.7.0 yaml_2.3.9 rlang_1.1.4 jsonlite_1.8.8
library(ggplot2)
library(dplyr)
library(tidyr)
#
library(psych)
# library(GGally)
library(glmnet)
#library(knitr)Загрузка объекта
Data <- readRDS("DataRDS.RData")Корреляционный анализ
#Спиок переменных для корреляционного анализа
FullList <- c("WellBeing", "W_PositiveRel", "W_Autonomy", "W_EnvMastery", "W_PersGrowth", "W_PurposeLife", "W_SelfAcceptance",
"SubWellBeing", "SW_Napryazhennost", "SW_PsyEmocionalnyj", "SW_Nastroenie", "SW_SocOkruzh", "SW_Zdorove", "SW_UdovletvDeyateln",
"PB_Attitude", "PB_Satisfaction", "PB_Security",
"SO_S.GlobSamootnoshenie", "SO_I.Samouvazhenie", "SO_II.Autosimpatiya", "SO_III.OzhidOtnoshenie", "SO_IV.Samointeres",
"SO_1.Samouverennost", "SO_2.OtnoshenieDrugih", "SO_3.Samoprinyatie", "SO_4.Samorukovodstvo", "SO_5.Samoobvinenie", "SO_6.Samointeres", "SO_7.Samoponimanie",
"SP_Konfrontaciya", "SP_Distancirovanie", "SP_Samokontrol", "SP_PoiskCocPodderzhki", "SP_PrinyatieOtvetstv", "SP_BegstvoIzbeganie", "SP_Planirovanie", "SP_PolPereocenka",
"ZhS_Vovlechennost", "ZhS_Kontrol", "ZhS_PrinyatieRiska", "ZHiznestojkost",
"P_AbstractConcept", "P_Active.Experim", "P_ConcrExperien", "P_ReflectObserv" )
ShortList <- c("WellBeing",
"PB_Attitude", "PB_Satisfaction", "PB_Security",
"SO_S.GlobSamootnoshenie", "SO_I.Samouvazhenie", "SO_II.Autosimpatiya", "SO_III.OzhidOtnoshenie", "SO_IV.Samointeres",
"SO_1.Samouverennost", "SO_2.OtnoshenieDrugih", "SO_3.Samoprinyatie", "SO_4.Samorukovodstvo", "SO_5.Samoobvinenie", "SO_6.Samointeres", "SO_7.Samoponimanie",
"SP_Konfrontaciya", "SP_Distancirovanie", "SP_Samokontrol", "SP_PoiskCocPodderzhki", "SP_PrinyatieOtvetstv", "SP_BegstvoIzbeganie", "SP_Planirovanie", "SP_PolPereocenka",
"ZHiznestojkost",
"P_AbstractConcept", "P_Active.Experim", "P_ConcrExperien", "P_ReflectObserv" )Data |>
select(all_of(FullList)) |> #надо обязательно оборачивать в all_of()
corPlot(min.length = 7, xlas = 2, cex.axis = 0.5)
Сокращенный
Data |>
select(all_of(ShortList)) |> #надо обязательно оборачивать в all_of()
corPlot(min.length = 7, xlas = 2, cex.axis = 0.7) 
Благополучие ~ Благополуче
Data |>
select(WellBeing, starts_with("W_")) |>
pairs.panels(smoother = TRUE, stars = TRUE)
Безопасность ~ Благополучие
Data |>
select(WellBeing, PB_Attitude, PB_Satisfaction, PB_Security) |>
pairs.panels(smoother = TRUE, stars = TRUE)
Самоотношение ~ Благополучие
Data |>
select(WellBeing
, SO_S.GlobSamootnoshenie
, SO_1.Samouverennost
, SO_2.OtnoshenieDrugih
, SO_3.Samoprinyatie) |>
pairs.panels(smoother = TRUE, stars = TRUE)
Data |>
select(WellBeing, starts_with("SO_")
, -SO_S.GlobSamootnoshenie
, -SO_1.Samouverennost
, -SO_2.OtnoshenieDrugih
, -SO_3.Samoprinyatie) |>
pairs.panels(smoother = TRUE, stars = TRUE)
Совладающее поведение ~ Благополучие
Data |>
select(WellBeing, starts_with("SP_")) |>
pairs.panels(smoother = TRUE, stars = TRUE)
Корреляции “слабые”
Жизнестойкость ~ Благополучие
Data |>
select(WellBeing, starts_with("ZH")) |>
pairs.panels(smoother = TRUE, stars = TRUE)
Стили познания ~ Благополучие
Data |>
select(WellBeing, starts_with("P_")) |>
pairs.panels(smoother = TRUE, stars = TRUE)
Это, кажется, единственная методика, которая про другое и она не
коррелирует со всеми остальными переменными
Регрессионные графики
Безопасность
Data |>
select(PB_Attitude
, PB_Satisfaction
, PB_Security
, WellBeing
, SchoolType
, Gender) |>
pivot_longer(cols = -c(SchoolType, Gender, WellBeing), names_to = "variable", values_to = "value") |>
ggplot(aes(x = value, y = WellBeing, colour = SchoolType)) +
#geom_point() +
geom_jitter(width = 0.4, height = 0.2, size = 1, alpha = 0.7) + # Добавление джиттера и изменение размера точек
geom_smooth(method = 'lm', formula = y ~ x, se = FALSE) +
facet_wrap(Gender ~ variable, scales = "free_x") +
labs(title = "Безопасность", y = "Благополучие") +
theme_light() 
##Самоотношение
Data |>
select(SO_S.GlobSamootnoshenie
, SO_I.Samouvazhenie
, SO_II.Autosimpatiya
, SO_III.OzhidOtnoshenie
, SO_IV.Samointeres
, WellBeing
, SchoolType
, Gender) |>
pivot_longer(cols = -c(SchoolType, Gender, WellBeing), names_to = "variable", values_to = "value") |>
ggplot(aes(x = value, y = WellBeing, colour = SchoolType)) +
#geom_point() +
geom_jitter(width = 0.4, height = 0.2, size = 1, alpha = 0.7) + # Добавление джиттера и изменение размера точек
geom_smooth(method = 'lm', formula = y ~ x, se = FALSE) +
facet_wrap(Gender ~ variable, nrow = 2, scales = "free_x") +
labs(title = "Самоотношение - шкалы", y = "Благополучие") +
theme_light() 
Data |>
select(SO_1.Samouverennost
, SO_2.OtnoshenieDrugih
, SO_3.Samoprinyatie
, SO_4.Samorukovodstvo
, SO_5.Samoobvinenie
, SO_6.Samointeres
, SO_7.Samoponimanie
, WellBeing
, SchoolType
, Gender) |>
pivot_longer(cols = -c(SchoolType, Gender, WellBeing), names_to = "variable", values_to = "value") |>
ggplot(aes(x = value, y = WellBeing, colour = SchoolType)) +
#geom_point() +
geom_jitter(width = 0.4, height = 0.2, size = 0.5, alpha = 0.5) + # Добавление джиттера и изменение размера точек
geom_smooth(method = 'lm', formula = y ~ x, se = FALSE) +
facet_wrap(Gender ~ variable, nrow = 2, scales = "free_x") +
labs(title = "Самоотношение - шкалы", y = "Благополучие") +
theme_light() 
##Совладающее поведение
Data |>
select(starts_with("SP_")
, WellBeing
, SchoolType
, Gender) |>
pivot_longer(cols = -c(SchoolType, Gender, WellBeing), names_to = "variable", values_to = "value") |>
ggplot(aes(x = value, y = WellBeing, colour = SchoolType)) +
#geom_point() +
geom_jitter(width = 0.8, height = 0.2, size = 0.5, alpha = 0.5) + # Добавление джиттера и изменение размера точек
geom_smooth(method = 'lm', formula = y ~ x, se = FALSE) +
facet_wrap(Gender ~ variable, nrow = 2,
#scales = "free_x"
) +
labs(title = "Совладающее поведение", y = "Благополучие") +
theme_light() 
Самоконтроль у девочек! Особенно в Спецшколах
Жизнестойкость
Data |>
select(ZHiznestojkost
, WellBeing
, SchoolType
, Gender) |>
ggplot(aes(x = ZHiznestojkost, y = WellBeing, colour = SchoolType)) +
#geom_point() +
geom_jitter(width = 0.4, height = 0.2, size = 0.5, alpha = 0.5) + # Добавление джиттера и изменение размера точек
geom_smooth(method = 'lm', formula = y ~ x, se = FALSE) +
facet_wrap(~ Gender, nrow = 2,
#scales = "free_x"
) +
labs(title = "Жизнестойкость", y = "Благополучие") +
theme_light() 
Data |>
select(starts_with("ZHS_")
, WellBeing
, SchoolType
, Gender) |>
pivot_longer(cols = -c(SchoolType, Gender, WellBeing), names_to = "variable", values_to = "value") |>
ggplot(aes(x = value, y = WellBeing, colour = SchoolType)) +
#geom_point() +
geom_jitter(width = 0.4, height = 0.2, size = 0.5, alpha = 0.5) + # Добавление джиттера и изменение размера точек
geom_smooth(method = 'lm', formula = y ~ x, se = FALSE) +
facet_wrap(Gender ~ variable, nrow = 2,
#scales = "free_x"
) +
labs(title = "Жизнестойкость", y = "Благополучие") +
theme_light() 
Стили познания
Data |>
select(starts_with("P_")
, WellBeing
, SchoolType
, Gender) |>
pivot_longer(cols = -c(SchoolType, Gender, WellBeing), names_to = "variable", values_to = "value") |>
ggplot(aes(x = value, y = WellBeing, colour = SchoolType)) +
#geom_point() +
geom_jitter(width = 0.4, height = 0.2, size = 0.5, alpha = 0.5) + # Добавление джиттера и изменение размера точек
geom_smooth(method = 'lm', formula = y ~ x, se = FALSE) +
facet_wrap(Gender ~ variable, nrow = 2,
#scales = "free_x"
) +
labs(title = "Стили познания", y = "Благополучие") +
theme_light() 
У девочек есть расхождение.
Регрессионный анализ
Зависимая переменная - WellBeing
Дополнительные факторы - Gender, SchoolType
Независимые переменные “PB_Attitude”, “PB_Satisfaction”,
“PB_Security”,
“SO_S.GlobSamootnoshenie”,
“SO_I.Samouvazhenie”, “SO_II.Autosimpatiya”, “SO_III.OzhidOtnoshenie”,
“SO_IV.Samointeres”,
“SO_1.Samouverennost”, “SO_2.OtnoshenieDrugih”, “SO_3.Samoprinyatie”,
“SO_4.Samorukovodstvo”, “SO_5.Samoobvinenie”, “SO_6.Samointeres”,
“SO_7.Samoponimanie”,
“SP_Konfrontaciya”, “SP_Distancirovanie”, “SP_Samokontrol”,
“SP_PoiskCocPodderzhki”, “SP_PrinyatieOtvetstv”, “SP_BegstvoIzbeganie”,
“SP_Planirovanie”, “SP_PolPereocenka”,
“ZhS_Vovlechennost”, “ZhS_Kontrol”, “ZhS_PrinyatieRiska”,
“ZHiznestojkost”,
“P_AbstractConcept”, “P_Active.Experim”, “P_ConcrExperien”,
“P_ReflectObserv”
1 Полная модель без взаимодействия
formula_1 <- WellBeing ~
(Gender + SchoolType + PB_Attitude + PB_Satisfaction + PB_Security + SO_S.GlobSamootnoshenie + SO_I.Samouvazhenie + SO_II.Autosimpatiya + SO_III.OzhidOtnoshenie + SO_IV.Samointeres + SO_1.Samouverennost + SO_2.OtnoshenieDrugih + SO_3.Samoprinyatie + SO_4.Samorukovodstvo + SO_5.Samoobvinenie + SO_6.Samointeres + SO_7.Samoponimanie + SP_Konfrontaciya + SP_Distancirovanie + SP_Samokontrol +
SP_PoiskCocPodderzhki + SP_PrinyatieOtvetstv + SP_BegstvoIzbeganie +
SP_Planirovanie + SP_PolPereocenka + ZhS_Vovlechennost + ZhS_Kontrol + ZhS_PrinyatieRiska + ZHiznestojkost + P_AbstractConcept +
P_Active.Experim + P_ConcrExperien + P_ReflectObserv)
model_1 <- lm(formula_1, data = Data)
summary(model_1)##
## Call:
## lm(formula = formula_1, data = Data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -180.351 -15.319 1.659 16.079 73.136
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 67.43305 134.38570 0.502 0.6163
## GenderЖ 2.03639 4.61643 0.441 0.6596
## SchoolTypeSpec 7.41156 5.01077 1.479 0.1406
## PB_Attitude -0.80841 0.64343 -1.256 0.2103
## PB_Satisfaction 7.16153 3.62810 1.974 0.0497 *
## PB_Security 3.87509 2.88945 1.341 0.1813
## SO_S.GlobSamootnoshenie -1.23040 0.85352 -1.442 0.1509
## SO_I.Samouvazhenie 0.96187 1.80314 0.533 0.5943
## SO_II.Autosimpatiya -0.28935 1.84174 -0.157 0.8753
## SO_III.OzhidOtnoshenie 4.25390 2.65663 1.601 0.1108
## SO_IV.Samointeres 0.18222 2.37863 0.077 0.9390
## SO_1.Samouverennost 0.07126 2.45783 0.029 0.9769
## SO_2.OtnoshenieDrugih 0.34816 2.73449 0.127 0.8988
## SO_3.Samoprinyatie 4.08016 2.16373 1.886 0.0607 .
## SO_4.Samorukovodstvo 1.97385 2.15857 0.914 0.3615
## SO_5.Samoobvinenie -0.55905 2.48435 -0.225 0.8222
## SO_6.Samointeres 1.25392 2.93618 0.427 0.6698
## SO_7.Samoponimanie 1.26297 1.96884 0.641 0.5219
## SP_Konfrontaciya 0.22144 0.15915 1.391 0.1656
## SP_Distancirovanie 0.21854 0.14534 1.504 0.1341
## SP_Samokontrol -0.31249 0.19540 -1.599 0.1113
## SP_PoiskCocPodderzhki -0.04425 0.13833 -0.320 0.7493
## SP_PrinyatieOtvetstv 0.03958 0.15327 0.258 0.7965
## SP_BegstvoIzbeganie -0.14403 0.17202 -0.837 0.4034
## SP_Planirovanie 0.34427 0.16218 2.123 0.0349 *
## SP_PolPereocenka 0.17864 0.18823 0.949 0.3437
## ZhS_Vovlechennost 1.07087 0.40680 2.632 0.0091 **
## ZhS_Kontrol 0.73250 0.32019 2.288 0.0231 *
## ZhS_PrinyatieRiska 1.61815 0.65314 2.478 0.0140 *
## ZHiznestojkost NA NA NA NA
## P_AbstractConcept -0.10515 1.18569 -0.089 0.9294
## P_Active.Experim 0.84233 1.22258 0.689 0.4916
## P_ConcrExperien 1.06900 1.11302 0.960 0.3379
## P_ReflectObserv 0.55055 1.17139 0.470 0.6388
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 31.72 on 214 degrees of freedom
## (337 observations deleted due to missingness)
## Multiple R-squared: 0.6736, Adjusted R-squared: 0.6248
## F-statistic: 13.8 on 32 and 214 DF, p-value: < 0.000000000000000222 Полная без Пола и Школы
formula_2 <- WellBeing ~
(PB_Attitude + PB_Satisfaction + PB_Security + SO_S.GlobSamootnoshenie + SO_I.Samouvazhenie + SO_II.Autosimpatiya + SO_III.OzhidOtnoshenie + SO_IV.Samointeres + SO_1.Samouverennost +
SO_2.OtnoshenieDrugih + SO_3.Samoprinyatie + SO_4.Samorukovodstvo +
SO_5.Samoobvinenie + SO_6.Samointeres + SO_7.Samoponimanie +
SP_Konfrontaciya + SP_Distancirovanie + SP_Samokontrol +
SP_PoiskCocPodderzhki + SP_PrinyatieOtvetstv + SP_BegstvoIzbeganie +
SP_Planirovanie + SP_PolPereocenka + ZhS_Vovlechennost + ZhS_Kontrol + ZhS_PrinyatieRiska + ZHiznestojkost + P_AbstractConcept +
P_Active.Experim + P_ConcrExperien + P_ReflectObserv)
model_2 <- lm(formula_2, data = Data)
summary(model_2)##
## Call:
## lm(formula = formula_2, data = Data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -182.013 -16.532 2.361 17.827 72.456
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 77.14405 133.95418 0.576 0.5653
## PB_Attitude -0.91876 0.63936 -1.437 0.1522
## PB_Satisfaction 7.73919 3.60602 2.146 0.0330 *
## PB_Security 3.94282 2.87539 1.371 0.1717
## SO_S.GlobSamootnoshenie -1.28304 0.85285 -1.504 0.1339
## SO_I.Samouvazhenie 0.83800 1.80118 0.465 0.6422
## SO_II.Autosimpatiya -0.68749 1.82307 -0.377 0.7065
## SO_III.OzhidOtnoshenie 4.23826 2.65429 1.597 0.1118
## SO_IV.Samointeres 0.60272 2.35258 0.256 0.7980
## SO_1.Samouverennost 0.43204 2.44628 0.177 0.8600
## SO_2.OtnoshenieDrugih 0.32418 2.73282 0.119 0.9057
## SO_3.Samoprinyatie 4.49363 2.14730 2.093 0.0375 *
## SO_4.Samorukovodstvo 2.14017 2.14944 0.996 0.3205
## SO_5.Samoobvinenie -0.95172 2.46074 -0.387 0.6993
## SO_6.Samointeres 1.21916 2.93750 0.415 0.6785
## SO_7.Samoponimanie 1.03010 1.96194 0.525 0.6001
## SP_Konfrontaciya 0.22212 0.15912 1.396 0.1642
## SP_Distancirovanie 0.20193 0.14464 1.396 0.1641
## SP_Samokontrol -0.30336 0.19535 -1.553 0.1219
## SP_PoiskCocPodderzhki -0.02071 0.13746 -0.151 0.8804
## SP_PrinyatieOtvetstv 0.04849 0.15318 0.317 0.7519
## SP_BegstvoIzbeganie -0.15966 0.17033 -0.937 0.3496
## SP_Planirovanie 0.35571 0.15899 2.237 0.0263 *
## SP_PolPereocenka 0.07583 0.17504 0.433 0.6653
## ZhS_Vovlechennost 1.11875 0.40553 2.759 0.0063 **
## ZhS_Kontrol 0.73509 0.32025 2.295 0.0227 *
## ZhS_PrinyatieRiska 1.57990 0.65164 2.424 0.0162 *
## ZHiznestojkost NA NA NA NA
## P_AbstractConcept -0.09400 1.18494 -0.079 0.9368
## P_Active.Experim 0.80225 1.21922 0.658 0.5112
## P_ConcrExperien 1.06725 1.10983 0.962 0.3373
## P_ReflectObserv 0.55066 1.16026 0.475 0.6355
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 31.74 on 216 degrees of freedom
## (337 observations deleted due to missingness)
## Multiple R-squared: 0.6702, Adjusted R-squared: 0.6244
## F-statistic: 14.63 on 30 and 216 DF, p-value: < 0.00000000000000022Модель хуже не стала
3 Полная модель с взаимодействием
formula_3 <- WellBeing ~
(PB_Attitude + PB_Satisfaction + PB_Security + SO_S.GlobSamootnoshenie + SO_I.Samouvazhenie + SO_II.Autosimpatiya + SO_III.OzhidOtnoshenie + SO_IV.Samointeres + SO_1.Samouverennost +
SO_2.OtnoshenieDrugih + SO_3.Samoprinyatie + SO_4.Samorukovodstvo +
SO_5.Samoobvinenie + SO_6.Samointeres + SO_7.Samoponimanie +
SP_Konfrontaciya + SP_Distancirovanie + SP_Samokontrol +
SP_PoiskCocPodderzhki + SP_PrinyatieOtvetstv + SP_BegstvoIzbeganie +
SP_Planirovanie + SP_PolPereocenka + ZhS_Vovlechennost + ZhS_Kontrol + ZhS_PrinyatieRiska + ZHiznestojkost + P_AbstractConcept +
P_Active.Experim + P_ConcrExperien + P_ReflectObserv) * (Gender + SchoolType)
model_3 <- lm(formula_3, data = Data)
summary(model_3)##
## Call:
## lm(formula = formula_3, data = Data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -136.484 -14.826 0.091 14.245 73.988
##
## Coefficients: (3 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -263.49821 324.30900 -0.812 0.4178
## PB_Attitude -0.12707 1.88607 -0.067 0.9464
## PB_Satisfaction 4.37546 8.09235 0.541 0.5895
## PB_Security 0.19914 7.21619 0.028 0.9780
## SO_S.GlobSamootnoshenie -0.45382 3.40161 -0.133 0.8940
## SO_I.Samouvazhenie -2.81822 4.60953 -0.611 0.5418
## SO_II.Autosimpatiya -6.67056 4.88618 -1.365 0.1742
## SO_III.OzhidOtnoshenie -0.03856 7.48344 -0.005 0.9959
## SO_IV.Samointeres -2.51415 6.39024 -0.393 0.6945
## SO_1.Samouverennost 13.13616 5.87039 2.238 0.0267 *
## SO_2.OtnoshenieDrugih 8.25809 7.13673 1.157 0.2490
## SO_3.Samoprinyatie 9.69802 6.16125 1.574 0.1175
## SO_4.Samorukovodstvo 8.78830 4.18047 2.102 0.0372 *
## SO_5.Samoobvinenie -7.68474 5.58451 -1.376 0.1708
## SO_6.Samointeres 5.95949 7.51979 0.793 0.4293
## SO_7.Samoponimanie 3.69223 4.77015 0.774 0.4401
## SP_Konfrontaciya 0.40448 0.36914 1.096 0.2749
## SP_Distancirovanie 0.36118 0.34235 1.055 0.2931
## SP_Samokontrol -0.29042 0.47613 -0.610 0.5428
## SP_PoiskCocPodderzhki -0.45206 0.34622 -1.306 0.1936
## SP_PrinyatieOtvetstv -0.18670 0.34851 -0.536 0.5929
## SP_BegstvoIzbeganie -0.42291 0.45408 -0.931 0.3531
## SP_Planirovanie 0.34910 0.37454 0.932 0.3528
## SP_PolPereocenka 0.43314 0.48276 0.897 0.3710
## ZhS_Vovlechennost -1.32481 1.05743 -1.253 0.2122
## ZhS_Kontrol 1.84821 1.23130 1.501 0.1354
## ZhS_PrinyatieRiska 0.57663 1.79147 0.322 0.7480
## ZHiznestojkost NA NA NA NA
## P_AbstractConcept 2.99831 3.05955 0.980 0.3286
## P_Active.Experim 4.23482 3.09289 1.369 0.1729
## P_ConcrExperien 4.10186 2.71412 1.511 0.1328
## P_ReflectObserv 4.12197 2.82995 1.457 0.1473
## GenderЖ 172.77027 359.01748 0.481 0.6310
## SchoolTypeSpec 186.61291 337.79834 0.552 0.5814
## PB_Attitude:GenderЖ 1.72177 1.56824 1.098 0.2740
## PB_Attitude:SchoolTypeSpec -1.53816 1.84969 -0.832 0.4069
## PB_Satisfaction:GenderЖ -3.47368 8.31046 -0.418 0.6765
## PB_Satisfaction:SchoolTypeSpec 3.70415 8.37371 0.442 0.6589
## PB_Security:GenderЖ 7.33512 7.47741 0.981 0.3281
## PB_Security:SchoolTypeSpec -4.86141 7.31237 -0.665 0.5072
## SO_S.GlobSamootnoshenie:GenderЖ -1.60858 2.07677 -0.775 0.4398
## SO_S.GlobSamootnoshenie:SchoolTypeSpec -0.07205 3.35219 -0.021 0.9829
## SO_I.Samouvazhenie:GenderЖ 3.62335 4.20327 0.862 0.3900
## SO_I.Samouvazhenie:SchoolTypeSpec 1.64360 4.74005 0.347 0.7293
## SO_II.Autosimpatiya:GenderЖ 9.56282 4.57110 2.092 0.0381 *
## SO_II.Autosimpatiya:SchoolTypeSpec 2.45991 5.05788 0.486 0.6274
## SO_III.OzhidOtnoshenie:GenderЖ 3.27308 6.30167 0.519 0.6042
## SO_III.OzhidOtnoshenie:SchoolTypeSpec 3.37331 7.01753 0.481 0.6314
## SO_IV.Samointeres:GenderЖ 1.45675 5.67058 0.257 0.7976
## SO_IV.Samointeres:SchoolTypeSpec 4.74622 6.39763 0.742 0.4593
## SO_1.Samouverennost:GenderЖ -7.71170 5.56294 -1.386 0.1677
## SO_1.Samouverennost:SchoolTypeSpec -12.57280 6.10177 -2.061 0.0410 *
## SO_2.OtnoshenieDrugih:GenderЖ -6.93723 6.45469 -1.075 0.2842
## SO_2.OtnoshenieDrugih:SchoolTypeSpec -4.48725 6.84249 -0.656 0.5129
## SO_3.Samoprinyatie:GenderЖ -6.13362 5.38026 -1.140 0.2560
## SO_3.Samoprinyatie:SchoolTypeSpec -3.93117 6.09679 -0.645 0.5200
## SO_4.Samorukovodstvo:GenderЖ -4.36313 5.00121 -0.872 0.3843
## SO_4.Samorukovodstvo:SchoolTypeSpec -6.33538 4.91924 -1.288 0.1997
## SO_5.Samoobvinenie:GenderЖ 6.58353 6.02188 1.093 0.2760
## SO_5.Samoobvinenie:SchoolTypeSpec 4.04797 5.95433 0.680 0.4976
## SO_6.Samointeres:GenderЖ -3.88105 7.02467 -0.552 0.5814
## SO_6.Samointeres:SchoolTypeSpec -4.82539 7.57925 -0.637 0.5253
## SO_7.Samoponimanie:GenderЖ -5.92927 4.28272 -1.384 0.1682
## SO_7.Samoponimanie:SchoolTypeSpec 1.08972 4.76560 0.229 0.8194
## SP_Konfrontaciya:GenderЖ -0.37438 0.38548 -0.971 0.3330
## SP_Konfrontaciya:SchoolTypeSpec 0.12706 0.39929 0.318 0.7507
## SP_Distancirovanie:GenderЖ -0.41199 0.33581 -1.227 0.2217
## SP_Distancirovanie:SchoolTypeSpec -0.07045 0.35901 -0.196 0.8447
## SP_Samokontrol:GenderЖ -0.24810 0.48274 -0.514 0.6080
## SP_Samokontrol:SchoolTypeSpec 0.24786 0.49631 0.499 0.6182
## SP_PoiskCocPodderzhki:GenderЖ 0.36046 0.35957 1.002 0.3177
## SP_PoiskCocPodderzhki:SchoolTypeSpec 0.43011 0.35495 1.212 0.2275
## SP_PrinyatieOtvetstv:GenderЖ 0.27648 0.37275 0.742 0.4594
## SP_PrinyatieOtvetstv:SchoolTypeSpec 0.19637 0.36500 0.538 0.5914
## SP_BegstvoIzbeganie:GenderЖ 0.59755 0.41294 1.447 0.1499
## SP_BegstvoIzbeganie:SchoolTypeSpec -0.06559 0.45613 -0.144 0.8858
## SP_Planirovanie:GenderЖ -0.57688 0.37891 -1.522 0.1299
## SP_Planirovanie:SchoolTypeSpec 0.37606 0.39720 0.947 0.3452
## SP_PolPereocenka:GenderЖ 0.05017 0.42997 0.117 0.9073
## SP_PolPereocenka:SchoolTypeSpec -0.42425 0.46797 -0.907 0.3660
## ZhS_Vovlechennost:GenderЖ 2.38676 0.98321 2.428 0.0164 *
## ZhS_Vovlechennost:SchoolTypeSpec 1.29815 1.07056 1.213 0.2271
## ZhS_Kontrol:GenderЖ 0.37824 0.76663 0.493 0.6224
## ZhS_Kontrol:SchoolTypeSpec -1.62457 1.20905 -1.344 0.1810
## ZhS_PrinyatieRiska:GenderЖ -1.79185 1.58632 -1.130 0.2604
## ZhS_PrinyatieRiska:SchoolTypeSpec 3.52451 1.78823 1.971 0.0505 .
## ZHiznestojkost:GenderЖ NA NA NA NA
## ZHiznestojkost:SchoolTypeSpec NA NA NA NA
## P_AbstractConcept:GenderЖ -1.31913 3.17669 -0.415 0.6785
## P_AbstractConcept:SchoolTypeSpec -1.73199 3.08991 -0.561 0.5759
## P_Active.Experim:GenderЖ -3.21474 3.21673 -0.999 0.3192
## P_Active.Experim:SchoolTypeSpec -0.78304 3.11641 -0.251 0.8019
## P_ConcrExperien:GenderЖ -1.07530 2.92369 -0.368 0.7135
## P_ConcrExperien:SchoolTypeSpec -2.00405 2.80008 -0.716 0.4753
## P_ReflectObserv:GenderЖ -1.46460 3.11138 -0.471 0.6385
## P_ReflectObserv:SchoolTypeSpec -3.01261 2.92225 -1.031 0.3042
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 31.4 on 154 degrees of freedom
## (337 observations deleted due to missingness)
## Multiple R-squared: 0.7699, Adjusted R-squared: 0.6324
## F-statistic: 5.599 on 92 and 154 DF, p-value: < 0.00000000000000022Немного улучшилась модель при добавлении взаимодействия, но скорректированный R квадрат мало изменился (слишком много переменных)
4 Полная модель ~ школа
formula_4 <- WellBeing ~
(PB_Attitude + PB_Satisfaction + PB_Security + SO_S.GlobSamootnoshenie + SO_I.Samouvazhenie + SO_II.Autosimpatiya + SO_III.OzhidOtnoshenie + SO_IV.Samointeres + SO_1.Samouverennost +
SO_2.OtnoshenieDrugih + SO_3.Samoprinyatie + SO_4.Samorukovodstvo +
SO_5.Samoobvinenie + SO_6.Samointeres + SO_7.Samoponimanie +
SP_Konfrontaciya + SP_Distancirovanie + SP_Samokontrol +
SP_PoiskCocPodderzhki + SP_PrinyatieOtvetstv + SP_BegstvoIzbeganie +
SP_Planirovanie + SP_PolPereocenka + ZhS_Vovlechennost + ZhS_Kontrol + ZhS_PrinyatieRiska + ZHiznestojkost + P_AbstractConcept +
P_Active.Experim + P_ConcrExperien + P_ReflectObserv) * SchoolType
model_4 <- lm(formula_4, data = Data)
summary(model_4)##
## Call:
## lm(formula = formula_4, data = Data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -155.48 -15.10 1.42 17.01 71.34
##
## Coefficients: (2 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -59.949620 209.391165 -0.286 0.7750
## PB_Attitude 1.075375 1.384984 0.776 0.4385
## PB_Satisfaction 2.272332 5.810777 0.391 0.6962
## PB_Security 5.002157 4.547194 1.100 0.2727
## SO_S.GlobSamootnoshenie -1.411250 2.956774 -0.477 0.6337
## SO_I.Samouvazhenie -0.943866 3.654732 -0.258 0.7965
## SO_II.Autosimpatiya -0.354513 3.679246 -0.096 0.9233
## SO_III.OzhidOtnoshenie 3.388516 5.223666 0.649 0.5173
## SO_IV.Samointeres -2.743954 4.941035 -0.555 0.5793
## SO_1.Samouverennost 4.966991 4.575936 1.085 0.2791
## SO_2.OtnoshenieDrugih 3.910877 5.023897 0.778 0.4373
## SO_3.Samoprinyatie 2.889034 4.441974 0.650 0.5162
## SO_4.Samorukovodstvo 4.803922 3.464260 1.387 0.1672
## SO_5.Samoobvinenie -2.512463 4.319250 -0.582 0.5615
## SO_6.Samointeres 4.765347 5.598296 0.851 0.3958
## SO_7.Samoponimanie 0.900843 3.752048 0.240 0.8105
## SP_Konfrontaciya 0.077284 0.265644 0.291 0.7714
## SP_Distancirovanie 0.126188 0.248354 0.508 0.6120
## SP_Samokontrol -0.407158 0.345928 -1.177 0.2407
## SP_PoiskCocPodderzhki -0.323602 0.228535 -1.416 0.1585
## SP_PrinyatieOtvetstv 0.065741 0.254434 0.258 0.7964
## SP_BegstvoIzbeganie 0.066646 0.344665 0.193 0.8469
## SP_Planirovanie 0.071983 0.279218 0.258 0.7968
## SP_PolPereocenka 0.317580 0.364320 0.872 0.3845
## ZhS_Vovlechennost 0.516925 0.842197 0.614 0.5401
## ZhS_Kontrol 2.448208 1.016547 2.408 0.0170 *
## ZhS_PrinyatieRiska -0.723500 1.328628 -0.545 0.5867
## ZHiznestojkost NA NA NA NA
## P_AbstractConcept 1.678217 1.994981 0.841 0.4013
## P_Active.Experim 1.285051 2.022815 0.635 0.5260
## P_ConcrExperien 2.402791 1.823492 1.318 0.1892
## P_ReflectObserv 2.358555 1.827460 1.291 0.1984
## SchoolTypeSpec 69.815678 284.703410 0.245 0.8066
## PB_Attitude:SchoolTypeSpec -2.147260 1.624544 -1.322 0.1879
## PB_Satisfaction:SchoolTypeSpec 6.368719 7.727322 0.824 0.4109
## PB_Security:SchoolTypeSpec -3.047405 6.096609 -0.500 0.6178
## SO_S.GlobSamootnoshenie:SchoolTypeSpec 0.096594 3.096344 0.031 0.9751
## SO_I.Samouvazhenie:SchoolTypeSpec 2.649503 4.311313 0.615 0.5396
## SO_II.Autosimpatiya:SchoolTypeSpec -0.380513 4.351714 -0.087 0.9304
## SO_III.OzhidOtnoshenie:SchoolTypeSpec 1.631342 6.222611 0.262 0.7935
## SO_IV.Samointeres:SchoolTypeSpec 5.490624 5.811157 0.945 0.3460
## SO_1.Samouverennost:SchoolTypeSpec -9.758286 5.583099 -1.748 0.0822 .
## SO_2.OtnoshenieDrugih:SchoolTypeSpec -5.555355 6.159340 -0.902 0.3683
## SO_3.Samoprinyatie:SchoolTypeSpec 1.784232 5.180073 0.344 0.7309
## SO_4.Samorukovodstvo:SchoolTypeSpec -4.109419 4.530186 -0.907 0.3655
## SO_5.Samoobvinenie:SchoolTypeSpec 0.176314 5.393140 0.033 0.9740
## SO_6.Samointeres:SchoolTypeSpec -4.427587 6.784528 -0.653 0.5148
## SO_7.Samoponimanie:SchoolTypeSpec 1.108358 4.458301 0.249 0.8039
## SP_Konfrontaciya:SchoolTypeSpec 0.428911 0.353028 1.215 0.2259
## SP_Distancirovanie:SchoolTypeSpec 0.096606 0.321358 0.301 0.7640
## SP_Samokontrol:SchoolTypeSpec 0.312006 0.432556 0.721 0.4716
## SP_PoiskCocPodderzhki:SchoolTypeSpec 0.452459 0.299043 1.513 0.1320
## SP_PrinyatieOtvetstv:SchoolTypeSpec 0.002111 0.328157 0.006 0.9949
## SP_BegstvoIzbeganie:SchoolTypeSpec -0.303988 0.408464 -0.744 0.4577
## SP_Planirovanie:SchoolTypeSpec 0.382010 0.355199 1.075 0.2836
## SP_PolPereocenka:SchoolTypeSpec -0.292495 0.428642 -0.682 0.4959
## ZhS_Vovlechennost:SchoolTypeSpec 0.464932 0.979259 0.475 0.6355
## ZhS_Kontrol:SchoolTypeSpec -2.198900 1.076152 -2.043 0.0424 *
## ZhS_PrinyatieRiska:SchoolTypeSpec 3.905752 1.568073 2.491 0.0136 *
## ZHiznestojkost:SchoolTypeSpec NA NA NA NA
## P_AbstractConcept:SchoolTypeSpec -1.458166 2.576288 -0.566 0.5721
## P_Active.Experim:SchoolTypeSpec 0.534887 2.646098 0.202 0.8400
## P_ConcrExperien:SchoolTypeSpec -1.043368 2.399219 -0.435 0.6642
## P_ReflectObserv:SchoolTypeSpec -1.693498 2.482026 -0.682 0.4959
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 31.15 on 185 degrees of freedom
## (337 observations deleted due to missingness)
## Multiple R-squared: 0.7279, Adjusted R-squared: 0.6382
## F-statistic: 8.114 on 61 and 185 DF, p-value: < 0.00000000000000022Чуть-чуть хуже, чем оба фактора
5 Полная и пол
formula_5 <- WellBeing ~
(PB_Attitude + PB_Satisfaction + PB_Security + SO_S.GlobSamootnoshenie + SO_I.Samouvazhenie + SO_II.Autosimpatiya + SO_III.OzhidOtnoshenie + SO_IV.Samointeres + SO_1.Samouverennost +
SO_2.OtnoshenieDrugih + SO_3.Samoprinyatie + SO_4.Samorukovodstvo +
SO_5.Samoobvinenie + SO_6.Samointeres + SO_7.Samoponimanie +
SP_Konfrontaciya + SP_Distancirovanie + SP_Samokontrol +
SP_PoiskCocPodderzhki + SP_PrinyatieOtvetstv + SP_BegstvoIzbeganie +
SP_Planirovanie + SP_PolPereocenka + ZhS_Vovlechennost + ZhS_Kontrol + ZhS_PrinyatieRiska + ZHiznestojkost + P_AbstractConcept +
P_Active.Experim + P_ConcrExperien + P_ReflectObserv) * Gender
model_5 <- lm(formula_5, data = Data)
summary(model_5)##
## Call:
## lm(formula = formula_5, data = Data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -147.221 -15.486 0.718 15.556 76.692
##
## Coefficients: (2 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -96.57026 213.72462 -0.452 0.65191
## PB_Attitude -1.36942 1.05516 -1.298 0.19596
## PB_Satisfaction 8.92829 5.48294 1.628 0.10515
## PB_Security -2.05466 4.38091 -0.469 0.63962
## SO_S.GlobSamootnoshenie -0.63243 1.30251 -0.486 0.62786
## SO_I.Samouvazhenie -1.92597 2.79355 -0.689 0.49141
## SO_II.Autosimpatiya -4.69282 2.56529 -1.829 0.06896 .
## SO_III.OzhidOtnoshenie 3.48610 4.23413 0.823 0.41138
## SO_IV.Samointeres 2.58211 3.46294 0.746 0.45683
## SO_1.Samouverennost 4.11798 3.66650 1.123 0.26283
## SO_2.OtnoshenieDrugih 3.88135 4.43727 0.875 0.38286
## SO_3.Samoprinyatie 6.72692 2.94975 2.281 0.02372 *
## SO_4.Samorukovodstvo 4.50868 2.77404 1.625 0.10580
## SO_5.Samoobvinenie -2.65504 3.38216 -0.785 0.43345
## SO_6.Samointeres 0.52881 4.28925 0.123 0.90201
## SO_7.Samoponimanie 5.16327 2.86622 1.801 0.07326 .
## SP_Konfrontaciya 0.47781 0.23403 2.042 0.04261 *
## SP_Distancirovanie 0.34396 0.20751 1.658 0.09909 .
## SP_Samokontrol -0.26883 0.26932 -0.998 0.31950
## SP_PoiskCocPodderzhki -0.21516 0.20467 -1.051 0.29451
## SP_PrinyatieOtvetstv 0.01762 0.22522 0.078 0.93774
## SP_BegstvoIzbeganie -0.62937 0.25455 -2.472 0.01432 *
## SP_Planirovanie 0.58016 0.24550 2.363 0.01916 *
## SP_PolPereocenka 0.11271 0.26004 0.433 0.66520
## ZhS_Vovlechennost -0.04211 0.57140 -0.074 0.94133
## ZhS_Kontrol 0.62169 0.46786 1.329 0.18556
## ZhS_PrinyatieRiska 2.99442 0.95302 3.142 0.00195 **
## ZHiznestojkost NA NA NA NA
## P_AbstractConcept 1.18844 1.90541 0.624 0.53358
## P_Active.Experim 3.40837 2.01543 1.691 0.09249 .
## P_ConcrExperien 2.37370 1.78369 1.331 0.18490
## P_ReflectObserv 1.65369 1.88827 0.876 0.38229
## GenderЖ 180.57768 307.37934 0.587 0.55760
## PB_Attitude:GenderЖ 1.24702 1.38849 0.898 0.37029
## PB_Satisfaction:GenderЖ -5.02711 7.70822 -0.652 0.51510
## PB_Security:GenderЖ 6.69657 6.31961 1.060 0.29069
## SO_S.GlobSamootnoshenie:GenderЖ -0.85870 1.86613 -0.460 0.64595
## SO_I.Samouvazhenie:GenderЖ 3.43067 3.87729 0.885 0.37741
## SO_II.Autosimpatiya:GenderЖ 7.84128 4.09302 1.916 0.05694 .
## SO_III.OzhidOtnoshenie:GenderЖ -0.39767 5.63725 -0.071 0.94384
## SO_IV.Samointeres:GenderЖ -1.99480 5.04907 -0.395 0.69324
## SO_1.Samouverennost:GenderЖ -3.93876 5.21404 -0.755 0.45096
## SO_2.OtnoshenieDrugih:GenderЖ -2.62273 5.88520 -0.446 0.65637
## SO_3.Samoprinyatie:GenderЖ -5.32979 4.65488 -1.145 0.25369
## SO_4.Samorukovodstvo:GenderЖ -2.90107 4.75016 -0.611 0.54213
## SO_5.Samoobvinenie:GenderЖ 2.41065 5.36376 0.449 0.65365
## SO_6.Samointeres:GenderЖ 1.41433 6.46079 0.219 0.82696
## SO_7.Samoponimanie:GenderЖ -8.46704 4.02359 -2.104 0.03670 *
## SP_Konfrontaciya:GenderЖ -0.47461 0.34440 -1.378 0.16984
## SP_Distancirovanie:GenderЖ -0.39936 0.30472 -1.311 0.19162
## SP_Samokontrol:GenderЖ -0.08639 0.41171 -0.210 0.83403
## SP_PoiskCocPodderzhki:GenderЖ 0.37730 0.29745 1.268 0.20622
## SP_PrinyatieOtvetstv:GenderЖ 0.06602 0.33564 0.197 0.84427
## SP_BegstvoIzbeganie:GenderЖ 0.94948 0.37177 2.554 0.01146 *
## SP_Planirovanie:GenderЖ -0.40486 0.34451 -1.175 0.24142
## SP_PolPereocenka:GenderЖ -0.19405 0.38342 -0.506 0.61339
## ZhS_Vovlechennost:GenderЖ 2.13869 0.90884 2.353 0.01966 *
## ZhS_Kontrol:GenderЖ 0.28211 0.69983 0.403 0.68734
## ZhS_PrinyatieRiska:GenderЖ -2.50743 1.40181 -1.789 0.07530 .
## ZHiznestojkost:GenderЖ NA NA NA NA
## P_AbstractConcept:GenderЖ -0.94341 2.71619 -0.347 0.72874
## P_Active.Experim:GenderЖ -3.36934 2.80772 -1.200 0.23166
## P_ConcrExperien:GenderЖ -1.32321 2.55119 -0.519 0.60462
## P_ReflectObserv:GenderЖ -0.97720 2.65324 -0.368 0.71307
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 31.5 on 185 degrees of freedom
## (337 observations deleted due to missingness)
## Multiple R-squared: 0.7217, Adjusted R-squared: 0.6299
## F-statistic: 7.863 on 61 and 185 DF, p-value: < 0.00000000000000022Примерно как и с школой
6 Сокращенная без взаимодействия
formula_6 <- WellBeing ~
(Gender + SchoolType + PB_Attitude + PB_Satisfaction + PB_Security + SO_S.GlobSamootnoshenie +
SP_Konfrontaciya + SP_Distancirovanie + SP_Samokontrol +
SP_PoiskCocPodderzhki + SP_PrinyatieOtvetstv + SP_BegstvoIzbeganie +
SP_Planirovanie + SP_PolPereocenka +
ZHiznestojkost + P_AbstractConcept +
P_Active.Experim + P_ConcrExperien + P_ReflectObserv)
model_6 <- lm(formula_6,data = Data)
summary(model_6)##
## Call:
## lm(formula = formula_6, data = Data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -177.88 -17.21 3.42 19.12 90.56
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 100.96274 131.84252 0.766 0.4446
## GenderЖ 4.39396 4.68518 0.938 0.3493
## SchoolTypeSpec 8.74307 5.11884 1.708 0.0890 .
## PB_Attitude -0.99032 0.65730 -1.507 0.1333
## PB_Satisfaction 6.45288 3.72185 1.734 0.0843 .
## PB_Security 6.46202 2.89938 2.229 0.0268 *
## SO_S.GlobSamootnoshenie 1.35224 0.53167 2.543 0.0116 *
## SP_Konfrontaciya 0.17431 0.15882 1.098 0.2736
## SP_Distancirovanie 0.15730 0.14454 1.088 0.2776
## SP_Samokontrol -0.27669 0.19764 -1.400 0.1629
## SP_PoiskCocPodderzhki 0.02402 0.13801 0.174 0.8620
## SP_PrinyatieOtvetstv -0.12488 0.15344 -0.814 0.4166
## SP_BegstvoIzbeganie -0.18825 0.17485 -1.077 0.2828
## SP_Planirovanie 0.37237 0.16120 2.310 0.0218 *
## SP_PolPereocenka 0.36355 0.18114 2.007 0.0459 *
## ZHiznestojkost 1.12282 0.14433 7.780 0.000000000000254 ***
## P_AbstractConcept -0.21570 1.18640 -0.182 0.8559
## P_Active.Experim 0.73235 1.22089 0.600 0.5492
## P_ConcrExperien 0.73209 1.12067 0.653 0.5142
## P_ReflectObserv 0.52445 1.17796 0.445 0.6566
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 33.42 on 227 degrees of freedom
## (337 observations deleted due to missingness)
## Multiple R-squared: 0.6158, Adjusted R-squared: 0.5836
## F-statistic: 19.15 on 19 and 227 DF, p-value: < 0.00000000000000022стало заметно хуже
7 Сокращенная с взаимодействием
formula_7 <- WellBeing ~
(PB_Attitude + PB_Satisfaction + PB_Security +
SO_S.GlobSamootnoshenie +
SP_Konfrontaciya + SP_Distancirovanie + SP_Samokontrol +
SP_PoiskCocPodderzhki + SP_PrinyatieOtvetstv + SP_BegstvoIzbeganie +
SP_Planirovanie + SP_PolPereocenka +
ZHiznestojkost +
P_AbstractConcept + P_Active.Experim + P_ConcrExperien + P_ReflectObserv) * (Gender + SchoolType)
model_7 <- lm(formula_7, data = Data)
summary(model_7)##
## Call:
## lm(formula = formula_7, data = Data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -164.869 -14.940 0.065 17.968 87.318
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) -338.9373906 297.4105484 -1.140
## PB_Attitude -0.5483212 1.6758044 -0.327
## PB_Satisfaction 7.9708853 7.5606837 1.054
## PB_Security 5.6457423 5.8444792 0.966
## SO_S.GlobSamootnoshenie 5.1543280 1.5159758 3.400
## SP_Konfrontaciya 0.0668659 0.3343862 0.200
## SP_Distancirovanie 0.2467924 0.3128250 0.789
## SP_Samokontrol -0.3341555 0.4356953 -0.767
## SP_PoiskCocPodderzhki -0.5050468 0.3255210 -1.552
## SP_PrinyatieOtvetstv -0.2183340 0.3361144 -0.650
## SP_BegstvoIzbeganie -0.2636060 0.4209447 -0.626
## SP_Planirovanie 0.3926499 0.3580593 1.097
## SP_PolPereocenka 0.5393051 0.4427643 1.218
## ZHiznestojkost 0.4399590 0.4161993 1.057
## P_AbstractConcept 3.4278343 2.8307302 1.211
## P_Active.Experim 4.3965337 2.8004369 1.570
## P_ConcrExperien 4.3780364 2.5053427 1.747
## P_ReflectObserv 4.4749053 2.6418429 1.694
## GenderЖ 354.2708284 313.0080684 1.132
## SchoolTypeSpec 253.0419069 300.7784992 0.841
## PB_Attitude:GenderЖ 1.6029059 1.4418490 1.112
## PB_Attitude:SchoolTypeSpec -0.8036018 1.6919421 -0.475
## PB_Satisfaction:GenderЖ -3.7501685 7.9634375 -0.471
## PB_Satisfaction:SchoolTypeSpec -2.5277655 8.1387313 -0.311
## PB_Security:GenderЖ 6.4521975 6.6692392 0.967
## PB_Security:SchoolTypeSpec -3.3734491 6.3512138 -0.531
## SO_S.GlobSamootnoshenie:GenderЖ -1.7687619 1.2921064 -1.369
## SO_S.GlobSamootnoshenie:SchoolTypeSpec -3.9991231 1.4977538 -2.670
## SP_Konfrontaciya:GenderЖ -0.1242156 0.3585404 -0.346
## SP_Konfrontaciya:SchoolTypeSpec 0.1385839 0.3638374 0.381
## SP_Distancirovanie:GenderЖ -0.2831404 0.3247107 -0.872
## SP_Distancirovanie:SchoolTypeSpec -0.0291799 0.3335496 -0.087
## SP_Samokontrol:GenderЖ -0.2060210 0.4511779 -0.457
## SP_Samokontrol:SchoolTypeSpec 0.3426027 0.4595558 0.746
## SP_PoiskCocPodderzhki:GenderЖ 0.3725399 0.3291816 1.132
## SP_PoiskCocPodderzhki:SchoolTypeSpec 0.6978734 0.3327934 2.097
## SP_PrinyatieOtvetstv:GenderЖ 0.1559036 0.3429229 0.455
## SP_PrinyatieOtvetstv:SchoolTypeSpec -0.0009085 0.3517365 -0.003
## SP_BegstvoIzbeganie:GenderЖ 0.5083944 0.3875495 1.312
## SP_BegstvoIzbeganie:SchoolTypeSpec -0.0986850 0.4302986 -0.229
## SP_Planirovanie:GenderЖ -0.5080889 0.3464496 -1.467
## SP_Planirovanie:SchoolTypeSpec 0.1897759 0.3713009 0.511
## SP_PolPereocenka:GenderЖ 0.1242035 0.3909625 0.318
## SP_PolPereocenka:SchoolTypeSpec -0.2480235 0.4372515 -0.567
## ZHiznestojkost:GenderЖ 0.5400647 0.3682919 1.466
## ZHiznestojkost:SchoolTypeSpec 0.5771471 0.4042239 1.428
## P_AbstractConcept:GenderЖ -2.4431799 2.8840347 -0.847
## P_AbstractConcept:SchoolTypeSpec -1.9785841 2.7700697 -0.714
## P_Active.Experim:GenderЖ -4.4625777 2.8469658 -1.567
## P_Active.Experim:SchoolTypeSpec -1.0588818 2.7654895 -0.383
## P_ConcrExperien:GenderЖ -2.4312094 2.6365486 -0.922
## P_ConcrExperien:SchoolTypeSpec -2.2793454 2.5530572 -0.893
## P_ReflectObserv:GenderЖ -2.9782785 2.7706493 -1.075
## P_ReflectObserv:SchoolTypeSpec -2.8620249 2.6554433 -1.078
## Pr(>|t|)
## (Intercept) 0.255854
## PB_Attitude 0.743872
## PB_Satisfaction 0.293084
## PB_Security 0.335255
## SO_S.GlobSamootnoshenie 0.000819 ***
## SP_Konfrontaciya 0.841718
## SP_Distancirovanie 0.431130
## SP_Samokontrol 0.444050
## SP_PoiskCocPodderzhki 0.122419
## SP_PrinyatieOtvetstv 0.516734
## SP_BegstvoIzbeganie 0.531907
## SP_Planirovanie 0.274180
## SP_PolPereocenka 0.224695
## ZHiznestojkost 0.291793
## P_AbstractConcept 0.227401
## P_Active.Experim 0.118066
## P_ConcrExperien 0.082145 .
## P_ReflectObserv 0.091906 .
## GenderЖ 0.259112
## SchoolTypeSpec 0.401227
## PB_Attitude:GenderЖ 0.267649
## PB_Attitude:SchoolTypeSpec 0.635354
## PB_Satisfaction:GenderЖ 0.638227
## PB_Satisfaction:SchoolTypeSpec 0.756452
## PB_Security:GenderЖ 0.334527
## PB_Security:SchoolTypeSpec 0.595925
## SO_S.GlobSamootnoshenie:GenderЖ 0.172622
## SO_S.GlobSamootnoshenie:SchoolTypeSpec 0.008230 **
## SP_Konfrontaciya:GenderЖ 0.729384
## SP_Konfrontaciya:SchoolTypeSpec 0.703700
## SP_Distancirovanie:GenderЖ 0.384304
## SP_Distancirovanie:SchoolTypeSpec 0.930378
## SP_Samokontrol:GenderЖ 0.648451
## SP_Samokontrol:SchoolTypeSpec 0.456871
## SP_PoiskCocPodderzhki:GenderЖ 0.259158
## SP_PoiskCocPodderzhki:SchoolTypeSpec 0.037295 *
## SP_PrinyatieOtvetstv:GenderЖ 0.649885
## SP_PrinyatieOtvetstv:SchoolTypeSpec 0.997942
## SP_BegstvoIzbeganie:GenderЖ 0.191140
## SP_BegstvoIzbeganie:SchoolTypeSpec 0.818847
## SP_Planirovanie:GenderЖ 0.144123
## SP_Planirovanie:SchoolTypeSpec 0.609858
## SP_PolPereocenka:GenderЖ 0.751066
## SP_PolPereocenka:SchoolTypeSpec 0.571215
## ZHiznestojkost:GenderЖ 0.144166
## ZHiznestojkost:SchoolTypeSpec 0.154968
## P_AbstractConcept:GenderЖ 0.397967
## P_AbstractConcept:SchoolTypeSpec 0.475922
## P_Active.Experim:GenderЖ 0.118639
## P_Active.Experim:SchoolTypeSpec 0.702222
## P_ConcrExperien:GenderЖ 0.357618
## P_ConcrExperien:SchoolTypeSpec 0.373081
## P_ReflectObserv:GenderЖ 0.283744
## P_ReflectObserv:SchoolTypeSpec 0.282470
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 33.31 on 193 degrees of freedom
## (337 observations deleted due to missingness)
## Multiple R-squared: 0.6754, Adjusted R-squared: 0.5862
## F-statistic: 7.576 on 53 and 193 DF, p-value: < 0.00000000000000022Тоже плохая модель - то есть надо смотреть полный вариант
8 модель из пакета glmnet
PB_Satisfaction + PB_Security + SO_III.OzhidOtnoshenie + SO_3.Samoprinyatie + SO_6.Samointeres + SP_Konfrontaciya + SP_Planirovanie + SP_PolPereocenka + ZhS_Vovlechennost + ZhS_PrinyatieRiska + ZHiznestojkost + P_AbstractConcept + P_ConcrExperien + PB_Attitude:SchoolType + SP_Konfrontaciya:SchoolType + SP_PoiskCocPodderzhki:SchoolType
model_8 <- lm(WellBeing ~ PB_Satisfaction +
PB_Security +
SO_III.OzhidOtnoshenie +
SO_3.Samoprinyatie +
SO_6.Samointeres +
SP_Konfrontaciya +
SP_Planirovanie +
SP_PolPereocenka +
ZhS_Vovlechennost +
ZhS_PrinyatieRiska +
ZHiznestojkost +
P_AbstractConcept +
P_ConcrExperien +
PB_Attitude:SchoolType +
SP_Konfrontaciya:SchoolType +
SP_PoiskCocPodderzhki:SchoolType,
data = Data)
summary(model_8)##
## Call:
## lm(formula = WellBeing ~ PB_Satisfaction + PB_Security + SO_III.OzhidOtnoshenie +
## SO_3.Samoprinyatie + SO_6.Samointeres + SP_Konfrontaciya +
## SP_Planirovanie + SP_PolPereocenka + ZhS_Vovlechennost +
## ZhS_PrinyatieRiska + ZHiznestojkost + P_AbstractConcept +
## P_ConcrExperien + PB_Attitude:SchoolType + SP_Konfrontaciya:SchoolType +
## SP_PoiskCocPodderzhki:SchoolType, data = Data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -180.828 -16.346 1.798 17.674 73.313
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 143.26823 28.09396 5.100 0.000000711
## PB_Satisfaction 7.15717 3.46291 2.067 0.039872
## PB_Security 4.29360 2.63447 1.630 0.104517
## SO_III.OzhidOtnoshenie 4.40345 1.31859 3.340 0.000979
## SO_3.Samoprinyatie 3.63984 1.37664 2.644 0.008757
## SO_6.Samointeres 0.38592 1.91666 0.201 0.840602
## SP_Konfrontaciya 0.11685 0.17754 0.658 0.511092
## SP_Planirovanie 0.27325 0.14112 1.936 0.054054
## SP_PolPereocenka 0.22238 0.15909 1.398 0.163500
## ZhS_Vovlechennost 0.54240 0.53260 1.018 0.309556
## ZhS_PrinyatieRiska 0.97269 0.75358 1.291 0.198083
## ZHiznestojkost 0.67411 0.28584 2.358 0.019196
## P_AbstractConcept -0.76239 0.50723 -1.503 0.134197
## P_ConcrExperien 0.38201 0.42581 0.897 0.370593
## PB_Attitude:SchoolTypeSOSh 1.30049 1.04561 1.244 0.214852
## PB_Attitude:SchoolTypeSpec -1.47593 0.69551 -2.122 0.034899
## SP_Konfrontaciya:SchoolTypeSpec 0.07627 0.22315 0.342 0.732840
## SchoolTypeSOSh:SP_PoiskCocPodderzhki -0.22340 0.18330 -1.219 0.224179
## SchoolTypeSpec:SP_PoiskCocPodderzhki 0.03701 0.15119 0.245 0.806838
##
## (Intercept) ***
## PB_Satisfaction *
## PB_Security
## SO_III.OzhidOtnoshenie ***
## SO_3.Samoprinyatie **
## SO_6.Samointeres
## SP_Konfrontaciya
## SP_Planirovanie .
## SP_PolPereocenka
## ZhS_Vovlechennost
## ZhS_PrinyatieRiska
## ZHiznestojkost *
## P_AbstractConcept
## P_ConcrExperien
## PB_Attitude:SchoolTypeSOSh
## PB_Attitude:SchoolTypeSpec *
## SP_Konfrontaciya:SchoolTypeSpec
## SchoolTypeSOSh:SP_PoiskCocPodderzhki
## SchoolTypeSpec:SP_PoiskCocPodderzhki
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 30.69 on 230 degrees of freedom
## (335 observations deleted due to missingness)
## Multiple R-squared: 0.6746, Adjusted R-squared: 0.6491
## F-statistic: 26.49 on 18 and 230 DF, p-value: < 0.000000000000000229 c двойной зависимостью Gender * SchoolType
formula_9 <- WellBeing ~
(PB_Attitude + PB_Satisfaction + PB_Security + SO_S.GlobSamootnoshenie + SO_I.Samouvazhenie + SO_II.Autosimpatiya + SO_III.OzhidOtnoshenie + SO_IV.Samointeres + SO_1.Samouverennost +
SO_2.OtnoshenieDrugih + SO_3.Samoprinyatie + SO_4.Samorukovodstvo +
SO_5.Samoobvinenie + SO_6.Samointeres + SO_7.Samoponimanie +
SP_Konfrontaciya + SP_Distancirovanie + SP_Samokontrol +
SP_PoiskCocPodderzhki + SP_PrinyatieOtvetstv + SP_BegstvoIzbeganie +
SP_Planirovanie + SP_PolPereocenka + ZhS_Vovlechennost + ZhS_Kontrol + ZhS_PrinyatieRiska + ZHiznestojkost + P_AbstractConcept +
P_Active.Experim + P_ConcrExperien + P_ReflectObserv) * Gender * SchoolType
model_9 <- lm(formula_9, data = Data)
summary(model_9)##
## Call:
## lm(formula = formula_9, data = Data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -133.492 -13.880 1.565 11.878 78.948
##
## Coefficients: (4 not defined because of singularities)
## Estimate Std. Error t value
## (Intercept) -143.80318 628.75523 -0.229
## PB_Attitude 3.28557 4.52820 0.726
## PB_Satisfaction 19.13871 20.10073 0.952
## PB_Security -0.58898 15.54333 -0.038
## SO_S.GlobSamootnoshenie -2.53683 6.61823 -0.383
## SO_I.Samouvazhenie -2.23982 8.09668 -0.277
## SO_II.Autosimpatiya 2.08792 11.64403 0.179
## SO_III.OzhidOtnoshenie 1.77436 20.34775 0.087
## SO_IV.Samointeres -5.32130 16.91989 -0.314
## SO_1.Samouverennost 6.69324 13.12402 0.510
## SO_2.OtnoshenieDrugih 13.62181 16.60327 0.820
## SO_3.Samoprinyatie -8.72799 19.57426 -0.446
## SO_4.Samorukovodstvo 9.12279 6.26539 1.456
## SO_5.Samoobvinenie -7.88065 9.77063 -0.807
## SO_6.Samointeres 1.49691 13.50551 0.111
## SO_7.Samoponimanie 3.98544 11.88625 0.335
## SP_Konfrontaciya 0.74133 0.58012 1.278
## SP_Distancirovanie -0.04076 0.61448 -0.066
## SP_Samokontrol 0.26531 1.33927 0.198
## SP_PoiskCocPodderzhki -0.58392 0.73239 -0.797
## SP_PrinyatieOtvetstv -0.17326 0.58842 -0.294
## SP_BegstvoIzbeganie -0.46908 0.82960 -0.565
## SP_Planirovanie 0.76459 0.64153 1.192
## SP_PolPereocenka -0.17084 1.14932 -0.149
## ZhS_Vovlechennost 2.01489 3.54746 0.568
## ZhS_Kontrol 1.88955 2.41240 0.783
## ZhS_PrinyatieRiska -2.40930 3.78258 -0.637
## ZHiznestojkost NA NA NA
## P_AbstractConcept 0.11885 5.20790 0.023
## P_Active.Experim 5.06772 7.22333 0.702
## P_ConcrExperien 1.24629 4.34759 0.287
## P_ReflectObserv 2.77195 5.18985 0.534
## GenderЖ -0.56104 732.11081 -0.001
## SchoolTypeSpec -64.68294 700.22519 -0.092
## PB_Attitude:GenderЖ -2.04016 5.00338 -0.408
## PB_Satisfaction:GenderЖ -23.91048 22.12234 -1.081
## PB_Security:GenderЖ 7.61279 17.61897 0.432
## SO_S.GlobSamootnoshenie:GenderЖ 1.97816 8.23094 0.240
## SO_I.Samouvazhenie:GenderЖ 1.03628 10.47433 0.099
## SO_II.Autosimpatiya:GenderЖ 4.68664 14.10008 0.332
## SO_III.OzhidOtnoshenie:GenderЖ 0.19461 21.50684 0.009
## SO_IV.Samointeres:GenderЖ 3.42102 18.41611 0.186
## SO_1.Samouverennost:GenderЖ -3.14711 15.30804 -0.206
## SO_2.OtnoshenieDrugih:GenderЖ -11.08612 18.00898 -0.616
## SO_3.Samoprinyatie:GenderЖ 11.55653 20.87899 0.554
## SO_4.Samorukovodstvo:GenderЖ -4.02666 9.35426 -0.430
## SO_5.Samoobvinenie:GenderЖ 11.69315 12.78826 0.914
## SO_6.Samointeres:GenderЖ -0.84991 15.94497 -0.053
## SO_7.Samoponimanie:GenderЖ -5.32184 13.28186 -0.401
## SP_Konfrontaciya:GenderЖ -0.86580 0.73744 -1.174
## SP_Distancirovanie:GenderЖ 0.01158 0.70601 0.016
## SP_Samokontrol:GenderЖ -0.56816 1.43793 -0.395
## SP_PoiskCocPodderzhki:GenderЖ 0.72031 0.82058 0.878
## SP_PrinyatieOtvetstv:GenderЖ -0.09019 0.75402 -0.120
## SP_BegstvoIzbeganie:GenderЖ 0.89416 1.01100 0.884
## SP_Planirovanie:GenderЖ -0.86557 0.82843 -1.045
## SP_PolPereocenka:GenderЖ 0.47639 1.28988 0.369
## ZhS_Vovlechennost:GenderЖ -1.13519 3.84592 -0.295
## ZhS_Kontrol:GenderЖ -0.50355 2.95590 -0.170
## ZhS_PrinyatieRiska:GenderЖ 2.51189 4.31643 0.582
## ZHiznestojkost:GenderЖ NA NA NA
## P_AbstractConcept:GenderЖ 1.51293 6.19317 0.244
## P_Active.Experim:GenderЖ -3.24437 7.96121 -0.408
## P_ConcrExperien:GenderЖ 1.88676 5.39214 0.350
## P_ReflectObserv:GenderЖ 0.21300 6.07583 0.035
## PB_Attitude:SchoolTypeSpec -4.66062 4.77301 -0.976
## PB_Satisfaction:SchoolTypeSpec -15.68246 21.62071 -0.725
## PB_Security:SchoolTypeSpec -3.14542 16.53190 -0.190
## SO_S.GlobSamootnoshenie:SchoolTypeSpec 2.50560 6.78762 0.369
## SO_I.Samouvazhenie:SchoolTypeSpec 0.46176 8.89199 0.052
## SO_II.Autosimpatiya:SchoolTypeSpec -5.58525 12.08566 -0.462
## SO_III.OzhidOtnoshenie:SchoolTypeSpec 1.31063 20.96182 0.063
## SO_IV.Samointeres:SchoolTypeSpec 8.04473 17.46559 0.461
## SO_1.Samouverennost:SchoolTypeSpec -8.13041 14.00242 -0.581
## SO_2.OtnoshenieDrugih:SchoolTypeSpec -10.64512 17.52083 -0.608
## SO_3.Samoprinyatie:SchoolTypeSpec 14.66964 19.91873 0.736
## SO_4.Samorukovodstvo:SchoolTypeSpec -5.18700 7.39232 -0.702
## SO_5.Samoobvinenie:SchoolTypeSpec 5.13238 10.77776 0.476
## SO_6.Samointeres:SchoolTypeSpec -0.11000 14.55823 -0.008
## SO_7.Samoponimanie:SchoolTypeSpec 1.06389 12.45195 0.085
## SP_Konfrontaciya:SchoolTypeSpec -0.25587 0.66702 -0.384
## SP_Distancirovanie:SchoolTypeSpec 0.37172 0.67818 0.548
## SP_Samokontrol:SchoolTypeSpec -0.11370 1.38589 -0.082
## SP_PoiskCocPodderzhki:SchoolTypeSpec 0.59672 0.78446 0.761
## SP_PrinyatieOtvetstv:SchoolTypeSpec 0.11841 0.66335 0.179
## SP_BegstvoIzbeganie:SchoolTypeSpec 0.06882 0.89356 0.077
## SP_Planirovanie:SchoolTypeSpec -0.08388 0.73082 -0.115
## SP_PolPereocenka:SchoolTypeSpec 0.15523 1.19737 0.130
## ZhS_Vovlechennost:SchoolTypeSpec -2.34002 3.61796 -0.647
## ZhS_Kontrol:SchoolTypeSpec -1.61204 2.47066 -0.652
## ZhS_PrinyatieRiska:SchoolTypeSpec 6.90802 3.96536 1.742
## ZHiznestojkost:SchoolTypeSpec NA NA NA
## P_AbstractConcept:SchoolTypeSpec 2.06192 5.83454 0.353
## P_Active.Experim:SchoolTypeSpec -0.43127 7.74328 -0.056
## P_ConcrExperien:SchoolTypeSpec 1.71737 5.01780 0.342
## P_ReflectObserv:SchoolTypeSpec -0.37301 5.87152 -0.064
## GenderЖ:SchoolTypeSpec 432.56864 900.31189 0.480
## PB_Attitude:GenderЖ:SchoolTypeSpec 3.70947 5.59001 0.664
## PB_Satisfaction:GenderЖ:SchoolTypeSpec 32.27354 25.37464 1.272
## PB_Security:GenderЖ:SchoolTypeSpec -4.05423 20.77570 -0.195
## SO_S.GlobSamootnoshenie:GenderЖ:SchoolTypeSpec -3.16007 8.62205 -0.367
## SO_I.Samouvazhenie:GenderЖ:SchoolTypeSpec 2.57439 12.12367 0.212
## SO_II.Autosimpatiya:GenderЖ:SchoolTypeSpec 4.62826 15.57478 0.297
## SO_III.OzhidOtnoshenie:GenderЖ:SchoolTypeSpec 5.64806 23.04811 0.245
## SO_IV.Samointeres:GenderЖ:SchoolTypeSpec -9.98246 20.70649 -0.482
## SO_1.Samouverennost:GenderЖ:SchoolTypeSpec 1.96898 17.38398 0.113
## SO_2.OtnoshenieDrugih:GenderЖ:SchoolTypeSpec 8.67740 20.38919 0.426
## SO_3.Samoprinyatie:GenderЖ:SchoolTypeSpec -20.14976 22.18303 -0.908
## SO_4.Samorukovodstvo:GenderЖ:SchoolTypeSpec -3.09148 12.52811 -0.247
## SO_5.Samoobvinenie:GenderЖ:SchoolTypeSpec -8.14925 15.87199 -0.513
## SO_6.Samointeres:GenderЖ:SchoolTypeSpec -2.97738 18.92504 -0.157
## SO_7.Samoponimanie:GenderЖ:SchoolTypeSpec -1.64427 14.40874 -0.114
## SP_Konfrontaciya:GenderЖ:SchoolTypeSpec 0.31273 0.98731 0.317
## SP_Distancirovanie:GenderЖ:SchoolTypeSpec -0.48797 0.90364 -0.540
## SP_Samokontrol:GenderЖ:SchoolTypeSpec -0.76203 1.65018 -0.462
## SP_PoiskCocPodderzhki:GenderЖ:SchoolTypeSpec -0.59210 1.02167 -0.580
## SP_PrinyatieOtvetstv:GenderЖ:SchoolTypeSpec 0.93341 0.97768 0.955
## SP_BegstvoIzbeganie:GenderЖ:SchoolTypeSpec -0.01695 1.17239 -0.014
## SP_Planirovanie:GenderЖ:SchoolTypeSpec 0.66211 1.00610 0.658
## SP_PolPereocenka:GenderЖ:SchoolTypeSpec -0.39390 1.43260 -0.275
## ZhS_Vovlechennost:GenderЖ:SchoolTypeSpec 4.01833 4.08638 0.983
## ZhS_Kontrol:GenderЖ:SchoolTypeSpec 1.02132 3.09995 0.329
## ZhS_PrinyatieRiska:GenderЖ:SchoolTypeSpec -5.57762 4.88836 -1.141
## ZHiznestojkost:GenderЖ:SchoolTypeSpec NA NA NA
## P_AbstractConcept:GenderЖ:SchoolTypeSpec -4.62799 7.69064 -0.602
## P_Active.Experim:GenderЖ:SchoolTypeSpec -2.54189 9.22808 -0.275
## P_ConcrExperien:GenderЖ:SchoolTypeSpec -4.66617 6.88079 -0.678
## P_ReflectObserv:GenderЖ:SchoolTypeSpec -4.54086 7.66092 -0.593
## Pr(>|t|)
## (Intercept) 0.819
## PB_Attitude 0.469
## PB_Satisfaction 0.343
## PB_Security 0.970
## SO_S.GlobSamootnoshenie 0.702
## SO_I.Samouvazhenie 0.783
## SO_II.Autosimpatiya 0.858
## SO_III.OzhidOtnoshenie 0.931
## SO_IV.Samointeres 0.754
## SO_1.Samouverennost 0.611
## SO_2.OtnoshenieDrugih 0.414
## SO_3.Samoprinyatie 0.656
## SO_4.Samorukovodstvo 0.148
## SO_5.Samoobvinenie 0.421
## SO_6.Samointeres 0.912
## SO_7.Samoponimanie 0.738
## SP_Konfrontaciya 0.204
## SP_Distancirovanie 0.947
## SP_Samokontrol 0.843
## SP_PoiskCocPodderzhki 0.427
## SP_PrinyatieOtvetstv 0.769
## SP_BegstvoIzbeganie 0.573
## SP_Planirovanie 0.236
## SP_PolPereocenka 0.882
## ZhS_Vovlechennost 0.571
## ZhS_Kontrol 0.435
## ZhS_PrinyatieRiska 0.525
## ZHiznestojkost NA
## P_AbstractConcept 0.982
## P_Active.Experim 0.484
## P_ConcrExperien 0.775
## P_ReflectObserv 0.594
## GenderЖ 0.999
## SchoolTypeSpec 0.927
## PB_Attitude:GenderЖ 0.684
## PB_Satisfaction:GenderЖ 0.282
## PB_Security:GenderЖ 0.666
## SO_S.GlobSamootnoshenie:GenderЖ 0.810
## SO_I.Samouvazhenie:GenderЖ 0.921
## SO_II.Autosimpatiya:GenderЖ 0.740
## SO_III.OzhidOtnoshenie:GenderЖ 0.993
## SO_IV.Samointeres:GenderЖ 0.853
## SO_1.Samouverennost:GenderЖ 0.837
## SO_2.OtnoshenieDrugih:GenderЖ 0.539
## SO_3.Samoprinyatie:GenderЖ 0.581
## SO_4.Samorukovodstvo:GenderЖ 0.668
## SO_5.Samoobvinenie:GenderЖ 0.362
## SO_6.Samointeres:GenderЖ 0.958
## SO_7.Samoponimanie:GenderЖ 0.689
## SP_Konfrontaciya:GenderЖ 0.243
## SP_Distancirovanie:GenderЖ 0.987
## SP_Samokontrol:GenderЖ 0.693
## SP_PoiskCocPodderzhki:GenderЖ 0.382
## SP_PrinyatieOtvetstv:GenderЖ 0.905
## SP_BegstvoIzbeganie:GenderЖ 0.378
## SP_Planirovanie:GenderЖ 0.298
## SP_PolPereocenka:GenderЖ 0.713
## ZhS_Vovlechennost:GenderЖ 0.768
## ZhS_Kontrol:GenderЖ 0.865
## ZhS_PrinyatieRiska:GenderЖ 0.562
## ZHiznestojkost:GenderЖ NA
## P_AbstractConcept:GenderЖ 0.807
## P_Active.Experim:GenderЖ 0.684
## P_ConcrExperien:GenderЖ 0.727
## P_ReflectObserv:GenderЖ 0.972
## PB_Attitude:SchoolTypeSpec 0.331
## PB_Satisfaction:SchoolTypeSpec 0.470
## PB_Security:SchoolTypeSpec 0.849
## SO_S.GlobSamootnoshenie:SchoolTypeSpec 0.713
## SO_I.Samouvazhenie:SchoolTypeSpec 0.959
## SO_II.Autosimpatiya:SchoolTypeSpec 0.645
## SO_III.OzhidOtnoshenie:SchoolTypeSpec 0.950
## SO_IV.Samointeres:SchoolTypeSpec 0.646
## SO_1.Samouverennost:SchoolTypeSpec 0.563
## SO_2.OtnoshenieDrugih:SchoolTypeSpec 0.545
## SO_3.Samoprinyatie:SchoolTypeSpec 0.463
## SO_4.Samorukovodstvo:SchoolTypeSpec 0.484
## SO_5.Samoobvinenie:SchoolTypeSpec 0.635
## SO_6.Samointeres:SchoolTypeSpec 0.994
## SO_7.Samoponimanie:SchoolTypeSpec 0.932
## SP_Konfrontaciya:SchoolTypeSpec 0.702
## SP_Distancirovanie:SchoolTypeSpec 0.585
## SP_Samokontrol:SchoolTypeSpec 0.935
## SP_PoiskCocPodderzhki:SchoolTypeSpec 0.448
## SP_PrinyatieOtvetstv:SchoolTypeSpec 0.859
## SP_BegstvoIzbeganie:SchoolTypeSpec 0.939
## SP_Planirovanie:SchoolTypeSpec 0.909
## SP_PolPereocenka:SchoolTypeSpec 0.897
## ZhS_Vovlechennost:SchoolTypeSpec 0.519
## ZhS_Kontrol:SchoolTypeSpec 0.515
## ZhS_PrinyatieRiska:SchoolTypeSpec 0.084 .
## ZHiznestojkost:SchoolTypeSpec NA
## P_AbstractConcept:SchoolTypeSpec 0.724
## P_Active.Experim:SchoolTypeSpec 0.956
## P_ConcrExperien:SchoolTypeSpec 0.733
## P_ReflectObserv:SchoolTypeSpec 0.949
## GenderЖ:SchoolTypeSpec 0.632
## PB_Attitude:GenderЖ:SchoolTypeSpec 0.508
## PB_Satisfaction:GenderЖ:SchoolTypeSpec 0.206
## PB_Security:GenderЖ:SchoolTypeSpec 0.846
## SO_S.GlobSamootnoshenie:GenderЖ:SchoolTypeSpec 0.715
## SO_I.Samouvazhenie:GenderЖ:SchoolTypeSpec 0.832
## SO_II.Autosimpatiya:GenderЖ:SchoolTypeSpec 0.767
## SO_III.OzhidOtnoshenie:GenderЖ:SchoolTypeSpec 0.807
## SO_IV.Samointeres:GenderЖ:SchoolTypeSpec 0.631
## SO_1.Samouverennost:GenderЖ:SchoolTypeSpec 0.910
## SO_2.OtnoshenieDrugih:GenderЖ:SchoolTypeSpec 0.671
## SO_3.Samoprinyatie:GenderЖ:SchoolTypeSpec 0.365
## SO_4.Samorukovodstvo:GenderЖ:SchoolTypeSpec 0.806
## SO_5.Samoobvinenie:GenderЖ:SchoolTypeSpec 0.609
## SO_6.Samointeres:GenderЖ:SchoolTypeSpec 0.875
## SO_7.Samoponimanie:GenderЖ:SchoolTypeSpec 0.909
## SP_Konfrontaciya:GenderЖ:SchoolTypeSpec 0.752
## SP_Distancirovanie:GenderЖ:SchoolTypeSpec 0.590
## SP_Samokontrol:GenderЖ:SchoolTypeSpec 0.645
## SP_PoiskCocPodderzhki:GenderЖ:SchoolTypeSpec 0.563
## SP_PrinyatieOtvetstv:GenderЖ:SchoolTypeSpec 0.342
## SP_BegstvoIzbeganie:GenderЖ:SchoolTypeSpec 0.988
## SP_Planirovanie:GenderЖ:SchoolTypeSpec 0.512
## SP_PolPereocenka:GenderЖ:SchoolTypeSpec 0.784
## ZhS_Vovlechennost:GenderЖ:SchoolTypeSpec 0.327
## ZhS_Kontrol:GenderЖ:SchoolTypeSpec 0.742
## ZhS_PrinyatieRiska:GenderЖ:SchoolTypeSpec 0.256
## ZHiznestojkost:GenderЖ:SchoolTypeSpec NA
## P_AbstractConcept:GenderЖ:SchoolTypeSpec 0.548
## P_Active.Experim:GenderЖ:SchoolTypeSpec 0.783
## P_ConcrExperien:GenderЖ:SchoolTypeSpec 0.499
## P_ReflectObserv:GenderЖ:SchoolTypeSpec 0.554
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 33.29 on 123 degrees of freedom
## (337 observations deleted due to missingness)
## Multiple R-squared: 0.7933, Adjusted R-squared: 0.5866
## F-statistic: 3.838 on 123 and 123 DF, p-value: 0.0000000000003274Сокращение количества переменных в модели
Наиболее перспективной была полная модель с взаимодействием optimal_model <- step(model, direction = “both”) summary(optimal_model)
# optimal_model <- step(model_3, trace = 0)
#
# summary(optimal_model)Error in step(model_3, trace = 0) : number of rows in use has changed: remove missing values? Подбора модели выдает ошибку, так как есть пропущенные данные.
алгоритм - почистить от пропущенных значений. Найти оптимальную модель и вернуться к полным данным.
Делаю таблицу с удаленем строчек с пропущенными данными
cleanData <- na.omit(Data)
print("Все строчки:")## [1] "Все строчки:"table(Data$SchoolType, Data$Gender)##
## М Ж
## SOSh 132 166
## Spec 175 111print("После удаления пропущенных анкет:")## [1] "После удаления пропущенных анкет:"table(cleanData$SchoolType, cleanData$Gender)##
## М Ж
## SOSh 41 54
## Spec 93 57model_clean <- lm(formula_3, data = cleanData)
optimal_model <- step(model_clean, direction = "forward", trace = 1, steps = 10000000)## Start: AIC=1759.38
## WellBeing ~ (PB_Attitude + PB_Satisfaction + PB_Security + SO_S.GlobSamootnoshenie +
## SO_I.Samouvazhenie + SO_II.Autosimpatiya + SO_III.OzhidOtnoshenie +
## SO_IV.Samointeres + SO_1.Samouverennost + SO_2.OtnoshenieDrugih +
## SO_3.Samoprinyatie + SO_4.Samorukovodstvo + SO_5.Samoobvinenie +
## SO_6.Samointeres + SO_7.Samoponimanie + SP_Konfrontaciya +
## SP_Distancirovanie + SP_Samokontrol + SP_PoiskCocPodderzhki +
## SP_PrinyatieOtvetstv + SP_BegstvoIzbeganie + SP_Planirovanie +
## SP_PolPereocenka + ZhS_Vovlechennost + ZhS_Kontrol + ZhS_PrinyatieRiska +
## ZHiznestojkost + P_AbstractConcept + P_Active.Experim + P_ConcrExperien +
## P_ReflectObserv) * (Gender + SchoolType)summary(optimal_model)##
## Call:
## lm(formula = WellBeing ~ (PB_Attitude + PB_Satisfaction + PB_Security +
## SO_S.GlobSamootnoshenie + SO_I.Samouvazhenie + SO_II.Autosimpatiya +
## SO_III.OzhidOtnoshenie + SO_IV.Samointeres + SO_1.Samouverennost +
## SO_2.OtnoshenieDrugih + SO_3.Samoprinyatie + SO_4.Samorukovodstvo +
## SO_5.Samoobvinenie + SO_6.Samointeres + SO_7.Samoponimanie +
## SP_Konfrontaciya + SP_Distancirovanie + SP_Samokontrol +
## SP_PoiskCocPodderzhki + SP_PrinyatieOtvetstv + SP_BegstvoIzbeganie +
## SP_Planirovanie + SP_PolPereocenka + ZhS_Vovlechennost +
## ZhS_Kontrol + ZhS_PrinyatieRiska + ZHiznestojkost + P_AbstractConcept +
## P_Active.Experim + P_ConcrExperien + P_ReflectObserv) * (Gender +
## SchoolType), data = cleanData)
##
## Residuals:
## Min 1Q Median 3Q Max
## -135.916 -15.008 0.607 13.968 72.941
##
## Coefficients: (3 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -240.67469 326.54343 -0.737 0.4622
## PB_Attitude -0.05548 1.89506 -0.029 0.9767
## PB_Satisfaction 4.04721 8.13411 0.498 0.6195
## PB_Security 0.30129 7.23903 0.042 0.9669
## SO_S.GlobSamootnoshenie 0.12147 3.45623 0.035 0.9720
## SO_I.Samouvazhenie -3.31486 4.65025 -0.713 0.4770
## SO_II.Autosimpatiya -7.27139 4.93401 -1.474 0.1426
## SO_III.OzhidOtnoshenie -0.36339 7.51313 -0.048 0.9615
## SO_IV.Samointeres -2.77830 6.41655 -0.433 0.6656
## SO_1.Samouverennost 13.60299 5.90534 2.304 0.0226 *
## SO_2.OtnoshenieDrugih 8.13889 7.15867 1.137 0.2574
## SO_3.Samoprinyatie 10.50521 6.22763 1.687 0.0937 .
## SO_4.Samorukovodstvo 8.57725 4.19765 2.043 0.0427 *
## SO_5.Samoobvinenie -8.00677 5.61033 -1.427 0.1556
## SO_6.Samointeres 5.90481 7.54234 0.783 0.4349
## SO_7.Samoponimanie 3.52577 4.78937 0.736 0.4628
## SP_Konfrontaciya 0.41133 0.37054 1.110 0.2687
## SP_Distancirovanie 0.39181 0.34462 1.137 0.2574
## SP_Samokontrol -0.32494 0.47874 -0.679 0.4983
## SP_PoiskCocPodderzhki -0.45409 0.34725 -1.308 0.1930
## SP_PrinyatieOtvetstv -0.13905 0.35250 -0.394 0.6938
## SP_BegstvoIzbeganie -0.43165 0.45568 -0.947 0.3450
## SP_Planirovanie 0.32177 0.37658 0.854 0.3942
## SP_PolPereocenka 0.47149 0.48580 0.971 0.3333
## ZhS_Vovlechennost -1.25778 1.06250 -1.184 0.2383
## ZhS_Kontrol 1.68576 1.24465 1.354 0.1776
## ZhS_PrinyatieRiska 0.47864 1.80059 0.266 0.7907
## ZHiznestojkost NA NA NA NA
## P_AbstractConcept 2.86868 3.07302 0.934 0.3520
## P_Active.Experim 4.09341 3.10955 1.316 0.1900
## P_ConcrExperien 3.96337 2.72807 1.453 0.1483
## P_ReflectObserv 3.84329 2.85596 1.346 0.1804
## GenderЖ 155.19216 361.30866 0.430 0.6681
## SchoolTypeSpec 162.38564 339.80233 0.478 0.6334
## PB_Attitude:GenderЖ 1.63171 1.57699 1.035 0.3025
## PB_Attitude:SchoolTypeSpec -1.59420 1.85591 -0.859 0.3917
## PB_Satisfaction:GenderЖ -3.03886 8.35662 -0.364 0.7166
## PB_Satisfaction:SchoolTypeSpec 3.95213 8.40224 0.470 0.6388
## PB_Security:GenderЖ 7.27652 7.50931 0.969 0.3341
## PB_Security:SchoolTypeSpec -4.86007 7.34860 -0.661 0.5094
## SO_S.GlobSamootnoshenie:GenderЖ -1.57976 2.08330 -0.758 0.4494
## SO_S.GlobSamootnoshenie:SchoolTypeSpec -0.70587 3.41667 -0.207 0.8366
## SO_I.Samouvazhenie:GenderЖ 3.36010 4.22325 0.796 0.4275
## SO_I.Samouvazhenie:SchoolTypeSpec 2.29618 4.79464 0.479 0.6327
## SO_II.Autosimpatiya:GenderЖ 9.27077 4.59523 2.017 0.0454 *
## SO_II.Autosimpatiya:SchoolTypeSpec 3.01810 5.10287 0.591 0.5551
## SO_III.OzhidOtnoshenie:GenderЖ 3.05315 6.32995 0.482 0.6303
## SO_III.OzhidOtnoshenie:SchoolTypeSpec 3.73599 7.04825 0.530 0.5968
## SO_IV.Samointeres:GenderЖ 1.73240 5.69677 0.304 0.7615
## SO_IV.Samointeres:SchoolTypeSpec 5.02887 6.42428 0.783 0.4350
## SO_1.Samouverennost:GenderЖ -7.54035 5.58185 -1.351 0.1787
## SO_1.Samouverennost:SchoolTypeSpec -13.08263 6.13913 -2.131 0.0347 *
## SO_2.OtnoshenieDrugih:GenderЖ -6.55888 6.48432 -1.011 0.3134
## SO_2.OtnoshenieDrugih:SchoolTypeSpec -4.57866 6.86358 -0.667 0.5057
## SO_3.Samoprinyatie:GenderЖ -5.87666 5.41059 -1.086 0.2791
## SO_3.Samoprinyatie:SchoolTypeSpec -4.60652 6.15679 -0.748 0.4555
## SO_4.Samorukovodstvo:GenderЖ -4.81423 5.03596 -0.956 0.3406
## SO_4.Samorukovodstvo:SchoolTypeSpec -5.94753 4.95244 -1.201 0.2316
## SO_5.Samoobvinenie:GenderЖ 5.97956 6.06706 0.986 0.3259
## SO_5.Samoobvinenie:SchoolTypeSpec 4.48328 5.98629 0.749 0.4551
## SO_6.Samointeres:GenderЖ -3.73800 7.04678 -0.530 0.5966
## SO_6.Samointeres:SchoolTypeSpec -4.71795 7.60238 -0.621 0.5358
## SO_7.Samoponimanie:GenderЖ -6.05414 4.29827 -1.409 0.1610
## SO_7.Samoponimanie:SchoolTypeSpec 1.30093 4.78426 0.272 0.7861
## SP_Konfrontaciya:GenderЖ -0.34438 0.38776 -0.888 0.3759
## SP_Konfrontaciya:SchoolTypeSpec 0.10867 0.40093 0.271 0.7867
## SP_Distancirovanie:GenderЖ -0.42365 0.33711 -1.257 0.2108
## SP_Distancirovanie:SchoolTypeSpec -0.10335 0.36148 -0.286 0.7753
## SP_Samokontrol:GenderЖ -0.24808 0.48504 -0.511 0.6098
## SP_Samokontrol:SchoolTypeSpec 0.27976 0.49934 0.560 0.5761
## SP_PoiskCocPodderzhki:GenderЖ 0.33647 0.36135 0.931 0.3533
## SP_PoiskCocPodderzhki:SchoolTypeSpec 0.43628 0.35608 1.225 0.2224
## SP_PrinyatieOtvetstv:GenderЖ 0.32307 0.37676 0.857 0.3925
## SP_PrinyatieOtvetstv:SchoolTypeSpec 0.13564 0.37121 0.365 0.7153
## SP_BegstvoIzbeganie:GenderЖ 0.59748 0.41432 1.442 0.1513
## SP_BegstvoIzbeganie:SchoolTypeSpec -0.04721 0.45781 -0.103 0.9180
## SP_Planirovanie:GenderЖ -0.56457 0.38021 -1.485 0.1396
## SP_Planirovanie:SchoolTypeSpec 0.38753 0.39868 0.972 0.3326
## SP_PolPereocenka:GenderЖ 0.02723 0.43187 0.063 0.9498
## SP_PolPereocenka:SchoolTypeSpec -0.45529 0.47038 -0.968 0.3346
## ZhS_Vovlechennost:GenderЖ 2.46617 0.98903 2.494 0.0137 *
## ZhS_Vovlechennost:SchoolTypeSpec 1.20956 1.07709 1.123 0.2632
## ZhS_Kontrol:GenderЖ 0.37222 0.76944 0.484 0.6293
## ZhS_Kontrol:SchoolTypeSpec -1.44648 1.22467 -1.181 0.2394
## ZhS_PrinyatieRiska:GenderЖ -1.86146 1.59335 -1.168 0.2445
## ZhS_PrinyatieRiska:SchoolTypeSpec 3.61269 1.79551 2.012 0.0460 *
## ZHiznestojkost:GenderЖ NA NA NA NA
## ZHiznestojkost:SchoolTypeSpec NA NA NA NA
## P_AbstractConcept:GenderЖ -1.04420 3.20107 -0.326 0.7447
## P_AbstractConcept:SchoolTypeSpec -1.63801 3.10203 -0.528 0.5982
## P_Active.Experim:GenderЖ -3.04978 3.23929 -0.941 0.3479
## P_Active.Experim:SchoolTypeSpec -0.63031 3.13188 -0.201 0.8408
## P_ConcrExperien:GenderЖ -0.96017 2.93796 -0.327 0.7443
## P_ConcrExperien:SchoolTypeSpec -1.85210 2.81327 -0.658 0.5113
## P_ReflectObserv:GenderЖ -1.43387 3.12667 -0.459 0.6472
## P_ReflectObserv:SchoolTypeSpec -2.65774 2.95139 -0.901 0.3693
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 31.49 on 152 degrees of freedom
## Multiple R-squared: 0.7699, Adjusted R-squared: 0.6306
## F-statistic: 5.528 on 92 and 152 DF, p-value: < 0.00000000000000022Много факторов оставляет - невозможно интерпретировать
Сокращение 2
Задаю начальную модель
start_model <- lm(WellBeing ~ 1, data = cleanData) # Пустая стартовая модельstep(start_model, scope = list(lower = start_model, upper = model_3), direction = "forward", trace = 0) %>%
summary()##
## Call:
## lm(formula = WellBeing ~ ZHiznestojkost + SO_III.OzhidOtnoshenie +
## SP_Planirovanie + SO_3.Samoprinyatie + P_AbstractConcept +
## PB_Satisfaction, data = cleanData)
##
## Residuals:
## Min 1Q Median 3Q Max
## -188.572 -16.432 -1.022 19.927 82.967
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 189.7596 19.0691 9.951 < 0.0000000000000002 ***
## ZHiznestojkost 1.0930 0.1120 9.762 < 0.0000000000000002 ***
## SO_III.OzhidOtnoshenie 4.6431 1.0659 4.356 0.0000197 ***
## SP_Planirovanie 0.4249 0.1090 3.898 0.000126 ***
## SO_3.Samoprinyatie 4.4948 1.3632 3.297 0.001126 **
## P_AbstractConcept -1.1886 0.4579 -2.596 0.010018 *
## PB_Satisfaction 6.2724 3.1649 1.982 0.048647 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 31.34 on 238 degrees of freedom
## Multiple R-squared: 0.6432, Adjusted R-squared: 0.6342
## F-statistic: 71.5 on 6 and 238 DF, p-value: < 0.00000000000000022Тройное взаимодействие:
step(start_model, scope = list(lower = start_model, upper = model_9), direction = "both", trace = 0) %>%
summary()##
## Call:
## lm(formula = WellBeing ~ ZHiznestojkost + SO_III.OzhidOtnoshenie +
## SP_Planirovanie + SO_3.Samoprinyatie + P_AbstractConcept +
## PB_Satisfaction, data = cleanData)
##
## Residuals:
## Min 1Q Median 3Q Max
## -188.572 -16.432 -1.022 19.927 82.967
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 189.7596 19.0691 9.951 < 0.0000000000000002 ***
## ZHiznestojkost 1.0930 0.1120 9.762 < 0.0000000000000002 ***
## SO_III.OzhidOtnoshenie 4.6431 1.0659 4.356 0.0000197 ***
## SP_Planirovanie 0.4249 0.1090 3.898 0.000126 ***
## SO_3.Samoprinyatie 4.4948 1.3632 3.297 0.001126 **
## P_AbstractConcept -1.1886 0.4579 -2.596 0.010018 *
## PB_Satisfaction 6.2724 3.1649 1.982 0.048647 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 31.34 on 238 degrees of freedom
## Multiple R-squared: 0.6432, Adjusted R-squared: 0.6342
## F-statistic: 71.5 on 6 and 238 DF, p-value: < 0.00000000000000022Модель сильно лучше не стала. факторы с взаимодействием весьма слабые и не значимые.
Пробую улучшить модель. Взял то, что было на предыдущем шаге и добавляю новые из двойного взаимодействия:
model_0 <- lm(formula = WellBeing ~ ZHiznestojkost + SO_III.OzhidOtnoshenie +
SP_Planirovanie + SO_3.Samoprinyatie + P_AbstractConcept +
PB_Satisfaction + SP_Konfrontaciya:SchoolType, data = cleanData)
step(model_0, scope = list(lower = start_model, upper = model_9), direction = "both", trace = 0) %>%
summary()##
## Call:
## lm(formula = WellBeing ~ ZHiznestojkost + SO_III.OzhidOtnoshenie +
## SP_Planirovanie + SO_3.Samoprinyatie + P_AbstractConcept +
## PB_Satisfaction + SchoolType + ZhS_Kontrol + PB_Security +
## SchoolType:SP_Konfrontaciya, data = cleanData)
##
## Residuals:
## Min 1Q Median 3Q Max
## -180.695 -15.082 0.213 17.102 83.042
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 183.16327 20.81356 8.800
## ZHiznestojkost 1.42958 0.24071 5.939
## SO_III.OzhidOtnoshenie 4.51547 1.07289 4.209
## SP_Planirovanie 0.37781 0.11632 3.248
## SO_3.Samoprinyatie 3.94578 1.36230 2.896
## P_AbstractConcept -1.15715 0.45548 -2.540
## PB_Satisfaction 4.93935 3.25134 1.519
## SchoolTypeSpec -22.10160 13.72811 -1.610
## ZhS_Kontrol -0.66731 0.46748 -1.427
## PB_Security 3.41359 2.58034 1.323
## SchoolTypeSOSh:SP_Konfrontaciya -0.06483 0.17319 -0.374
## SchoolTypeSpec:SP_Konfrontaciya 0.44192 0.16663 2.652
## Pr(>|t|)
## (Intercept) 0.000000000000000313 ***
## ZHiznestojkost 0.000000010349018464 ***
## SO_III.OzhidOtnoshenie 0.000036685800073134 ***
## SP_Planirovanie 0.00133 **
## SO_3.Samoprinyatie 0.00413 **
## P_AbstractConcept 0.01172 *
## PB_Satisfaction 0.13007
## SchoolTypeSpec 0.10876
## ZhS_Kontrol 0.15479
## PB_Security 0.18716
## SchoolTypeSOSh:SP_Konfrontaciya 0.70848
## SchoolTypeSpec:SP_Konfrontaciya 0.00855 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 30.89 on 233 degrees of freedom
## Multiple R-squared: 0.6606, Adjusted R-squared: 0.6446
## F-statistic: 41.22 on 11 and 233 DF, p-value: < 0.00000000000000022Итоговые варианты модели
На вход подаю данные с полной модели
lm(formula = WellBeing ~ ZHiznestojkost + SO_III.OzhidOtnoshenie +
SP_Planirovanie + SO_3.Samoprinyatie + P_AbstractConcept +
PB_Satisfaction, data = Data) |>
summary()##
## Call:
## lm(formula = WellBeing ~ ZHiznestojkost + SO_III.OzhidOtnoshenie +
## SP_Planirovanie + SO_3.Samoprinyatie + P_AbstractConcept +
## PB_Satisfaction, data = Data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -189.221 -16.072 -1.113 19.912 82.892
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 187.6369 18.3469 10.227 < 0.0000000000000002 ***
## ZHiznestojkost 1.0914 0.1104 9.889 < 0.0000000000000002 ***
## SO_III.OzhidOtnoshenie 4.5983 1.0539 4.363 0.0000190 ***
## SP_Planirovanie 0.4398 0.1055 4.168 0.0000429 ***
## SO_3.Samoprinyatie 4.5701 1.3452 3.397 0.000796 ***
## P_AbstractConcept -1.1927 0.4470 -2.668 0.008140 **
## PB_Satisfaction 6.6691 3.1079 2.146 0.032880 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 31.16 on 242 degrees of freedom
## (335 observations deleted due to missingness)
## Multiple R-squared: 0.6471, Adjusted R-squared: 0.6384
## F-statistic: 73.97 on 6 and 242 DF, p-value: < 0.00000000000000022Вариант с взаимодействием факторов:
lm(formula = WellBeing ~ ZHiznestojkost + SO_III.OzhidOtnoshenie +
SP_Planirovanie + SO_3.Samoprinyatie + P_AbstractConcept +
PB_Satisfaction + SP_Konfrontaciya:SchoolType, data = Data) |>
summary()##
## Call:
## lm(formula = WellBeing ~ ZHiznestojkost + SO_III.OzhidOtnoshenie +
## SP_Planirovanie + SO_3.Samoprinyatie + P_AbstractConcept +
## PB_Satisfaction + SP_Konfrontaciya:SchoolType, data = Data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -183.00 -15.39 -0.30 17.46 86.49
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 180.1230 19.3297 9.318
## ZHiznestojkost 1.1195 0.1116 10.028
## SO_III.OzhidOtnoshenie 4.7692 1.0516 4.535
## SP_Planirovanie 0.3997 0.1135 3.522
## SO_3.Samoprinyatie 4.3211 1.3405 3.224
## P_AbstractConcept -1.2068 0.4474 -2.698
## PB_Satisfaction 5.9099 3.1050 1.903
## SP_Konfrontaciya:SchoolTypeSOSh 0.1292 0.1196 1.080
## SP_Konfrontaciya:SchoolTypeSpec 0.2659 0.1316 2.021
## Pr(>|t|)
## (Intercept) < 0.0000000000000002 ***
## ZHiznestojkost < 0.0000000000000002 ***
## SO_III.OzhidOtnoshenie 0.0000091 ***
## SP_Planirovanie 0.000513 ***
## SO_3.Samoprinyatie 0.001442 **
## P_AbstractConcept 0.007480 **
## PB_Satisfaction 0.058192 .
## SP_Konfrontaciya:SchoolTypeSOSh 0.281120
## SP_Konfrontaciya:SchoolTypeSpec 0.044379 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 30.94 on 240 degrees of freedom
## (335 observations deleted due to missingness)
## Multiple R-squared: 0.6548, Adjusted R-squared: 0.6433
## F-statistic: 56.92 on 8 and 240 DF, p-value: < 0.00000000000000022Это вроде и добавляет что-то, но сила очень маленькая
…
Интерпретация коэффициентов модели
Каждый коэффициент в модели указывает на ожидаемое изменение уровня психологического благополучия (WellBeing) при увеличении соответствующего предиктора на одну единицу, при условии, что все остальные переменные остаются неизменными.
(Intercept) 187.6369: Этот коэффициент интерпретируется как предсказанное значение психологического благополучия для подростков, если все независимые переменные равны нулю. Хотя в данном контексте это значение имеет ограниченную практическую интерпретацию, оно служит базовой точкой отсчета для всех остальных коэффициентов.
ZHiznestojkost (1.0914, p < 2e-16): Коэффициент 1.0914 указывает на то, что каждое увеличение показателя жизнестойкости (ZHiznestojkost) на одну единицу связано с увеличением психологического благополучия на 1.09 единицы. Жизнестойкость, измеряемая по тесту жизнестойкости, отражает способность подростков справляться с жизненными трудностями и сохранять позитивный настрой. Этот результат подчеркивает важность жизнестойкости как ключевого ресурса для поддержания психологического благополучия.
SO_III.OzhidOtnoshenie (4.5983, p = 1.90e-05): Коэффициент 4.5983 показывает, что увеличение ожидаемого отношения от других (SO_III.OzhidOtnoshenie) на одну единицу приводит к увеличению благополучия на 4.60 единицы. Это предполагает, что подростки, которые ожидают от окружающих положительного отношения, ощущают себя более благополучными. Данный фактор измеряется с использованием опросника самоотношения (SO), который оценивает, насколько подросток уверен в том, что другие относятся к нему с уважением и симпатией.
SP_Planirovanie (0.4398, p = 4.29e-05): Коэффициент 0.4398 указывает на то, что каждая дополнительная единица в шкале планирования (SP_Planirovanie) повышает благополучие на 0.44 единицы. Этот фактор относится к стилям совладающего поведения, где планирование решения проблем помогает подросткам лучше управлять стрессом и улучшать свое психологическое состояние.
SO_3.Samoprinyatie (4.5701, p = 0.000796): Коэффициент 4.5701 показывает, что повышение уровня самопринятия на одну единицу связано с увеличением благополучия на 4.57 единицы. Самопринятие (SO_3.Samoprinyatie) оценивает, насколько подросток принимает себя таким, какой он есть, включая свои сильные и слабые стороны. Высокий уровень самопринятия способствует более высокому уровню благополучия, что подтверждается полученными данными.
P_AbstractConcept (-1.1927, p = 0.008140): Отрицательный коэффициент -1.1927 для абстрактной концептуализации (P_AbstractConcept) означает, что увеличение этого показателя на одну единицу связано с уменьшением благополучия на 1.19 единицы. Абстрактная концептуализация измеряет склонность подростка к абстрактному мышлению и теоретизации. Результаты показывают, что склонность к абстрактному мышлению может оказывать негативное влияние на субъективное ощущение благополучия у подростков, возможно, из-за повышенной рефлексии и анализа, которые могут усиливать тревожность и стресс.
PB_Satisfaction (6.6691, p = 0.032880): Коэффициент 6.6691 указывает на то, что увеличение удовлетворенности образовательной средой (PB_Satisfaction) на одну единицу связано с увеличением благополучия на 6.67 единицы. Этот фактор включает в себя удовлетворенность различными аспектами школьной жизни, включая взаимоотношения с учителями и одноклассниками, и является важным ресурсом для благополучия подростков.
Качество модели
Residual standard error: 31.16: Остаточная стандартная ошибка показывает среднее отклонение наблюдаемых значений от предсказанных моделью. Значение 31.16 указывает на средний уровень точности модели.
Multiple R-squared: 0.6471, Adjusted R-squared: 0.6384: Коэффициент детерминации (R-squared) показывает, что около 64.71% вариации в уровне психологического благополучия объясняется включенными в модель факторами. Adjusted R-squared, который учитывает количество предикторов в модели, показывает аналогичное значение (63.84%), что подтверждает надежность модели.
F-statistic: 73.97 on 6 and 242 DF, p-value: < 2.2e-16: Высокое значение F-статистики и низкое значение p-value (< 2.2e-16) указывают на то, что модель в целом значима и объясняет значительную долю вариации в данных.
Полученные результаты подчеркивают важность внутренних ресурсов, таких как жизнестойкость, самопринятие, а также стратегий совладания, таких как планирование, для поддержания психологического благополучия подростков. В то же время такие когнитивные факторы, как абстрактная концептуализация, могут иметь отрицательное влияние на благополучие. Данные выводы могут быть полезны для разработки программ поддержки подростков в образовательных учреждениях, направленных на развитие положительных психологических ресурсов и управление когнитивными стилями.
Эта модель предлагает практически значимые предикторы благополучия, которые могут быть легко интерпретированы и использованы в прикладных психологических исследованиях и практике.