library(DT)
library(psych)
library(readxl)
library(tidyverse)
library(corrplot)
podaci <- read_excel('potrebe_studenata_2017.xlsx', sheet=1) %>% select(!osoba)
head(podaci)
## # A tibble: 6 × 51
## TIMELINE RISK DYNAMICS AVERAGE AVERAGE_COMPARISON SCHEDULE CALENDAR COURSES
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 4 5 4 5 4 5 5 4
## 2 4 4 4 4 4 5 5 5
## 3 4 4 3 4 4 5 5 5
## 4 2 2 2 4 4 4 4 3
## 5 4 4 5 3 4 5 5 5
## 6 4 4 4 3 4 5 5 5
## # … with 43 more variables: NOTIFICATIONS_COURSE <dbl>,
## # NOTIFICATIONS_DEADLINES <dbl>, MESSAGES_TEACHER <dbl>,
## # MESSAGES_ADMIN <dbl>, REQUESTS <dbl>, MESSAGES_SU <dbl>,
## # EXTRACURRICULAR <dbl>, COMPARISON_EXAMS <dbl>, COMPARISON_ECTS <dbl>,
## # COMPARISON_GRADES <dbl>, COMPARISON_OBLIGATIONS <dbl>,
## # STATUS_STUDENTS <dbl>, STATUS_COMPARISON <dbl>, PREDICTION_COURSE <dbl>,
## # PREDICTION_YEAR <dbl>, PREDICTION_OBLIGATIONS <dbl>, …
Deskriptivna statistika čitavog skupa podataka
Tablica
datatable(describe(podaci), filter = 'top',
extensions = c('FixedColumns','Select', 'Buttons'),
options = list(
dom = 'Blfrtip',
select = list(style = 'os', items = 'row'),
buttons = c('selectAll', 'selectNone', 'selectRows', 'selectColumns', 'selectCells'),
pageLength = 15,
scrollX = TRUE,
scrollY= TRUE,
fixedColumns = TRUE
)
)
error.dots
error.dots(podaci, tail=30, head=30)
error.bars
error.bars(podaci)
Korelacije
Matrica korelacija
datatable(round(cor(podaci, use = "pairwise.complete.obs"), 2), filter = 'top',
extensions = c('FixedColumns','Select', 'Buttons'),
options = list(
dom = 'Blfrtip',
select = list(style = 'os', items = 'row'),
buttons = c('selectAll', 'selectNone', 'selectRows', 'selectColumns', 'selectCells'),
pageLength = 15,
scrollX = TRUE,
fixedColumns = TRUE
)
)
p-vrijednosti
datatable(round(corr.test(podaci, use = "pairwise.complete.obs")$p, 2), filter = 'top',
extensions = c('FixedColumns','Select', 'Buttons'),
options = list(
dom = 'Blfrtip',
select = list(style = 'os', items = 'row'),
buttons = c('selectAll', 'selectNone', 'selectRows', 'selectColumns', 'selectCells'),
pageLength = 15,
scrollX = TRUE,
fixedColumns = TRUE
)
)
Intervali pouzdanosti
datatable(round(corr.test(podaci, use = "pairwise.complete.obs")$ci, 2), filter = 'top',
extensions = c('FixedColumns','Select', 'Buttons'),
options = list(
dom = 'Blfrtip',
select = list(style = 'os', items = 'row'),
buttons = c('selectAll', 'selectNone', 'selectRows', 'selectColumns', 'selectCells'),
pageLength = 15,
scrollX = TRUE,
fixedColumns = TRUE
)
)
Unutarnja pouzdanost
Cronbach alpha
psych::alpha(podaci)
##
## Reliability analysis
## Call: psych::alpha(x = podaci)
##
## raw_alpha std.alpha G6(smc) average_r S/N ase mean sd median_r
## 0.95 0.95 0.98 0.29 21 0.0043 3.6 0.63 0.27
##
## lower alpha upper 95% confidence boundaries
## 0.95 0.95 0.96
##
## Reliability if an item is dropped:
## raw_alpha std.alpha G6(smc) average_r S/N alpha se
## TIMELINE 0.95 0.95 0.98 0.29 21 0.0044
## RISK 0.95 0.95 0.98 0.29 21 0.0044
## DYNAMICS 0.95 0.95 0.98 0.29 21 0.0044
## AVERAGE 0.95 0.95 0.98 0.29 21 0.0044
## AVERAGE_COMPARISON 0.95 0.95 0.98 0.29 21 0.0044
## SCHEDULE 0.95 0.95 0.98 0.29 21 0.0044
## CALENDAR 0.95 0.95 0.98 0.29 21 0.0044
## COURSES 0.95 0.95 0.98 0.29 21 0.0044
## NOTIFICATIONS_COURSE 0.95 0.95 0.98 0.29 21 0.0044
## NOTIFICATIONS_DEADLINES 0.95 0.95 0.98 0.29 21 0.0044
## MESSAGES_TEACHER 0.95 0.95 0.98 0.29 21 0.0044
## MESSAGES_ADMIN 0.95 0.95 0.98 0.29 21 0.0044
## REQUESTS 0.95 0.96 0.98 0.30 21 0.0043
## MESSAGES_SU 0.95 0.95 0.98 0.29 21 0.0044
## EXTRACURRICULAR 0.95 0.95 0.98 0.30 21 0.0043
## COMPARISON_EXAMS 0.95 0.95 0.98 0.29 21 0.0045
## COMPARISON_ECTS 0.95 0.95 0.98 0.29 20 0.0045
## COMPARISON_GRADES 0.95 0.95 0.98 0.29 21 0.0045
## COMPARISON_OBLIGATIONS 0.95 0.95 0.98 0.29 20 0.0045
## STATUS_STUDENTS 0.95 0.95 0.98 0.29 21 0.0044
## STATUS_COMPARISON 0.95 0.95 0.98 0.29 21 0.0044
## PREDICTION_COURSE 0.95 0.95 0.98 0.29 20 0.0045
## PREDICTION_YEAR 0.95 0.95 0.98 0.29 20 0.0045
## PREDICTION_OBLIGATIONS 0.95 0.95 0.98 0.29 20 0.0045
## PREDICTION_ECTS 0.95 0.95 0.98 0.29 20 0.0045
## PREDICTION_PROGRAM 0.95 0.95 0.98 0.29 20 0.0045
## PREDICTION_GROUP 0.95 0.95 0.98 0.29 20 0.0045
## ECTSAVG_STUDY 0.95 0.95 0.98 0.29 21 0.0045
## ECTSAVG_COURSE 0.95 0.95 0.98 0.29 20 0.0045
## AVGGRADE_COURSE 0.95 0.95 0.98 0.29 21 0.0045
## PASSRATE_COURSE 0.95 0.95 0.98 0.29 21 0.0044
## PPLAN_COURSE 0.95 0.95 0.98 0.29 20 0.0045
## PPLAN_STUDY 0.95 0.95 0.98 0.29 21 0.0044
## PPLAN_MONITORING 0.95 0.95 0.98 0.29 20 0.0045
## ECTS_MONITORING 0.95 0.95 0.98 0.29 20 0.0045
## PPLAN_EXTRACURRICULAR 0.95 0.95 0.98 0.29 21 0.0044
## TEACHERS 0.95 0.95 0.98 0.29 21 0.0044
## TEACHER_EVALUATION 0.95 0.95 0.98 0.29 21 0.0044
## TEACHER_PROFILE 0.95 0.95 0.98 0.29 21 0.0044
## TEACHERS_CONTEVAL 0.95 0.95 0.98 0.30 21 0.0043
## TEACHERS_FEEDBACK 0.95 0.95 0.98 0.30 21 0.0044
## BADGES 0.95 0.95 0.98 0.29 20 0.0045
## BADGES_COMPARISON 0.95 0.95 0.98 0.29 21 0.0045
## BADGES_COLLECTING 0.95 0.95 0.98 0.29 21 0.0045
## AWARDS 0.95 0.95 0.98 0.29 21 0.0045
## COMPETITIONS 0.95 0.95 0.98 0.29 21 0.0045
## STATUS_CURRENT 0.95 0.95 0.98 0.29 20 0.0045
## ASSESSMENT_CONT 0.95 0.95 0.98 0.29 21 0.0044
## ASSESSMENT_EXAMS 0.95 0.95 0.98 0.29 21 0.0044
## ABSENCE 0.95 0.95 0.98 0.29 21 0.0044
## COMPARISON_OTHERS 0.95 0.95 0.98 0.29 20 0.0045
## var.r med.r
## TIMELINE 0.021 0.28
## RISK 0.020 0.27
## DYNAMICS 0.021 0.27
## AVERAGE 0.021 0.28
## AVERAGE_COMPARISON 0.020 0.28
## SCHEDULE 0.020 0.28
## CALENDAR 0.020 0.28
## COURSES 0.021 0.27
## NOTIFICATIONS_COURSE 0.021 0.28
## NOTIFICATIONS_DEADLINES 0.021 0.27
## MESSAGES_TEACHER 0.021 0.28
## MESSAGES_ADMIN 0.020 0.28
## REQUESTS 0.020 0.28
## MESSAGES_SU 0.021 0.28
## EXTRACURRICULAR 0.020 0.28
## COMPARISON_EXAMS 0.020 0.27
## COMPARISON_ECTS 0.020 0.27
## COMPARISON_GRADES 0.020 0.28
## COMPARISON_OBLIGATIONS 0.020 0.27
## STATUS_STUDENTS 0.020 0.28
## STATUS_COMPARISON 0.020 0.28
## PREDICTION_COURSE 0.020 0.27
## PREDICTION_YEAR 0.020 0.27
## PREDICTION_OBLIGATIONS 0.020 0.27
## PREDICTION_ECTS 0.020 0.27
## PREDICTION_PROGRAM 0.020 0.27
## PREDICTION_GROUP 0.020 0.27
## ECTSAVG_STUDY 0.020 0.27
## ECTSAVG_COURSE 0.020 0.27
## AVGGRADE_COURSE 0.020 0.27
## PASSRATE_COURSE 0.020 0.27
## PPLAN_COURSE 0.020 0.27
## PPLAN_STUDY 0.020 0.27
## PPLAN_MONITORING 0.020 0.27
## ECTS_MONITORING 0.020 0.27
## PPLAN_EXTRACURRICULAR 0.021 0.28
## TEACHERS 0.021 0.28
## TEACHER_EVALUATION 0.021 0.28
## TEACHER_PROFILE 0.021 0.28
## TEACHERS_CONTEVAL 0.020 0.28
## TEACHERS_FEEDBACK 0.020 0.28
## BADGES 0.021 0.27
## BADGES_COMPARISON 0.020 0.27
## BADGES_COLLECTING 0.020 0.27
## AWARDS 0.020 0.27
## COMPETITIONS 0.020 0.27
## STATUS_CURRENT 0.020 0.27
## ASSESSMENT_CONT 0.021 0.27
## ASSESSMENT_EXAMS 0.020 0.27
## ABSENCE 0.020 0.28
## COMPARISON_OTHERS 0.020 0.27
##
## Item statistics
## n raw.r std.r r.cor r.drop mean sd
## TIMELINE 222 0.49 0.50 0.49 0.47 3.9 1.06
## RISK 222 0.55 0.57 0.56 0.53 4.0 1.07
## DYNAMICS 222 0.56 0.56 0.55 0.53 3.4 1.16
## AVERAGE 222 0.49 0.49 0.47 0.46 3.4 1.25
## AVERAGE_COMPARISON 221 0.47 0.45 0.44 0.44 3.0 1.28
## SCHEDULE 222 0.43 0.46 0.44 0.41 4.3 0.92
## CALENDAR 222 0.40 0.44 0.43 0.38 4.5 0.75
## COURSES 222 0.53 0.55 0.54 0.51 4.0 1.04
## NOTIFICATIONS_COURSE 222 0.48 0.51 0.50 0.46 4.4 0.86
## NOTIFICATIONS_DEADLINES 222 0.52 0.54 0.54 0.50 4.2 0.91
## MESSAGES_TEACHER 222 0.46 0.49 0.48 0.44 4.1 0.86
## MESSAGES_ADMIN 222 0.43 0.44 0.43 0.40 3.5 1.07
## REQUESTS 222 0.28 0.28 0.26 0.24 3.7 1.22
## MESSAGES_SU 222 0.46 0.46 0.44 0.43 3.1 1.10
## EXTRACURRICULAR 222 0.36 0.36 0.35 0.33 3.3 1.14
## COMPARISON_EXAMS 222 0.62 0.60 0.60 0.60 3.1 1.24
## COMPARISON_ECTS 222 0.64 0.61 0.61 0.61 2.9 1.31
## COMPARISON_GRADES 222 0.61 0.59 0.58 0.58 3.0 1.28
## COMPARISON_OBLIGATIONS 222 0.65 0.63 0.63 0.63 3.0 1.25
## STATUS_STUDENTS 222 0.55 0.52 0.52 0.52 3.0 1.30
## STATUS_COMPARISON 222 0.55 0.52 0.52 0.52 2.8 1.28
## PREDICTION_COURSE 222 0.69 0.69 0.69 0.67 3.9 1.17
## PREDICTION_YEAR 222 0.65 0.65 0.65 0.63 3.9 1.18
## PREDICTION_OBLIGATIONS 222 0.64 0.65 0.65 0.62 4.1 1.22
## PREDICTION_ECTS 222 0.70 0.70 0.70 0.68 3.9 1.25
## PREDICTION_PROGRAM 222 0.63 0.63 0.63 0.60 4.0 1.17
## PREDICTION_GROUP 222 0.65 0.65 0.65 0.63 3.7 1.20
## ECTSAVG_STUDY 222 0.61 0.59 0.59 0.59 3.1 1.21
## ECTSAVG_COURSE 222 0.62 0.61 0.61 0.60 3.2 1.14
## AVGGRADE_COURSE 222 0.62 0.60 0.60 0.59 3.5 1.14
## PASSRATE_COURSE 222 0.55 0.54 0.54 0.52 3.8 1.13
## PPLAN_COURSE 222 0.61 0.63 0.63 0.59 4.0 1.12
## PPLAN_STUDY 222 0.59 0.61 0.61 0.57 4.1 1.08
## PPLAN_MONITORING 222 0.65 0.66 0.66 0.63 4.1 1.04
## ECTS_MONITORING 222 0.68 0.69 0.68 0.66 3.7 1.17
## PPLAN_EXTRACURRICULAR 222 0.52 0.52 0.51 0.50 3.4 1.21
## TEACHERS 222 0.46 0.47 0.46 0.44 3.7 1.07
## TEACHER_EVALUATION 222 0.45 0.44 0.43 0.42 3.5 1.22
## TEACHER_PROFILE 222 0.47 0.47 0.46 0.44 3.3 1.17
## TEACHERS_CONTEVAL 222 0.39 0.39 0.38 0.36 3.5 1.23
## TEACHERS_FEEDBACK 222 0.40 0.41 0.40 0.37 3.8 1.16
## BADGES 222 0.65 0.64 0.64 0.63 3.6 1.16
## BADGES_COMPARISON 222 0.61 0.59 0.59 0.58 2.7 1.28
## BADGES_COLLECTING 222 0.63 0.61 0.61 0.60 3.0 1.35
## AWARDS 222 0.60 0.58 0.58 0.57 2.8 1.28
## COMPETITIONS 222 0.59 0.58 0.58 0.57 2.8 1.24
## STATUS_CURRENT 222 0.66 0.67 0.67 0.64 4.0 1.14
## ASSESSMENT_CONT 222 0.54 0.56 0.56 0.52 4.5 0.83
## ASSESSMENT_EXAMS 222 0.58 0.61 0.61 0.56 4.5 0.89
## ABSENCE 222 0.52 0.55 0.54 0.50 4.6 0.87
## COMPARISON_OTHERS 222 0.65 0.63 0.63 0.63 3.0 1.28
##
## Non missing response frequency for each item
## 1 2 3 4 5 miss
## TIMELINE 0.05 0.07 0.13 0.47 0.28 0
## RISK 0.03 0.09 0.13 0.38 0.37 0
## DYNAMICS 0.08 0.16 0.23 0.37 0.16 0
## AVERAGE 0.09 0.21 0.15 0.36 0.19 0
## AVERAGE_COMPARISON 0.14 0.24 0.21 0.26 0.14 0
## SCHEDULE 0.01 0.05 0.09 0.30 0.55 0
## CALENDAR 0.01 0.02 0.05 0.28 0.64 0
## COURSES 0.04 0.06 0.14 0.41 0.35 0
## NOTIFICATIONS_COURSE 0.02 0.02 0.06 0.36 0.54 0
## NOTIFICATIONS_DEADLINES 0.03 0.02 0.09 0.39 0.46 0
## MESSAGES_TEACHER 0.01 0.02 0.17 0.43 0.36 0
## MESSAGES_ADMIN 0.04 0.15 0.29 0.34 0.17 0
## REQUESTS 0.06 0.14 0.19 0.29 0.32 0
## MESSAGES_SU 0.08 0.24 0.29 0.30 0.09 0
## EXTRACURRICULAR 0.07 0.17 0.29 0.32 0.15 0
## COMPARISON_EXAMS 0.12 0.21 0.22 0.32 0.14 0
## COMPARISON_ECTS 0.17 0.25 0.18 0.28 0.13 0
## COMPARISON_GRADES 0.14 0.24 0.23 0.24 0.15 0
## COMPARISON_OBLIGATIONS 0.14 0.24 0.20 0.30 0.11 0
## STATUS_STUDENTS 0.15 0.24 0.23 0.23 0.15 0
## STATUS_COMPARISON 0.18 0.29 0.21 0.20 0.12 0
## PREDICTION_COURSE 0.07 0.08 0.13 0.39 0.34 0
## PREDICTION_YEAR 0.07 0.07 0.11 0.37 0.38 0
## PREDICTION_OBLIGATIONS 0.07 0.06 0.10 0.27 0.50 0
## PREDICTION_ECTS 0.07 0.10 0.10 0.32 0.41 0
## PREDICTION_PROGRAM 0.07 0.05 0.11 0.35 0.42 0
## PREDICTION_GROUP 0.09 0.06 0.18 0.41 0.25 0
## ECTSAVG_STUDY 0.11 0.22 0.28 0.26 0.14 0
## ECTSAVG_COURSE 0.08 0.23 0.27 0.30 0.12 0
## AVGGRADE_COURSE 0.06 0.18 0.19 0.40 0.17 0
## PASSRATE_COURSE 0.05 0.10 0.15 0.41 0.28 0
## PPLAN_COURSE 0.05 0.07 0.15 0.33 0.41 0
## PPLAN_STUDY 0.05 0.05 0.12 0.34 0.44 0
## PPLAN_MONITORING 0.05 0.04 0.10 0.40 0.41 0
## ECTS_MONITORING 0.06 0.09 0.24 0.30 0.32 0
## PPLAN_EXTRACURRICULAR 0.07 0.17 0.27 0.26 0.23 0
## TEACHERS 0.04 0.09 0.23 0.37 0.27 0
## TEACHER_EVALUATION 0.09 0.13 0.18 0.38 0.21 0
## TEACHER_PROFILE 0.08 0.15 0.28 0.31 0.18 0
## TEACHERS_CONTEVAL 0.07 0.16 0.23 0.27 0.27 0
## TEACHERS_FEEDBACK 0.05 0.10 0.20 0.33 0.32 0
## BADGES 0.09 0.07 0.25 0.37 0.22 0
## BADGES_COMPARISON 0.23 0.23 0.24 0.21 0.09 0
## BADGES_COLLECTING 0.20 0.18 0.18 0.31 0.13 0
## AWARDS 0.20 0.21 0.23 0.27 0.09 0
## COMPETITIONS 0.18 0.24 0.23 0.27 0.09 0
## STATUS_CURRENT 0.06 0.06 0.12 0.37 0.39 0
## ASSESSMENT_CONT 0.02 0.02 0.05 0.24 0.67 0
## ASSESSMENT_EXAMS 0.02 0.03 0.05 0.27 0.63 0
## ABSENCE 0.02 0.02 0.06 0.15 0.75 0
## COMPARISON_OTHERS 0.14 0.23 0.23 0.25 0.15 0
split-half
splitHalf(podaci)
## Split half reliabilities
## Call: splitHalf(r = podaci)
##
## Maximum split half reliability (lambda 4) = 0.98
## Guttman lambda 6 = 0.98
## Average split half reliability = 0.95
## Guttman lambda 3 (alpha) = 0.95
## Guttman lambda 2 = 0.96
## Minimum split half reliability (beta) = 0.87
## Average interitem r = 0.29 with median = 0.27
EFA
Broj faktora
EFA_cor <- cor(podaci, use = "pairwise.complete.obs")
sv <- eigen(EFA_cor)
sv$values
## [1] 16.09400557 4.97207948 2.77869813 2.47660346 2.03110100 1.74846745
## [7] 1.46940006 1.37466959 1.25611988 1.18518085 0.93145648 0.89008174
## [13] 0.85621898 0.80994005 0.75993831 0.67218027 0.64091336 0.60908682
## [19] 0.57976565 0.54939444 0.52752811 0.51638855 0.48503295 0.47323313
## [25] 0.44588608 0.42921671 0.40343571 0.39668863 0.38380158 0.36530247
## [31] 0.32445211 0.31070361 0.30049985 0.26860301 0.26566775 0.23806316
## [37] 0.21816289 0.20622692 0.20272341 0.18847836 0.18564761 0.18302832
## [43] 0.15447409 0.13808285 0.13105041 0.12381425 0.12003444 0.09958839
## [49] 0.08292214 0.07714805 0.06881289
scree(EFA_cor, factors = FALSE)
EFA model s 10 faktora
EFA_model <- fa(podaci, nfactors = 10)
## Loading required namespace: GPArotation
EFA_model
## Factor Analysis using method = minres
## Call: fa(r = podaci, nfactors = 10)
## Standardized loadings (pattern matrix) based upon correlation matrix
## MR2 MR1 MR4 MR3 MR5 MR10 MR6 MR9 MR7
## TIMELINE 0.03 0.16 0.14 0.22 -0.09 0.05 0.30 -0.23 -0.10
## RISK 0.00 0.31 0.13 0.17 -0.13 0.19 0.32 -0.11 -0.15
## DYNAMICS 0.09 0.09 0.31 0.18 -0.10 -0.06 0.24 -0.21 -0.11
## AVERAGE 0.28 0.07 -0.09 0.02 -0.03 0.07 0.13 -0.08 -0.01
## AVERAGE_COMPARISON 0.56 -0.09 -0.05 -0.08 0.08 0.09 -0.06 0.06 0.06
## SCHEDULE 0.04 0.03 0.03 -0.02 0.05 0.65 0.07 -0.06 0.01
## CALENDAR 0.06 0.00 0.01 0.00 0.02 0.75 0.13 -0.02 -0.06
## COURSES -0.03 0.02 0.07 0.23 -0.07 0.37 0.08 0.19 0.00
## NOTIFICATIONS_COURSE 0.01 -0.07 0.12 0.24 0.01 0.44 -0.01 0.10 0.16
## NOTIFICATIONS_DEADLINES 0.02 0.05 -0.02 0.32 -0.03 0.39 -0.09 0.04 0.24
## MESSAGES_TEACHER 0.02 0.03 0.02 0.13 0.04 0.36 -0.05 0.02 0.30
## MESSAGES_ADMIN 0.02 0.07 0.06 0.12 -0.01 0.25 0.03 0.00 0.53
## REQUESTS 0.17 0.28 -0.12 -0.16 0.14 0.04 0.11 -0.19 0.40
## MESSAGES_SU 0.07 -0.01 0.11 0.11 0.21 -0.06 -0.02 0.07 0.49
## EXTRACURRICULAR 0.12 -0.21 0.14 0.18 0.08 -0.08 0.22 -0.17 0.38
## COMPARISON_EXAMS 0.81 0.12 0.03 -0.01 0.01 0.07 -0.10 0.02 0.05
## COMPARISON_ECTS 0.81 0.12 0.03 0.11 -0.03 0.07 -0.16 -0.04 0.02
## COMPARISON_GRADES 0.78 -0.02 0.00 0.02 0.03 0.00 0.05 0.16 0.06
## COMPARISON_OBLIGATIONS 0.70 0.18 0.04 0.11 0.02 -0.01 0.03 -0.05 0.04
## STATUS_STUDENTS 0.59 -0.09 0.19 -0.13 0.06 -0.08 0.28 0.16 -0.01
## STATUS_COMPARISON 0.66 -0.07 0.08 -0.07 0.13 -0.09 0.20 0.12 -0.10
## PREDICTION_COURSE 0.07 0.79 0.09 0.01 0.00 0.02 0.03 0.01 0.03
## PREDICTION_YEAR 0.06 0.92 -0.02 -0.02 0.03 -0.04 0.06 -0.06 -0.07
## PREDICTION_OBLIGATIONS 0.05 0.84 -0.03 -0.03 0.02 0.11 0.05 0.00 0.00
## PREDICTION_ECTS 0.01 0.76 0.09 0.16 -0.01 0.02 -0.07 0.07 0.03
## PREDICTION_PROGRAM -0.05 0.72 0.04 0.00 -0.02 -0.03 0.06 0.10 0.15
## PREDICTION_GROUP 0.00 0.60 0.06 0.07 0.06 -0.03 -0.09 0.06 0.00
## ECTSAVG_STUDY 0.45 0.05 0.07 0.24 -0.09 -0.09 -0.01 0.45 -0.09
## ECTSAVG_COURSE 0.36 -0.04 0.16 0.01 -0.01 0.10 0.11 0.50 -0.13
## AVGGRADE_COURSE 0.35 0.04 0.04 0.08 0.11 -0.02 0.13 0.37 -0.13
## PASSRATE_COURSE 0.16 0.12 0.03 0.00 0.07 0.01 0.12 0.64 0.05
## PPLAN_COURSE 0.10 -0.02 -0.02 0.85 0.03 0.05 0.03 -0.04 0.03
## PPLAN_STUDY -0.01 0.00 -0.03 0.89 0.08 0.08 0.01 0.00 0.00
## PPLAN_MONITORING -0.10 0.14 0.10 0.74 0.08 -0.03 -0.01 0.09 0.04
## ECTS_MONITORING 0.01 0.30 0.00 0.43 0.00 -0.03 0.09 0.15 0.03
## PPLAN_EXTRACURRICULAR 0.18 0.02 0.23 0.35 0.00 -0.12 0.14 -0.17 0.38
## TEACHERS -0.18 0.14 0.06 0.05 0.12 0.10 -0.04 0.12 0.11
## TEACHER_EVALUATION 0.07 0.11 -0.05 -0.07 0.54 -0.04 0.01 0.15 -0.04
## TEACHER_PROFILE 0.00 0.02 0.11 -0.10 0.53 0.09 -0.08 0.04 0.01
## TEACHERS_CONTEVAL 0.05 0.01 -0.03 0.08 0.82 -0.01 -0.01 -0.06 -0.03
## TEACHERS_FEEDBACK -0.06 -0.03 0.08 0.13 0.75 0.02 0.07 -0.01 0.07
## BADGES -0.01 0.20 0.50 0.08 0.15 0.11 -0.11 0.11 -0.08
## BADGES_COMPARISON 0.08 -0.07 0.85 0.04 0.07 0.06 0.02 -0.06 -0.04
## BADGES_COLLECTING 0.02 0.08 0.89 0.02 0.02 0.05 -0.04 -0.04 -0.10
## AWARDS -0.01 0.02 0.84 -0.02 -0.04 -0.07 0.03 0.08 0.10
## COMPETITIONS -0.03 0.05 0.70 -0.10 0.02 -0.04 0.01 0.12 0.29
## STATUS_CURRENT -0.01 0.39 0.13 0.22 0.02 0.14 0.27 0.02 -0.11
## ASSESSMENT_CONT -0.07 0.14 -0.02 -0.01 0.13 0.23 0.61 0.05 0.04
## ASSESSMENT_EXAMS -0.05 0.16 -0.06 0.13 -0.01 0.19 0.48 0.19 0.16
## ABSENCE -0.13 0.12 -0.03 0.08 0.06 0.25 0.53 0.18 0.06
## COMPARISON_OTHERS 0.43 0.15 0.31 -0.04 0.11 0.04 -0.02 0.05 -0.12
## MR8 h2 u2 com
## TIMELINE 0.24 0.44 0.56 5.6
## RISK 0.08 0.55 0.45 5.1
## DYNAMICS 0.37 0.54 0.46 4.8
## AVERAGE 0.52 0.46 0.54 1.9
## AVERAGE_COMPARISON 0.31 0.50 0.50 1.9
## SCHEDULE 0.06 0.51 0.49 1.1
## CALENDAR -0.06 0.63 0.37 1.1
## COURSES 0.18 0.44 0.56 3.1
## NOTIFICATIONS_COURSE 0.00 0.44 0.56 2.2
## NOTIFICATIONS_DEADLINES 0.17 0.53 0.47 3.3
## MESSAGES_TEACHER 0.16 0.41 0.59 2.8
## MESSAGES_ADMIN -0.06 0.50 0.50 1.6
## REQUESTS -0.07 0.31 0.69 4.2
## MESSAGES_SU 0.09 0.46 0.54 1.8
## EXTRACURRICULAR 0.14 0.39 0.61 4.7
## COMPARISON_EXAMS 0.00 0.75 0.25 1.1
## COMPARISON_ECTS 0.04 0.76 0.24 1.2
## COMPARISON_GRADES -0.02 0.75 0.25 1.1
## COMPARISON_OBLIGATIONS -0.06 0.64 0.36 1.2
## STATUS_STUDENTS -0.01 0.68 0.32 2.1
## STATUS_COMPARISON 0.07 0.69 0.31 1.5
## PREDICTION_COURSE -0.02 0.75 0.25 1.0
## PREDICTION_YEAR 0.03 0.86 0.14 1.0
## PREDICTION_OBLIGATIONS -0.06 0.77 0.23 1.1
## PREDICTION_ECTS -0.03 0.78 0.22 1.2
## PREDICTION_PROGRAM 0.07 0.64 0.36 1.2
## PREDICTION_GROUP 0.28 0.63 0.37 1.6
## ECTSAVG_STUDY 0.05 0.71 0.29 2.9
## ECTSAVG_COURSE 0.09 0.74 0.26 2.6
## AVGGRADE_COURSE 0.14 0.60 0.40 3.2
## PASSRATE_COURSE -0.05 0.65 0.35 1.3
## PPLAN_COURSE 0.01 0.81 0.19 1.0
## PPLAN_STUDY -0.03 0.86 0.14 1.0
## PPLAN_MONITORING 0.05 0.76 0.24 1.2
## ECTS_MONITORING 0.18 0.59 0.41 2.6
## PPLAN_EXTRACURRICULAR -0.06 0.55 0.45 4.2
## TEACHERS 0.48 0.44 0.56 2.1
## TEACHER_EVALUATION 0.24 0.48 0.52 1.8
## TEACHER_PROFILE 0.34 0.53 0.47 2.1
## TEACHERS_CONTEVAL -0.03 0.68 0.32 1.0
## TEACHERS_FEEDBACK -0.14 0.66 0.34 1.2
## BADGES 0.06 0.56 0.44 2.1
## BADGES_COMPARISON -0.04 0.77 0.23 1.1
## BADGES_COLLECTING -0.06 0.83 0.17 1.1
## AWARDS 0.04 0.77 0.23 1.1
## COMPETITIONS 0.10 0.69 0.31 1.5
## STATUS_CURRENT -0.02 0.61 0.39 3.3
## ASSESSMENT_CONT 0.03 0.67 0.33 1.6
## ASSESSMENT_EXAMS 0.06 0.62 0.38 2.6
## ABSENCE 0.00 0.63 0.37 2.1
## COMPARISON_OTHERS 0.09 0.58 0.42 2.7
##
## MR2 MR1 MR4 MR3 MR5 MR10 MR6 MR9 MR7 MR8
## SS loadings 5.25 5.39 4.24 3.95 2.38 2.65 2.16 2.00 1.71 1.85
## Proportion Var 0.10 0.11 0.08 0.08 0.05 0.05 0.04 0.04 0.03 0.04
## Cumulative Var 0.10 0.21 0.29 0.37 0.42 0.47 0.51 0.55 0.58 0.62
## Proportion Explained 0.17 0.17 0.13 0.13 0.08 0.08 0.07 0.06 0.05 0.06
## Cumulative Proportion 0.17 0.34 0.47 0.60 0.67 0.76 0.82 0.89 0.94 1.00
##
## With factor correlations of
## MR2 MR1 MR4 MR3 MR5 MR10 MR6 MR9 MR7 MR8
## MR2 1.00 0.26 0.39 0.18 0.19 0.05 0.16 0.36 0.01 0.26
## MR1 0.26 1.00 0.35 0.43 0.17 0.36 0.29 0.16 0.09 0.29
## MR4 0.39 0.35 1.00 0.32 0.24 0.08 0.21 0.20 0.14 0.25
## MR3 0.18 0.43 0.32 1.00 0.19 0.39 0.24 0.09 0.25 0.18
## MR5 0.19 0.17 0.24 0.19 1.00 0.17 0.13 0.16 0.18 0.16
## MR10 0.05 0.36 0.08 0.39 0.17 1.00 0.32 0.10 0.14 0.17
## MR6 0.16 0.29 0.21 0.24 0.13 0.32 1.00 0.16 0.07 0.15
## MR9 0.36 0.16 0.20 0.09 0.16 0.10 0.16 1.00 -0.01 0.20
## MR7 0.01 0.09 0.14 0.25 0.18 0.14 0.07 -0.01 1.00 0.07
## MR8 0.26 0.29 0.25 0.18 0.16 0.17 0.15 0.20 0.07 1.00
##
## Mean item complexity = 2.1
## Test of the hypothesis that 10 factors are sufficient.
##
## The degrees of freedom for the null model are 1275 and the objective function was 40.3 with Chi Square of 8186.99
## The degrees of freedom for the model are 810 and the objective function was 6.92
##
## The root mean square of the residuals (RMSR) is 0.03
## The df corrected root mean square of the residuals is 0.03
##
## The harmonic number of observations is 222 with the empirical chi square 397.83 with prob < 1
## The total number of observations was 222 with Likelihood Chi Square = 1359.03 with prob < 1.8e-30
##
## Tucker Lewis Index of factoring reliability = 0.87
## RMSEA index = 0.055 and the 90 % confidence intervals are 0.05 0.06
## BIC = -3017.14
## Fit based upon off diagonal values = 0.99
## Measures of factor score adequacy
## MR2 MR1 MR4 MR3 MR5 MR10
## Correlation of (regression) scores with factors 0.97 0.97 0.97 0.97 0.92 0.91
## Multiple R square of scores with factors 0.94 0.95 0.94 0.93 0.85 0.83
## Minimum correlation of possible factor scores 0.87 0.90 0.87 0.87 0.70 0.66
## MR6 MR9 MR7 MR8
## Correlation of (regression) scores with factors 0.90 0.90 0.87 0.86
## Multiple R square of scores with factors 0.81 0.81 0.76 0.74
## Minimum correlation of possible factor scores 0.61 0.63 0.53 0.48
Loadings
print(EFA_model$loadings, sort=TRUE, cutoff=0.4)
##
## Loadings:
## MR2 MR1 MR4 MR3 MR5 MR10 MR6 MR9
## AVERAGE_COMPARISON 0.560
## COMPARISON_EXAMS 0.814
## COMPARISON_ECTS 0.805
## COMPARISON_GRADES 0.781
## COMPARISON_OBLIGATIONS 0.699
## STATUS_STUDENTS 0.589
## STATUS_COMPARISON 0.657
## PREDICTION_COURSE 0.786
## PREDICTION_YEAR 0.923
## PREDICTION_OBLIGATIONS 0.836
## PREDICTION_ECTS 0.764
## PREDICTION_PROGRAM 0.719
## PREDICTION_GROUP 0.604
## BADGES 0.503
## BADGES_COMPARISON 0.851
## BADGES_COLLECTING 0.892
## AWARDS 0.840
## COMPETITIONS 0.698
## PPLAN_COURSE 0.854
## PPLAN_STUDY 0.891
## PPLAN_MONITORING 0.735
## TEACHER_EVALUATION 0.538
## TEACHER_PROFILE 0.532
## TEACHERS_CONTEVAL 0.821
## TEACHERS_FEEDBACK 0.754
## SCHEDULE 0.652
## CALENDAR 0.751
## ASSESSMENT_CONT 0.612
## ABSENCE 0.527
## PASSRATE_COURSE 0.643
## MESSAGES_ADMIN
## AVERAGE
## TIMELINE
## RISK
## DYNAMICS
## COURSES
## NOTIFICATIONS_COURSE 0.443
## NOTIFICATIONS_DEADLINES
## MESSAGES_TEACHER
## REQUESTS
## MESSAGES_SU
## EXTRACURRICULAR
## ECTSAVG_STUDY 0.451 0.446
## ECTSAVG_COURSE 0.497
## AVGGRADE_COURSE
## ECTS_MONITORING 0.434
## PPLAN_EXTRACURRICULAR
## TEACHERS
## STATUS_CURRENT
## ASSESSMENT_EXAMS 0.476
## COMPARISON_OTHERS 0.426
## MR7 MR8
## AVERAGE_COMPARISON
## COMPARISON_EXAMS
## COMPARISON_ECTS
## COMPARISON_GRADES
## COMPARISON_OBLIGATIONS
## STATUS_STUDENTS
## STATUS_COMPARISON
## PREDICTION_COURSE
## PREDICTION_YEAR
## PREDICTION_OBLIGATIONS
## PREDICTION_ECTS
## PREDICTION_PROGRAM
## PREDICTION_GROUP
## BADGES
## BADGES_COMPARISON
## BADGES_COLLECTING
## AWARDS
## COMPETITIONS
## PPLAN_COURSE
## PPLAN_STUDY
## PPLAN_MONITORING
## TEACHER_EVALUATION
## TEACHER_PROFILE
## TEACHERS_CONTEVAL
## TEACHERS_FEEDBACK
## SCHEDULE
## CALENDAR
## ASSESSMENT_CONT
## ABSENCE
## PASSRATE_COURSE
## MESSAGES_ADMIN 0.532
## AVERAGE 0.519
## TIMELINE
## RISK
## DYNAMICS
## COURSES
## NOTIFICATIONS_COURSE
## NOTIFICATIONS_DEADLINES
## MESSAGES_TEACHER
## REQUESTS
## MESSAGES_SU 0.490
## EXTRACURRICULAR
## ECTSAVG_STUDY
## ECTSAVG_COURSE
## AVGGRADE_COURSE
## ECTS_MONITORING
## PPLAN_EXTRACURRICULAR
## TEACHERS 0.483
## STATUS_CURRENT
## ASSESSMENT_EXAMS
## COMPARISON_OTHERS
##
## MR2 MR1 MR4 MR3 MR5 MR10 MR6 MR9 MR7 MR8
## SS loadings 4.446 4.431 3.498 3.073 2.084 2.032 1.601 1.541 1.485 1.326
## Proportion Var 0.087 0.087 0.069 0.060 0.041 0.040 0.031 0.030 0.029 0.026
## Cumulative Var 0.087 0.174 0.243 0.303 0.344 0.384 0.415 0.445 0.474 0.500
Scores
head(EFA_model$scores)
## MR2 MR1 MR4 MR3 MR5 MR10
## [1,] 1.36084257 0.2349911 1.5856767 -1.7894132 0.8749699417 0.8180829
## [2,] 0.21073329 -1.4010818 0.1349960 0.2815262 -0.0048006877 0.4393403
## [3,] 0.65847651 0.2148257 0.3150179 0.1331648 -0.0152667482 0.6029984
## [4,] 0.02755283 0.6499766 -1.4354292 -0.1899754 -0.3465494208 -0.2945322
## [5,] 0.72886005 0.2037469 1.5736673 0.8953502 1.2708384146 0.4457098
## [6,] -1.43033514 0.1393323 0.8881298 0.7443692 -0.0004254104 0.4348529
## MR6 MR9 MR7 MR8
## [1,] 0.8267324 0.18046922 0.9511419 0.7249557
## [2,] 0.4617899 0.76987695 -0.5022364 1.1574353
## [3,] 0.4441850 0.53471877 0.6939988 0.6219408
## [4,] -0.5400891 0.48245062 1.7742659 0.2307697
## [5,] -0.1282711 0.83106077 0.9747692 0.7331866
## [6,] 0.5245173 0.04804445 -0.8066821 0.2515853
plot(density(EFA_model$scores, na.rm = TRUE),
main = "Factor Scores")
corrplot(round(cor(podaci, use = "pairwise.complete.obs"), 2), type = "upper", tl.col = "black", tl.srt = 90,
diag=FALSE, mar=c(0,0,0.1,0), tl.cex=0.4)
corrplot(round(corr.test(podaci, use = "pairwise.complete.obs")$p, 2), type = "upper", tl.col = "black", tl.srt = 90,
diag=FALSE, mar=c(0,0,0.1,0), tl.cex=0.4)
