Beskrivende statistikk
lmred_small <- lmred %>% select(case_time_total,
case_time_court_hearing,
case_n_part,
case_n_witnesses,
case_n_trans,
case_court,
case_subtype,
case_ecocrime,
case_sivilekrav,
case_internasjonal_rett,
case_priority)
des <-
descr(
lmred_small,
stats = c("mean", "sd", "med", "min", "max", "N.Valid"),
transpose = TRUE,
style = "rmarkdown"
)
knitr::kable(des, digits = 2)
|
|
Mean
|
Std.Dev
|
Median
|
Min
|
Max
|
N.Valid
|
|
case_ecocrime
|
0.01
|
0.09
|
0.0
|
0.0
|
1
|
10270
|
|
case_internasjonal_rett
|
0.03
|
0.17
|
0.0
|
0.0
|
1
|
10270
|
|
case_n_part
|
2.58
|
1.25
|
2.0
|
1.0
|
26
|
11331
|
|
case_n_trans
|
0.60
|
1.34
|
0.0
|
0.0
|
17
|
11332
|
|
case_n_witnesses
|
1.90
|
5.19
|
0.0
|
0.0
|
100
|
11332
|
|
case_priority
|
0.19
|
0.39
|
0.0
|
0.0
|
1
|
11332
|
|
case_sivilekrav
|
0.24
|
0.43
|
0.0
|
0.0
|
1
|
10270
|
|
case_time_court_hearing
|
12.54
|
21.53
|
6.5
|
0.5
|
403
|
11332
|
|
case_time_total
|
178.07
|
116.92
|
155.0
|
2.0
|
1708
|
11332
|
Andel saker som når stortingets mål for antall dager
saksbehandlingstid
table(lmred$case_time_total <=90)/sum(table(lmred$case_time_total <=90))
##
## FALSE TRUE
## 0.8250971 0.1749029
GLM: Rettsmøtetimer
glmhours <-
glm(
case_time_court_hearing ~ case_subtype + case_court2 + case_n_part +
case_n_witnesses + case_n_trans + case_priority + ecocrimefactor +
civilfactor + internationalfactor,
data = lmred,
family = Gamma(link = "log")
)
Tabell: Rettsmøtetimer
summ(glmhours)
|
Observations
|
10270 (1062 missing obs. deleted)
|
|
Dependent variable
|
case_time_court_hearing
|
|
Type
|
Generalized linear model
|
|
Family
|
Gamma
|
|
Link
|
log
|
|
χ²(17)
|
9185.77
|
|
Pseudo-R² (Cragg-Uhler)
|
0.75
|
|
Pseudo-R² (McFadden)
|
0.19
|
|
AIC
|
58498.04
|
|
BIC
|
58635.55
|
|
|
Est.
|
S.E.
|
t val.
|
p
|
|
(Intercept)
|
0.52
|
0.02
|
22.25
|
0.00
|
|
case_subtypeLagrettesak
|
1.58
|
0.02
|
65.32
|
0.00
|
|
case_subtypeMeddomsrettssak - begrenset anke
|
0.38
|
0.03
|
14.64
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke (gammel ordning)
|
1.21
|
0.02
|
57.33
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke over 6 år
|
1.36
|
0.04
|
34.50
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke under 6 år
|
1.10
|
0.04
|
26.67
|
0.00
|
|
case_court2Agder Lagmannsrett
|
-0.09
|
0.02
|
-3.86
|
0.00
|
|
case_court2Eidsivating Lagmannsrett
|
-0.28
|
0.03
|
-9.62
|
0.00
|
|
case_court2Frostating Lagmannsrett
|
0.08
|
0.03
|
2.73
|
0.01
|
|
case_court2Gulating Lagmannsrett
|
0.02
|
0.02
|
1.04
|
0.30
|
|
case_court2Hålogaland Lagmannsrett
|
-0.10
|
0.03
|
-3.64
|
0.00
|
|
case_n_part
|
0.20
|
0.01
|
30.32
|
0.00
|
|
case_n_witnesses
|
0.04
|
0.00
|
22.93
|
0.00
|
|
case_n_trans
|
0.10
|
0.01
|
15.71
|
0.00
|
|
case_priority
|
0.14
|
0.02
|
6.65
|
0.00
|
|
ecocrimefactorØkokrim
|
1.41
|
0.08
|
17.23
|
0.00
|
|
civilfactorSivile krav
|
0.22
|
0.02
|
10.99
|
0.00
|
|
internationalfactorInternasjonal rett
|
0.12
|
0.05
|
2.74
|
0.01
|
|
Standard errors: MLE
|
GLM: Totalt antall dager
glmtotal <-
glm(
case_time_total ~ case_subtype + case_court2 + case_n_part +
case_n_witnesses + case_n_trans + case_priority + ecocrimefactor +
civilfactor + internationalfactor,
data = lmred,
family = Gamma(link = "log")
)
Tabell: Totalt antall dager
summ(glmtotal)
|
Observations
|
10270 (1062 missing obs. deleted)
|
|
Dependent variable
|
case_time_total
|
|
Type
|
Generalized linear model
|
|
Family
|
Gamma
|
|
Link
|
log
|
|
χ²(17)
|
1131.57
|
|
Pseudo-R² (Cragg-Uhler)
|
0.36
|
|
Pseudo-R² (McFadden)
|
0.04
|
|
AIC
|
116425.41
|
|
BIC
|
116562.91
|
|
|
Est.
|
S.E.
|
t val.
|
p
|
|
(Intercept)
|
5.01
|
0.02
|
327.75
|
0.00
|
|
case_subtypeLagrettesak
|
0.22
|
0.02
|
13.95
|
0.00
|
|
case_subtypeMeddomsrettssak - begrenset anke
|
0.03
|
0.02
|
1.61
|
0.11
|
|
case_subtypeMeddomsrettssak - bevisanke (gammel ordning)
|
0.32
|
0.01
|
22.78
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke over 6 år
|
0.20
|
0.03
|
7.78
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke under 6 år
|
0.25
|
0.03
|
9.10
|
0.00
|
|
case_court2Agder Lagmannsrett
|
-0.33
|
0.02
|
-21.46
|
0.00
|
|
case_court2Eidsivating Lagmannsrett
|
-0.31
|
0.02
|
-16.45
|
0.00
|
|
case_court2Frostating Lagmannsrett
|
-0.18
|
0.02
|
-10.04
|
0.00
|
|
case_court2Gulating Lagmannsrett
|
-0.09
|
0.01
|
-6.04
|
0.00
|
|
case_court2Hålogaland Lagmannsrett
|
-0.46
|
0.02
|
-26.35
|
0.00
|
|
case_n_part
|
0.05
|
0.00
|
12.03
|
0.00
|
|
case_n_witnesses
|
0.01
|
0.00
|
11.12
|
0.00
|
|
case_n_trans
|
0.03
|
0.00
|
7.88
|
0.00
|
|
case_priority
|
-0.55
|
0.01
|
-38.74
|
0.00
|
|
ecocrimefactorØkokrim
|
0.49
|
0.05
|
9.09
|
0.00
|
|
civilfactorSivile krav
|
0.10
|
0.01
|
7.59
|
0.00
|
|
internationalfactorInternasjonal rett
|
0.17
|
0.03
|
5.69
|
0.00
|
|
Standard errors: MLE
|
Baselinemodeller for vurdere modellens prediksjonsevne: bruke modell
med rettsmøtetimer fra tingretten
For å kunne sammenligne målene på modellenes forklarte varians må de
ulike modellene ha samme antall observasjoner. Vi lager derfor først ett
nytt datasett som fjerner observasjoner med manglende verdier på
variablene.
lmred_missing_removed <- lmred %>%
select(case_time_total, case_time_court_hearing, case_subtype, case_court2, case_n_part,
case_n_witnesses, case_n_trans, case_priority, ecocrimefactor,
civilfactor,internationalfactor, case_time_total_lowercourt,case_time_court_hear_lowercourt) %>% drop_na()
GLM: Rettsmøtetimer uten missingverdier
# timer
glmhours_missing <-
glm(
case_time_court_hearing ~ case_subtype + case_court2 + case_n_part +
case_n_witnesses + case_n_trans + case_priority + ecocrimefactor +
civilfactor + internationalfactor,
data = lmred_missing_removed,
family = Gamma(link = "log")
)
Tabell: Rettsmøtetimer uten missingverdier
summ(glmhours_missing)
|
Observations
|
10228
|
|
Dependent variable
|
case_time_court_hearing
|
|
Type
|
Generalized linear model
|
|
Family
|
Gamma
|
|
Link
|
log
|
|
χ²(17)
|
9142.30
|
|
Pseudo-R² (Cragg-Uhler)
|
0.75
|
|
Pseudo-R² (McFadden)
|
0.19
|
|
AIC
|
58212.44
|
|
BIC
|
58349.86
|
|
|
Est.
|
S.E.
|
t val.
|
p
|
|
(Intercept)
|
0.51
|
0.02
|
22.13
|
0.00
|
|
case_subtypeLagrettesak
|
1.58
|
0.02
|
65.16
|
0.00
|
|
case_subtypeMeddomsrettssak - begrenset anke
|
0.38
|
0.03
|
14.68
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke (gammel ordning)
|
1.21
|
0.02
|
57.08
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke over 6 år
|
1.36
|
0.04
|
34.19
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke under 6 år
|
1.09
|
0.04
|
26.27
|
0.00
|
|
case_court2Agder Lagmannsrett
|
-0.09
|
0.02
|
-3.90
|
0.00
|
|
case_court2Eidsivating Lagmannsrett
|
-0.27
|
0.03
|
-9.56
|
0.00
|
|
case_court2Frostating Lagmannsrett
|
0.07
|
0.03
|
2.64
|
0.01
|
|
case_court2Gulating Lagmannsrett
|
0.02
|
0.02
|
0.93
|
0.35
|
|
case_court2Hålogaland Lagmannsrett
|
-0.10
|
0.03
|
-3.64
|
0.00
|
|
case_n_part
|
0.21
|
0.01
|
30.38
|
0.00
|
|
case_n_witnesses
|
0.04
|
0.00
|
22.70
|
0.00
|
|
case_n_trans
|
0.10
|
0.01
|
15.73
|
0.00
|
|
case_priority
|
0.14
|
0.02
|
6.46
|
0.00
|
|
ecocrimefactorØkokrim
|
1.41
|
0.08
|
17.25
|
0.00
|
|
civilfactorSivile krav
|
0.22
|
0.02
|
11.03
|
0.00
|
|
internationalfactorInternasjonal rett
|
0.12
|
0.05
|
2.76
|
0.01
|
|
Standard errors: MLE
|
GLM: Rettsmøtetimer med rettmøtetimer i tingrett som predikator
glmhours_lowercourt <-
glm(
case_time_court_hearing ~ case_time_court_hear_lowercourt,
data = lmred_missing_removed,
family = Gamma(link = "log")
)
## Warning: glm.fit: algorithm did not converge
Tabell: Rettsmøtetimer med rettmøtetimer i tingrett som
predikator
summ(glmhours_lowercourt)
|
Observations
|
10228
|
|
Dependent variable
|
case_time_court_hearing
|
|
Type
|
Generalized linear model
|
|
Family
|
Gamma
|
|
Link
|
log
|
|
χ²(1)
|
5744.61
|
|
Pseudo-R² (Cragg-Uhler)
|
0.49
|
|
Pseudo-R² (McFadden)
|
0.10
|
|
AIC
|
65308.85
|
|
BIC
|
65330.55
|
|
|
Est.
|
S.E.
|
t val.
|
p
|
|
(Intercept)
|
1.72
|
0.01
|
191.71
|
0.00
|
|
case_time_court_hear_lowercourt
|
0.04
|
0.00
|
125.14
|
0.00
|
|
Standard errors: MLE
|
GLM: Rettsmøtetimer med rettsmøtetimer i tingrett*sakstype som
predikator
glmhours_lowercourt_casetype <-
glm(
case_time_court_hearing ~ case_time_court_hear_lowercourt*case_subtype,
data = lmred_missing_removed,
family = Gamma(link = "log")
)
## Warning: glm.fit: algorithm did not converge
GLM: Rettsmøtetimer med alle forklaringsvariabler pluss
rettsmøtetimer i tingrett som predikator
glmhours_full_lc <-
glm(
case_time_court_hearing ~ case_subtype + case_court2 + case_n_part +
case_n_witnesses + case_n_trans + case_priority + ecocrimefactor +
civilfactor + internationalfactor + case_time_court_hear_lowercourt,
data = lmred_missing_removed,
family = Gamma(link = "log")
)
Tabell: Rettsmøtetimer med alle forklaringsvariabler pluss
rettsmøtetimer i tingrett som predikator
summ(glmhours_missing)
|
Observations
|
10228
|
|
Dependent variable
|
case_time_court_hearing
|
|
Type
|
Generalized linear model
|
|
Family
|
Gamma
|
|
Link
|
log
|
|
χ²(17)
|
9142.30
|
|
Pseudo-R² (Cragg-Uhler)
|
0.75
|
|
Pseudo-R² (McFadden)
|
0.19
|
|
AIC
|
58212.44
|
|
BIC
|
58349.86
|
|
|
Est.
|
S.E.
|
t val.
|
p
|
|
(Intercept)
|
0.51
|
0.02
|
22.13
|
0.00
|
|
case_subtypeLagrettesak
|
1.58
|
0.02
|
65.16
|
0.00
|
|
case_subtypeMeddomsrettssak - begrenset anke
|
0.38
|
0.03
|
14.68
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke (gammel ordning)
|
1.21
|
0.02
|
57.08
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke over 6 år
|
1.36
|
0.04
|
34.19
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke under 6 år
|
1.09
|
0.04
|
26.27
|
0.00
|
|
case_court2Agder Lagmannsrett
|
-0.09
|
0.02
|
-3.90
|
0.00
|
|
case_court2Eidsivating Lagmannsrett
|
-0.27
|
0.03
|
-9.56
|
0.00
|
|
case_court2Frostating Lagmannsrett
|
0.07
|
0.03
|
2.64
|
0.01
|
|
case_court2Gulating Lagmannsrett
|
0.02
|
0.02
|
0.93
|
0.35
|
|
case_court2Hålogaland Lagmannsrett
|
-0.10
|
0.03
|
-3.64
|
0.00
|
|
case_n_part
|
0.21
|
0.01
|
30.38
|
0.00
|
|
case_n_witnesses
|
0.04
|
0.00
|
22.70
|
0.00
|
|
case_n_trans
|
0.10
|
0.01
|
15.73
|
0.00
|
|
case_priority
|
0.14
|
0.02
|
6.46
|
0.00
|
|
ecocrimefactorØkokrim
|
1.41
|
0.08
|
17.25
|
0.00
|
|
civilfactorSivile krav
|
0.22
|
0.02
|
11.03
|
0.00
|
|
internationalfactorInternasjonal rett
|
0.12
|
0.05
|
2.76
|
0.01
|
|
Standard errors: MLE
|
GLM: Totalt antall dager uten missingverdier
# dager
glmtotal_missing <-
glm(
case_time_total ~ case_subtype + case_court2 + case_n_part +
case_n_witnesses + case_n_trans + case_priority + ecocrimefactor +
civilfactor + internationalfactor,
data = lmred_missing_removed,
family = Gamma(link = "log")
)
Tabell: Totalt antall dager uten missingverdier
summ(glmtotal_missing)
|
Observations
|
10228
|
|
Dependent variable
|
case_time_total
|
|
Type
|
Generalized linear model
|
|
Family
|
Gamma
|
|
Link
|
log
|
|
χ²(17)
|
1133.23
|
|
Pseudo-R² (Cragg-Uhler)
|
0.36
|
|
Pseudo-R² (McFadden)
|
0.04
|
|
AIC
|
115909.40
|
|
BIC
|
116046.83
|
|
|
Est.
|
S.E.
|
t val.
|
p
|
|
(Intercept)
|
5.01
|
0.02
|
328.04
|
0.00
|
|
case_subtypeLagrettesak
|
0.22
|
0.02
|
13.93
|
0.00
|
|
case_subtypeMeddomsrettssak - begrenset anke
|
0.03
|
0.02
|
1.62
|
0.11
|
|
case_subtypeMeddomsrettssak - bevisanke (gammel ordning)
|
0.31
|
0.01
|
22.58
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke over 6 år
|
0.20
|
0.03
|
7.52
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke under 6 år
|
0.25
|
0.03
|
8.97
|
0.00
|
|
case_court2Agder Lagmannsrett
|
-0.33
|
0.02
|
-21.72
|
0.00
|
|
case_court2Eidsivating Lagmannsrett
|
-0.31
|
0.02
|
-16.52
|
0.00
|
|
case_court2Frostating Lagmannsrett
|
-0.18
|
0.02
|
-10.04
|
0.00
|
|
case_court2Gulating Lagmannsrett
|
-0.09
|
0.01
|
-6.06
|
0.00
|
|
case_court2Hålogaland Lagmannsrett
|
-0.46
|
0.02
|
-26.34
|
0.00
|
|
case_n_part
|
0.05
|
0.00
|
12.22
|
0.00
|
|
case_n_witnesses
|
0.01
|
0.00
|
11.08
|
0.00
|
|
case_n_trans
|
0.03
|
0.00
|
7.96
|
0.00
|
|
case_priority
|
-0.55
|
0.01
|
-38.91
|
0.00
|
|
ecocrimefactorØkokrim
|
0.49
|
0.05
|
9.11
|
0.00
|
|
civilfactorSivile krav
|
0.10
|
0.01
|
7.69
|
0.00
|
|
internationalfactorInternasjonal rett
|
0.17
|
0.03
|
5.71
|
0.00
|
|
Standard errors: MLE
|
GLM: Totalt antall dager med totalt antall dager tingrett som
predikator
glmtotal_lowercourt <-
glm(
case_time_total ~ case_time_total_lowercourt,
data = lmred_missing_removed,
family = Gamma(link = "log")
)
Tabell: Totalt antall dager med totalt antall dager tingrett som
predikator
summ(glmtotal_lowercourt)
|
Observations
|
10228
|
|
Dependent variable
|
case_time_total
|
|
Type
|
Generalized linear model
|
|
Family
|
Gamma
|
|
Link
|
log
|
|
χ²(1)
|
343.49
|
|
Pseudo-R² (Cragg-Uhler)
|
0.11
|
|
Pseudo-R² (McFadden)
|
0.01
|
|
AIC
|
119218.21
|
|
BIC
|
119239.91
|
|
|
Est.
|
S.E.
|
t val.
|
p
|
|
(Intercept)
|
4.89
|
0.01
|
473.03
|
0.00
|
|
case_time_total_lowercourt
|
0.00
|
0.00
|
31.26
|
0.00
|
|
Standard errors: MLE
|
GLM: Totalt antall dager med totalt antall dager*sakstype tingrett
som predikator
glmtotal_lowercourt_casetype <-
glm(
case_time_total ~ case_time_total_lowercourt*case_subtype,
data = lmred_missing_removed,
family = Gamma(link = "log")
)
Tabell: Totalt antall dager med totalt antall dager*sakstype
tingrett som predikator
glmtotal_lowercourt_casetype
##
## Call: glm(formula = case_time_total ~ case_time_total_lowercourt *
## case_subtype, family = Gamma(link = "log"), data = lmred_missing_removed)
##
## Coefficients:
## (Intercept)
## 4.789e+00
## case_time_total_lowercourt
## 1.968e-03
## case_subtypeLagrettesak
## 1.246e-01
## case_subtypeMeddomsrettssak - begrenset anke
## -7.264e-02
## case_subtypeMeddomsrettssak - bevisanke (gammel ordning)
## 3.572e-01
## case_subtypeMeddomsrettssak - bevisanke over 6 år
## 9.820e-02
## case_subtypeMeddomsrettssak - bevisanke under 6 år
## 2.305e-01
## case_time_total_lowercourt:case_subtypeLagrettesak
## 4.894e-04
## case_time_total_lowercourt:case_subtypeMeddomsrettssak - begrenset anke
## 7.275e-06
## case_time_total_lowercourt:case_subtypeMeddomsrettssak - bevisanke (gammel ordning)
## -2.253e-04
## case_time_total_lowercourt:case_subtypeMeddomsrettssak - bevisanke over 6 år
## 1.753e-04
## case_time_total_lowercourt:case_subtypeMeddomsrettssak - bevisanke under 6 år
## 1.701e-04
##
## Degrees of Freedom: 10227 Total (i.e. Null); 10216 Residual
## Null Deviance: 3275
## Residual Deviance: 2708 AIC: 118400
GLM: Totalt antall dager med alle forklaringsvariabler pluss totalt
antall dager i tingrett som predikator
glmtotal_full_lc <-
glm(
case_time_total ~ case_subtype + case_court2 + case_n_part +
case_n_witnesses + case_n_trans + case_priority + ecocrimefactor +
civilfactor + internationalfactor + case_time_total_lowercourt,
data = lmred_missing_removed,
family = Gamma(link = "log")
)
GLM: Totalt antall dager med alle forklaringsvariabler pluss totalt
antall dager i tingrett som predikator
summ(glmtotal_full_lc)
|
Observations
|
10228
|
|
Dependent variable
|
case_time_total
|
|
Type
|
Generalized linear model
|
|
Family
|
Gamma
|
|
Link
|
log
|
|
χ²(18)
|
1181.46
|
|
Pseudo-R² (Cragg-Uhler)
|
0.37
|
|
Pseudo-R² (McFadden)
|
0.04
|
|
AIC
|
115670.51
|
|
BIC
|
115815.17
|
|
|
Est.
|
S.E.
|
t val.
|
p
|
|
(Intercept)
|
4.93
|
0.02
|
309.55
|
0.00
|
|
case_subtypeLagrettesak
|
0.19
|
0.02
|
12.28
|
0.00
|
|
case_subtypeMeddomsrettssak - begrenset anke
|
0.02
|
0.02
|
1.01
|
0.31
|
|
case_subtypeMeddomsrettssak - bevisanke (gammel ordning)
|
0.29
|
0.01
|
21.08
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke over 6 år
|
0.16
|
0.03
|
5.98
|
0.00
|
|
case_subtypeMeddomsrettssak - bevisanke under 6 år
|
0.22
|
0.03
|
8.16
|
0.00
|
|
case_court2Agder Lagmannsrett
|
-0.31
|
0.02
|
-20.38
|
0.00
|
|
case_court2Eidsivating Lagmannsrett
|
-0.31
|
0.02
|
-16.72
|
0.00
|
|
case_court2Frostating Lagmannsrett
|
-0.16
|
0.02
|
-8.87
|
0.00
|
|
case_court2Gulating Lagmannsrett
|
-0.10
|
0.01
|
-6.70
|
0.00
|
|
case_court2Hålogaland Lagmannsrett
|
-0.45
|
0.02
|
-25.86
|
0.00
|
|
case_n_part
|
0.05
|
0.00
|
10.22
|
0.00
|
|
case_n_witnesses
|
0.01
|
0.00
|
10.12
|
0.00
|
|
case_n_trans
|
0.03
|
0.00
|
7.87
|
0.00
|
|
case_priority
|
-0.51
|
0.01
|
-36.15
|
0.00
|
|
ecocrimefactorØkokrim
|
0.33
|
0.05
|
6.14
|
0.00
|
|
civilfactorSivile krav
|
0.09
|
0.01
|
7.11
|
0.00
|
|
internationalfactorInternasjonal rett
|
0.14
|
0.03
|
4.77
|
0.00
|
|
case_time_total_lowercourt
|
0.00
|
0.00
|
13.80
|
0.00
|
|
Standard errors: MLE
|
```