Regression Tools And Functions
Graphical and Numerical Regression Diagnostics
Christian Paulo Guanzon
April 4, 2020
source("scripts/r4abep-03.R")ABORT <- readXL("ABORT.xls")
ABORTstr(ABORT)'data.frame': 50 obs. of 9 variables:
$ state : Factor w/ 50 levels "ALABAMA","ALASKA",..: 24 31 44 48 4 18 40 26 36 1 ...
$ abortion: num 12.4 17.7 9.3 7.7 13.5 ...
$ religion: num 38 44.7 76.7 9.8 30 ...
$ price : num 256 332 298 251 248 228 292 329 281 272 ...
$ laws : num 0 0 1 0 1 1 1 0 0 1 ...
$ funds : num 0 0 0 1 0 0 0 0 0 0 ...
$ educ : num 64.3 75.1 85.1 66 66.3 ...
$ income : num 14082 15458 15573 15598 15635 ...
$ picket : num 100 20 0 50 33 60 57 50 75 89 ...summary(ABORT) state abortion religion price laws funds educ
ALABAMA : 1 Min. : 4.30 Min. : 9.80 Min. :228.0 Min. :0.00 Min. :0.00 Min. :64.30
ALASKA : 1 1st Qu.:13.43 1st Qu.:23.80 1st Qu.:271.2 1st Qu.:0.00 1st Qu.:0.00 1st Qu.:72.03
ARIZONA : 1 Median :18.40 Median :29.65 Median :294.5 Median :0.00 Median :0.00 Median :76.70
ARKANSAS : 1 Mean :20.58 Mean :32.65 Mean :305.1 Mean :0.36 Mean :0.24 Mean :75.93
CALIFORNIA: 1 3rd Qu.:25.35 3rd Qu.:38.67 3rd Qu.:329.8 3rd Qu.:1.00 3rd Qu.:0.00 3rd Qu.:80.10
COLORADO : 1 Max. :46.20 Max. :76.70 Max. :461.0 Max. :1.00 Max. :1.00 Max. :86.60
(Other) :44
income picket
Min. :14082 Min. : 0.00
1st Qu.:17086 1st Qu.: 39.25
Median :18881 Median : 50.00
Mean :19216 Mean : 52.34
3rd Qu.:20843 3rd Qu.: 67.00
Max. :27150 Max. :100.00
ABORT.lm <- lm(abortion~educ+funds+income+laws+picket+price+religion,data=ABORT)
summary(ABORT.lm)
Call:
lm(formula = abortion ~ educ + funds + income + laws + picket +
price + religion, data = ABORT)
Residuals:
Min 1Q Median 3Q Max
-11.6110 -4.6493 -0.6696 4.5253 15.9514
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 14.2839573 15.0776294 0.947 0.3489
educ -0.2872551 0.1995545 -1.439 0.1574
funds 2.8200030 2.7834747 1.013 0.3168
income 0.0024007 0.0004552 5.274 0.00000435 ***
laws -0.8731018 2.3765662 -0.367 0.7152
picket -0.1168712 0.0421799 -2.771 0.0083 **
price -0.0423631 0.0222232 -1.906 0.0635 .
religion 0.0200709 0.0863805 0.232 0.8174
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 7.063 on 42 degrees of freedom
Multiple R-squared: 0.5774, Adjusted R-squared: 0.507
F-statistic: 8.199 on 7 and 42 DF, p-value: 0.000002847r4abep.plotlm(ABORT.lm)
ABORT2 <- ABORT[,2:9]
rownames(ABORT2) <- ABORT[,1]
ABORT2str(ABORT2)'data.frame': 50 obs. of 8 variables:
$ abortion: num 12.4 17.7 9.3 7.7 13.5 ...
$ religion: num 38 44.7 76.7 9.8 30 ...
$ price : num 256 332 298 251 248 228 292 329 281 272 ...
$ laws : num 0 0 1 0 1 1 1 0 0 1 ...
$ funds : num 0 0 0 1 0 0 0 0 0 0 ...
$ educ : num 64.3 75.1 85.1 66 66.3 ...
$ income : num 14082 15458 15573 15598 15635 ...
$ picket : num 100 20 0 50 33 60 57 50 75 89 ...summary(ABORT2) abortion religion price laws funds educ income
Min. : 4.30 Min. : 9.80 Min. :228.0 Min. :0.00 Min. :0.00 Min. :64.30 Min. :14082
1st Qu.:13.43 1st Qu.:23.80 1st Qu.:271.2 1st Qu.:0.00 1st Qu.:0.00 1st Qu.:72.03 1st Qu.:17086
Median :18.40 Median :29.65 Median :294.5 Median :0.00 Median :0.00 Median :76.70 Median :18881
Mean :20.58 Mean :32.65 Mean :305.1 Mean :0.36 Mean :0.24 Mean :75.93 Mean :19216
3rd Qu.:25.35 3rd Qu.:38.67 3rd Qu.:329.8 3rd Qu.:1.00 3rd Qu.:0.00 3rd Qu.:80.10 3rd Qu.:20843
Max. :46.20 Max. :76.70 Max. :461.0 Max. :1.00 Max. :1.00 Max. :86.60 Max. :27150
picket
Min. : 0.00
1st Qu.: 39.25
Median : 50.00
Mean : 52.34
3rd Qu.: 67.00
Max. :100.00 ABORT2.lm <- lm(abortion~.,data=ABORT2)
summary(ABORT2.lm)
Call:
lm(formula = abortion ~ ., data = ABORT2)
Residuals:
Min 1Q Median 3Q Max
-11.6110 -4.6493 -0.6696 4.5253 15.9514
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 14.2839573 15.0776294 0.947 0.3489
religion 0.0200709 0.0863805 0.232 0.8174
price -0.0423631 0.0222232 -1.906 0.0635 .
laws -0.8731018 2.3765662 -0.367 0.7152
funds 2.8200030 2.7834747 1.013 0.3168
educ -0.2872551 0.1995545 -1.439 0.1574
income 0.0024007 0.0004552 5.274 0.00000435 ***
picket -0.1168712 0.0421799 -2.771 0.0083 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 7.063 on 42 degrees of freedom
Multiple R-squared: 0.5774, Adjusted R-squared: 0.507
F-statistic: 8.199 on 7 and 42 DF, p-value: 0.000002847r4abep.plotlm(ABORT2.lm)
r4abep.step(ABORT2.lm,"backward","AIC")
Direction: backward
Criterion: AIC
Start: AIC=202.76
abortion ~ religion + price + laws + funds + educ + income +
picket
Df Sum of Sq RSS AIC
- religion 1 2.69 2097.7 200.83
- laws 1 6.73 2101.7 200.92
- funds 1 51.20 2146.2 201.97
<none> 2095.0 202.76
- educ 1 103.36 2198.3 203.17
- price 1 181.25 2276.2 204.91
- picket 1 382.94 2477.9 209.16
- income 1 1387.44 3482.4 226.17
Step: AIC=200.83
abortion ~ price + laws + funds + educ + income + picket
Df Sum of Sq RSS AIC
- laws 1 4.95 2102.6 198.94
- funds 1 49.76 2147.4 200.00
<none> 2097.7 200.83
- educ 1 105.24 2202.9 201.28
- price 1 178.59 2276.2 202.91
- picket 1 380.43 2478.1 207.16
- income 1 1392.57 3490.2 224.28
Step: AIC=198.95
abortion ~ price + funds + educ + income + picket
Df Sum of Sq RSS AIC
- funds 1 61.03 2163.6 198.38
<none> 2102.6 198.94
- educ 1 109.14 2211.7 199.48
- price 1 186.45 2289.1 201.19
- picket 1 425.45 2528.1 206.16
- income 1 1422.02 3524.6 222.78
Step: AIC=198.38
abortion ~ price + educ + income + picket
Df Sum of Sq RSS AIC
<none> 2163.6 198.38
- educ 1 121.05 2284.7 199.10
- price 1 171.57 2335.2 200.19
- picket 1 486.80 2650.4 206.52
- income 1 2044.69 4208.3 229.64
Call:
lm(formula = abortion ~ price + educ + income + picket, data = ABORT2)
Coefficients:
(Intercept) price educ income picket
12.506531 -0.040644 -0.308974 0.002629 -0.125803 r4abep.step(ABORT2.lm,"forward","AIC")
Direction: forward
Criterion: AIC
Start: AIC=231.83
abortion ~ 1
Df Sum of Sq RSS AIC
+ income 1 2076.61 2881.0 206.69
+ funds 1 935.43 4022.2 223.38
+ picket 1 706.20 4251.4 226.15
+ laws 1 410.94 4546.7 229.51
<none> 4957.6 231.83
+ educ 1 188.27 4769.4 231.90
+ religion 1 77.69 4879.9 233.04
+ price 1 0.05 4957.6 233.83
Step: AIC=206.69
abortion ~ income
Df Sum of Sq RSS AIC
+ picket 1 380.49 2500.5 201.61
+ price 1 202.90 2678.1 205.04
+ laws 1 120.64 2760.4 206.56
<none> 2881.0 206.69
+ funds 1 103.60 2777.4 206.86
+ educ 1 50.76 2830.2 207.81
+ religion 1 31.19 2849.8 208.15
Step: AIC=201.61
abortion ~ income + picket
Df Sum of Sq RSS AIC
+ price 1 215.843 2284.7 199.10
+ educ 1 165.322 2335.2 200.19
<none> 2500.5 201.61
+ funds 1 56.685 2443.8 202.47
+ laws 1 39.512 2461.0 202.81
+ religion 1 3.024 2497.5 203.55
Step: AIC=199.1
abortion ~ income + picket + price
Df Sum of Sq RSS AIC
+ educ 1 121.050 2163.6 198.38
<none> 2284.7 199.10
+ funds 1 72.935 2211.8 199.48
+ laws 1 24.659 2260.0 200.56
+ religion 1 0.001 2284.7 201.10
Step: AIC=198.38
abortion ~ income + picket + price + educ
Df Sum of Sq RSS AIC
<none> 2163.6 198.38
+ funds 1 61.028 2102.6 198.94
+ laws 1 16.222 2147.4 200.00
+ religion 1 0.022 2163.6 200.38
Call:
lm(formula = abortion ~ income + picket + price + educ, data = ABORT2)
Coefficients:
(Intercept) income picket price educ
12.506531 0.002629 -0.125803 -0.040644 -0.308974 r4abep.step(ABORT2.lm,"backward","BIC")
Direction: backward
Criterion: BIC
Start: AIC=218.06
abortion ~ religion + price + laws + funds + educ + income +
picket
Df Sum of Sq RSS AIC
- religion 1 2.69 2097.7 214.21
- laws 1 6.73 2101.7 214.31
- funds 1 51.20 2146.2 215.35
- educ 1 103.36 2198.3 216.56
<none> 2095.0 218.06
- price 1 181.25 2276.2 218.30
- picket 1 382.94 2477.9 222.54
- income 1 1387.44 3482.4 239.56
Step: AIC=214.21
abortion ~ price + laws + funds + educ + income + picket
Df Sum of Sq RSS AIC
- laws 1 4.95 2102.6 210.42
- funds 1 49.76 2147.4 211.47
- educ 1 105.24 2202.9 212.75
<none> 2097.7 214.21
- price 1 178.59 2276.2 214.38
- picket 1 380.43 2478.1 218.63
- income 1 1392.57 3490.2 235.76
Step: AIC=210.42
abortion ~ price + funds + educ + income + picket
Df Sum of Sq RSS AIC
- funds 1 61.03 2163.6 207.94
- educ 1 109.14 2211.7 209.04
<none> 2102.6 210.42
- price 1 186.45 2289.1 210.75
- picket 1 425.45 2528.1 215.72
- income 1 1422.02 3524.6 232.34
Step: AIC=207.94
abortion ~ price + educ + income + picket
Df Sum of Sq RSS AIC
- educ 1 121.05 2284.7 206.75
- price 1 171.57 2335.2 207.84
<none> 2163.6 207.94
- picket 1 486.80 2650.4 214.17
- income 1 2044.69 4208.3 237.29
Step: AIC=206.75
abortion ~ price + income + picket
Df Sum of Sq RSS AIC
<none> 2284.7 206.75
- price 1 215.84 2500.5 207.35
- picket 1 393.43 2678.1 210.78
- income 1 1964.03 4248.7 233.85
Call:
lm(formula = abortion ~ price + income + picket, data = ABORT2)
Coefficients:
(Intercept) price income picket
-5.85916 -0.04518 0.00239 -0.10893 r4abep.step(ABORT2.lm,"forward","BIC")
Direction: forward
Criterion: BIC
Start: AIC=233.74
abortion ~ 1
Df Sum of Sq RSS AIC
+ income 1 2076.61 2881.0 210.52
+ funds 1 935.43 4022.2 227.20
+ picket 1 706.20 4251.4 229.97
+ laws 1 410.94 4546.7 233.33
<none> 4957.6 233.75
+ educ 1 188.27 4769.4 235.72
+ religion 1 77.69 4879.9 236.87
+ price 1 0.05 4957.6 237.66
Step: AIC=210.52
abortion ~ income
Df Sum of Sq RSS AIC
+ picket 1 380.49 2500.5 207.35
<none> 2881.0 210.52
+ price 1 202.90 2678.1 210.78
+ laws 1 120.64 2760.4 212.29
+ funds 1 103.60 2777.4 212.60
+ educ 1 50.76 2830.2 213.54
+ religion 1 31.19 2849.8 213.88
Step: AIC=207.35
abortion ~ income + picket
Df Sum of Sq RSS AIC
+ price 1 215.843 2284.7 206.75
<none> 2500.5 207.35
+ educ 1 165.322 2335.2 207.84
+ funds 1 56.685 2443.8 210.11
+ laws 1 39.512 2461.0 210.46
+ religion 1 3.024 2497.5 211.20
Step: AIC=206.75
abortion ~ income + picket + price
Df Sum of Sq RSS AIC
<none> 2284.7 206.75
+ educ 1 121.050 2163.6 207.94
+ funds 1 72.935 2211.8 209.04
+ laws 1 24.659 2260.0 210.12
+ religion 1 0.001 2284.7 210.66
Call:
lm(formula = abortion ~ income + picket + price, data = ABORT2)
Coefficients:
(Intercept) income picket price
-5.85916 0.00239 -0.10893 -0.04518 ABORT2.lm2 <- lm(abortion~price+educ+income+picket,data=ABORT2)
summary(ABORT2.lm2)
Call:
lm(formula = abortion ~ price + educ + income + picket, data = ABORT2)
Residuals:
Min 1Q Median 3Q Max
-10.4642 -5.4787 -0.3998 3.9965 17.0301
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 12.5065314 14.4910072 0.863 0.39268
price -0.0406442 0.0215160 -1.889 0.06534 .
educ -0.3089739 0.1947262 -1.587 0.11958
income 0.0026290 0.0004031 6.521 0.0000000524 ***
picket -0.1258035 0.0395371 -3.182 0.00265 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 6.934 on 45 degrees of freedom
Multiple R-squared: 0.5636, Adjusted R-squared: 0.5248
F-statistic: 14.53 on 4 and 45 DF, p-value: 0.0000001082ABORT2.lm3 <- lm(abortion~price+income+picket,data=ABORT2)
summary(ABORT2.lm3)
Call:
lm(formula = abortion ~ price + income + picket, data = ABORT2)
Residuals:
Min 1Q Median 3Q Max
-9.706 -5.913 -0.082 4.387 17.869
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -5.8591609 8.8613429 -0.661 0.51178
price -0.0451828 0.0216740 -2.085 0.04268 *
income 0.0023900 0.0003801 6.288 0.000000107 ***
picket -0.1089301 0.0387032 -2.814 0.00717 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 7.047 on 46 degrees of freedom
Multiple R-squared: 0.5392, Adjusted R-squared: 0.5091
F-statistic: 17.94 on 3 and 46 DF, p-value: 0.00000007506r4abep.comparelm(ABORT2.lm,ABORT2.lm2,ABORT2.lm3)
===========================================
Dependent variable:
-------------------------------
abortion
(1) (2) (3)
-------------------------------------------
religion 0.020
(0.086)
price -0.042 -0.041 -0.045*
(0.022) (0.022) (0.022)
laws -0.873
(2.377)
funds 2.820
(2.783)
educ -0.287 -0.309
(0.200) (0.195)
income 0.002*** 0.003*** 0.002***
(0.0005) (0.0004) (0.0004)
picket -0.117** -0.126** -0.109**
(0.042) (0.040) (0.039)
Constant 14.284 12.507 -5.859
(15.078) (14.491) (8.861)
-------------------------------------------
R2 0.577 0.564 0.539
Adjusted R2 0.507 0.525 0.509
===========================================
Note: *p<0.05; **p<0.01; ***p<0.001ABORT2.lm4 <- lm(log(abortion)~income+picket+price,data=ABORT2)
summary(ABORT2.lm4)
Call:
lm(formula = log(abortion) ~ income + picket + price, data = ABORT2)
Residuals:
Min 1Q Median 3Q Max
-0.85414 -0.26517 0.02715 0.31345 0.63504
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.87965658 0.43874000 4.284 0.0000925486 ***
income 0.00012142 0.00001882 6.453 0.0000000606 ***
picket -0.00591542 0.00191626 -3.087 0.00342 **
price -0.00327392 0.00107312 -3.051 0.00378 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.3489 on 46 degrees of freedom
Multiple R-squared: 0.5623, Adjusted R-squared: 0.5337
F-statistic: 19.7 on 3 and 46 DF, p-value: 0.00000002341r4abep.comparelm(ABORT2.lm,ABORT2.lm2,ABORT2.lm3,ABORT2.lm4)
====================================================
Dependent variable:
----------------------------------------
abortion log(abortion)
(1) (2) (3) (4)
----------------------------------------------------
religion 0.020
(0.086)
price -0.042 -0.041 -0.045* -0.003**
(0.022) (0.022) (0.022) (0.001)
laws -0.873
(2.377)
funds 2.820
(2.783)
educ -0.287 -0.309
(0.200) (0.195)
income 0.002*** 0.003*** 0.002*** 0.0001***
(0.0005) (0.0004) (0.0004) (0.00002)
picket -0.117** -0.126** -0.109** -0.006**
(0.042) (0.040) (0.039) (0.002)
Constant 14.284 12.507 -5.859 1.880***
(15.078) (14.491) (8.861) (0.439)
----------------------------------------------------
R2 0.577 0.564 0.539 0.562
Adjusted R2 0.507 0.525 0.509 0.534
====================================================
Note: *p<0.05; **p<0.01; ***p<0.001r4abep.aic(ABORT2.lm,ABORT2.lm2,ABORT2.lm3,ABORT2.lm4)r4abep.bic(ABORT2.lm,ABORT2.lm2,ABORT2.lm3,ABORT2.lm4)r4abep.plotlm(ABORT2.lm4)
r4abep.vif(ABORT2.lm4) income picket price
1.125083 1.027031 1.101440
sqrt(VIF)
----------
income picket price
1.060699 1.013426 1.049495 r4abep.bp(ABORT2.lm4)
studentized Breusch-Pagan test
data: model
BP = 5.3494, df = 3, p-value = 0.1479r4abep.dw(ABORT2.lm4)
Durbin-Watson test
data: model
DW = 1.8819, p-value = 0.5129
alternative hypothesis: true autocorrelation is not 0r4abep.reset(ABORT2.lm4)
RESET test
data: model
RESET = 0.55404, df1 = 6, df2 = 40, p-value = 0.7639ABORT2.fit3 <- r4abep.addfit(ABORT2,ABORT2.lm3)
summary(ABORT2.fit3) abortion religion price laws funds educ income
Min. : 4.30 Min. : 9.80 Min. :228.0 Min. :0.00 Min. :0.00 Min. :64.30 Min. :14082
1st Qu.:13.43 1st Qu.:23.80 1st Qu.:271.2 1st Qu.:0.00 1st Qu.:0.00 1st Qu.:72.03 1st Qu.:17086
Median :18.40 Median :29.65 Median :294.5 Median :0.00 Median :0.00 Median :76.70 Median :18881
Mean :20.58 Mean :32.65 Mean :305.1 Mean :0.36 Mean :0.24 Mean :75.93 Mean :19216
3rd Qu.:25.35 3rd Qu.:38.67 3rd Qu.:329.8 3rd Qu.:1.00 3rd Qu.:0.00 3rd Qu.:80.10 3rd Qu.:20843
Max. :46.20 Max. :76.70 Max. :461.0 Max. :1.00 Max. :1.00 Max. :86.60 Max. :27150
picket obsNumber residuals fitted
Min. : 0.00 Min. : 1.00 Min. :-9.70580 Min. : 5.337
1st Qu.: 39.25 1st Qu.:13.25 1st Qu.:-5.91320 1st Qu.:15.531
Median : 50.00 Median :25.50 Median :-0.08201 Median :19.796
Mean : 52.34 Mean :25.50 Mean : 0.00000 Mean :20.578
3rd Qu.: 67.00 3rd Qu.:37.75 3rd Qu.: 4.38732 3rd Qu.:25.782
Max. :100.00 Max. :50.00 Max. :17.86871 Max. :35.595 ABORT2.fit3ABORT2.fit4 <- r4abep.addfit(ABORT2,ABORT2.lm4)
ABORT2.fit4["log.y"] <- log(ABORT2$abortion)
ABORT2.fit4library(ggplot2)
ggplot(ABORT2.fit4) +
aes(x=log.y,y=fitted) +
geom_point(size=1L,colour="#0c4c8a") +
geom_smooth(span=0.75) +
theme_minimal()
ggplot(ABORT2.fit4) +
aes(x=log.y,y=fitted) +
geom_point(size=1L,colour="#0c4c8a") +
geom_smooth(method=lm) +
theme_minimal()
ggplot(ABORT2.fit4) +
aes(x=residuals) +
geom_histogram(bins=10L,fill="#0c4c8a")
theme_minimal()List of 65
$ line :List of 6
..$ colour : chr "black"
..$ size : num 0.5
..$ linetype : num 1
..$ lineend : chr "butt"
..$ arrow : logi FALSE
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_line" "element"
$ rect :List of 5
..$ fill : chr "white"
..$ colour : chr "black"
..$ size : num 0.5
..$ linetype : num 1
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_rect" "element"
$ text :List of 11
..$ family : chr ""
..$ face : chr "plain"
..$ colour : chr "black"
..$ size : num 11
..$ hjust : num 0.5
..$ vjust : num 0.5
..$ angle : num 0
..$ lineheight : num 0.9
..$ margin : 'margin' num [1:4] 0pt 0pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : logi FALSE
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.title.x :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 2.75pt 0pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.title.x.top :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 0
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 2.75pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.title.y :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 1
..$ angle : num 90
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 2.75pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.title.y.right :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 0
..$ angle : num -90
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 0pt 2.75pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : chr "grey30"
..$ size : 'rel' num 0.8
..$ hjust : NULL
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text.x :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 2.2pt 0pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text.x.top :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 0
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 2.2pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text.y :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : num 1
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 2.2pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text.y.right :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : num 0
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 0pt 2.2pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.ticks : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ axis.ticks.length : 'unit' num 2.75pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ axis.ticks.length.x : NULL
$ axis.ticks.length.x.top : NULL
$ axis.ticks.length.x.bottom: NULL
$ axis.ticks.length.y : NULL
$ axis.ticks.length.y.left : NULL
$ axis.ticks.length.y.right : NULL
$ axis.line : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ axis.line.x : NULL
$ axis.line.y : NULL
$ legend.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ legend.margin : 'margin' num [1:4] 5.5pt 5.5pt 5.5pt 5.5pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ legend.spacing : 'unit' num 11pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ legend.spacing.x : NULL
$ legend.spacing.y : NULL
$ legend.key : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ legend.key.size : 'unit' num 1.2lines
..- attr(*, "valid.unit")= int 3
..- attr(*, "unit")= chr "lines"
$ legend.key.height : NULL
$ legend.key.width : NULL
$ legend.text :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : 'rel' num 0.8
..$ hjust : NULL
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ legend.text.align : NULL
$ legend.title :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : num 0
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ legend.title.align : NULL
$ legend.position : chr "right"
$ legend.direction : NULL
$ legend.justification : chr "center"
$ legend.box : NULL
$ legend.box.margin : 'margin' num [1:4] 0cm 0cm 0cm 0cm
..- attr(*, "valid.unit")= int 1
..- attr(*, "unit")= chr "cm"
$ legend.box.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ legend.box.spacing : 'unit' num 11pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ panel.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ panel.border : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ panel.spacing : 'unit' num 5.5pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ panel.spacing.x : NULL
$ panel.spacing.y : NULL
$ panel.grid :List of 6
..$ colour : chr "grey92"
..$ size : NULL
..$ linetype : NULL
..$ lineend : NULL
..$ arrow : logi FALSE
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_line" "element"
$ panel.grid.minor :List of 6
..$ colour : NULL
..$ size : 'rel' num 0.5
..$ linetype : NULL
..$ lineend : NULL
..$ arrow : logi FALSE
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_line" "element"
$ panel.ontop : logi FALSE
$ plot.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ plot.title :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : 'rel' num 1.2
..$ hjust : num 0
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 5.5pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ plot.subtitle :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : num 0
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 5.5pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ plot.caption :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : 'rel' num 0.8
..$ hjust : num 1
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 5.5pt 0pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ plot.tag :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : 'rel' num 1.2
..$ hjust : num 0.5
..$ vjust : num 0.5
..$ angle : NULL
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ plot.tag.position : chr "topleft"
$ plot.margin : 'margin' num [1:4] 5.5pt 5.5pt 5.5pt 5.5pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ strip.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ strip.placement : chr "inside"
$ strip.text :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : chr "grey10"
..$ size : 'rel' num 0.8
..$ hjust : NULL
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 4.4pt 4.4pt 4.4pt 4.4pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ strip.text.x : NULL
$ strip.text.y :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : NULL
..$ angle : num -90
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ strip.switch.pad.grid : 'unit' num 2.75pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ strip.switch.pad.wrap : 'unit' num 2.75pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
- attr(*, "class")= chr [1:2] "theme" "gg"
- attr(*, "complete")= logi TRUE
- attr(*, "validate")= logi TRUEggplot(ABORT2.fit4) +
aes(x=residuals) +
geom_density(adjust=1L,fill="#0c4c8a")
theme_minimal()List of 65
$ line :List of 6
..$ colour : chr "black"
..$ size : num 0.5
..$ linetype : num 1
..$ lineend : chr "butt"
..$ arrow : logi FALSE
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_line" "element"
$ rect :List of 5
..$ fill : chr "white"
..$ colour : chr "black"
..$ size : num 0.5
..$ linetype : num 1
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_rect" "element"
$ text :List of 11
..$ family : chr ""
..$ face : chr "plain"
..$ colour : chr "black"
..$ size : num 11
..$ hjust : num 0.5
..$ vjust : num 0.5
..$ angle : num 0
..$ lineheight : num 0.9
..$ margin : 'margin' num [1:4] 0pt 0pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : logi FALSE
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.title.x :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 2.75pt 0pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.title.x.top :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 0
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 2.75pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.title.y :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 1
..$ angle : num 90
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 2.75pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.title.y.right :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 0
..$ angle : num -90
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 0pt 2.75pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : chr "grey30"
..$ size : 'rel' num 0.8
..$ hjust : NULL
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text.x :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 2.2pt 0pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text.x.top :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 0
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 2.2pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text.y :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : num 1
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 2.2pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text.y.right :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : num 0
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 0pt 2.2pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.ticks : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ axis.ticks.length : 'unit' num 2.75pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ axis.ticks.length.x : NULL
$ axis.ticks.length.x.top : NULL
$ axis.ticks.length.x.bottom: NULL
$ axis.ticks.length.y : NULL
$ axis.ticks.length.y.left : NULL
$ axis.ticks.length.y.right : NULL
$ axis.line : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ axis.line.x : NULL
$ axis.line.y : NULL
$ legend.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ legend.margin : 'margin' num [1:4] 5.5pt 5.5pt 5.5pt 5.5pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ legend.spacing : 'unit' num 11pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ legend.spacing.x : NULL
$ legend.spacing.y : NULL
$ legend.key : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ legend.key.size : 'unit' num 1.2lines
..- attr(*, "valid.unit")= int 3
..- attr(*, "unit")= chr "lines"
$ legend.key.height : NULL
$ legend.key.width : NULL
$ legend.text :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : 'rel' num 0.8
..$ hjust : NULL
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ legend.text.align : NULL
$ legend.title :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : num 0
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ legend.title.align : NULL
$ legend.position : chr "right"
$ legend.direction : NULL
$ legend.justification : chr "center"
$ legend.box : NULL
$ legend.box.margin : 'margin' num [1:4] 0cm 0cm 0cm 0cm
..- attr(*, "valid.unit")= int 1
..- attr(*, "unit")= chr "cm"
$ legend.box.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ legend.box.spacing : 'unit' num 11pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ panel.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ panel.border : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ panel.spacing : 'unit' num 5.5pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ panel.spacing.x : NULL
$ panel.spacing.y : NULL
$ panel.grid :List of 6
..$ colour : chr "grey92"
..$ size : NULL
..$ linetype : NULL
..$ lineend : NULL
..$ arrow : logi FALSE
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_line" "element"
$ panel.grid.minor :List of 6
..$ colour : NULL
..$ size : 'rel' num 0.5
..$ linetype : NULL
..$ lineend : NULL
..$ arrow : logi FALSE
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_line" "element"
$ panel.ontop : logi FALSE
$ plot.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ plot.title :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : 'rel' num 1.2
..$ hjust : num 0
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 5.5pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ plot.subtitle :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : num 0
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 5.5pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ plot.caption :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : 'rel' num 0.8
..$ hjust : num 1
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 5.5pt 0pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ plot.tag :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : 'rel' num 1.2
..$ hjust : num 0.5
..$ vjust : num 0.5
..$ angle : NULL
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ plot.tag.position : chr "topleft"
$ plot.margin : 'margin' num [1:4] 5.5pt 5.5pt 5.5pt 5.5pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ strip.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ strip.placement : chr "inside"
$ strip.text :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : chr "grey10"
..$ size : 'rel' num 0.8
..$ hjust : NULL
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 4.4pt 4.4pt 4.4pt 4.4pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ strip.text.x : NULL
$ strip.text.y :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : NULL
..$ angle : num -90
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ strip.switch.pad.grid : 'unit' num 2.75pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ strip.switch.pad.wrap : 'unit' num 2.75pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
- attr(*, "class")= chr [1:2] "theme" "gg"
- attr(*, "complete")= logi TRUE
- attr(*, "validate")= logi TRUEggplot(ABORT2.fit4) +
aes(x="",y=residuals) +
geom_boxplot(fill="#0c4c8a")
theme_minimal()List of 65
$ line :List of 6
..$ colour : chr "black"
..$ size : num 0.5
..$ linetype : num 1
..$ lineend : chr "butt"
..$ arrow : logi FALSE
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_line" "element"
$ rect :List of 5
..$ fill : chr "white"
..$ colour : chr "black"
..$ size : num 0.5
..$ linetype : num 1
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_rect" "element"
$ text :List of 11
..$ family : chr ""
..$ face : chr "plain"
..$ colour : chr "black"
..$ size : num 11
..$ hjust : num 0.5
..$ vjust : num 0.5
..$ angle : num 0
..$ lineheight : num 0.9
..$ margin : 'margin' num [1:4] 0pt 0pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : logi FALSE
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.title.x :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 2.75pt 0pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.title.x.top :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 0
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 2.75pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.title.y :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 1
..$ angle : num 90
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 2.75pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.title.y.right :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 0
..$ angle : num -90
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 0pt 2.75pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : chr "grey30"
..$ size : 'rel' num 0.8
..$ hjust : NULL
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text.x :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 2.2pt 0pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text.x.top :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : num 0
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 2.2pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text.y :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : num 1
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 2.2pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.text.y.right :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : num 0
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 0pt 2.2pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ axis.ticks : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ axis.ticks.length : 'unit' num 2.75pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ axis.ticks.length.x : NULL
$ axis.ticks.length.x.top : NULL
$ axis.ticks.length.x.bottom: NULL
$ axis.ticks.length.y : NULL
$ axis.ticks.length.y.left : NULL
$ axis.ticks.length.y.right : NULL
$ axis.line : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ axis.line.x : NULL
$ axis.line.y : NULL
$ legend.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ legend.margin : 'margin' num [1:4] 5.5pt 5.5pt 5.5pt 5.5pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ legend.spacing : 'unit' num 11pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ legend.spacing.x : NULL
$ legend.spacing.y : NULL
$ legend.key : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ legend.key.size : 'unit' num 1.2lines
..- attr(*, "valid.unit")= int 3
..- attr(*, "unit")= chr "lines"
$ legend.key.height : NULL
$ legend.key.width : NULL
$ legend.text :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : 'rel' num 0.8
..$ hjust : NULL
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ legend.text.align : NULL
$ legend.title :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : num 0
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ legend.title.align : NULL
$ legend.position : chr "right"
$ legend.direction : NULL
$ legend.justification : chr "center"
$ legend.box : NULL
$ legend.box.margin : 'margin' num [1:4] 0cm 0cm 0cm 0cm
..- attr(*, "valid.unit")= int 1
..- attr(*, "unit")= chr "cm"
$ legend.box.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ legend.box.spacing : 'unit' num 11pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ panel.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ panel.border : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ panel.spacing : 'unit' num 5.5pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ panel.spacing.x : NULL
$ panel.spacing.y : NULL
$ panel.grid :List of 6
..$ colour : chr "grey92"
..$ size : NULL
..$ linetype : NULL
..$ lineend : NULL
..$ arrow : logi FALSE
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_line" "element"
$ panel.grid.minor :List of 6
..$ colour : NULL
..$ size : 'rel' num 0.5
..$ linetype : NULL
..$ lineend : NULL
..$ arrow : logi FALSE
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_line" "element"
$ panel.ontop : logi FALSE
$ plot.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ plot.title :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : 'rel' num 1.2
..$ hjust : num 0
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 5.5pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ plot.subtitle :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : num 0
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 0pt 0pt 5.5pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ plot.caption :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : 'rel' num 0.8
..$ hjust : num 1
..$ vjust : num 1
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 5.5pt 0pt 0pt 0pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ plot.tag :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : 'rel' num 1.2
..$ hjust : num 0.5
..$ vjust : num 0.5
..$ angle : NULL
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ plot.tag.position : chr "topleft"
$ plot.margin : 'margin' num [1:4] 5.5pt 5.5pt 5.5pt 5.5pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ strip.background : list()
..- attr(*, "class")= chr [1:2] "element_blank" "element"
$ strip.placement : chr "inside"
$ strip.text :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : chr "grey10"
..$ size : 'rel' num 0.8
..$ hjust : NULL
..$ vjust : NULL
..$ angle : NULL
..$ lineheight : NULL
..$ margin : 'margin' num [1:4] 4.4pt 4.4pt 4.4pt 4.4pt
.. ..- attr(*, "valid.unit")= int 8
.. ..- attr(*, "unit")= chr "pt"
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ strip.text.x : NULL
$ strip.text.y :List of 11
..$ family : NULL
..$ face : NULL
..$ colour : NULL
..$ size : NULL
..$ hjust : NULL
..$ vjust : NULL
..$ angle : num -90
..$ lineheight : NULL
..$ margin : NULL
..$ debug : NULL
..$ inherit.blank: logi TRUE
..- attr(*, "class")= chr [1:2] "element_text" "element"
$ strip.switch.pad.grid : 'unit' num 2.75pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
$ strip.switch.pad.wrap : 'unit' num 2.75pt
..- attr(*, "valid.unit")= int 8
..- attr(*, "unit")= chr "pt"
- attr(*, "class")= chr [1:2] "theme" "gg"
- attr(*, "complete")= logi TRUE
- attr(*, "validate")= logi TRUEr4abep.confint(ABORT2.lm4) Estimate 2.5 % 97.5 %
(Intercept) 1.8796565812 0.9965187603 2.7627944021
income 0.0001214204 0.0000835427 0.0001592982
picket -0.0059154224 -0.0097726555 -0.0020581894
price -0.0032739169 -0.0054339861 -0.0011138477newdata <- data.frame(
price=c(250,300,225),
income=c(20000,18000,15000),
picket=c(45,65,55)
)
r4abep.predict(ABORT2.lm4,newdata) fit lwr upr
1 3.223392 3.056875 3.389909
2 2.698547 2.582326 2.814768
3 2.638984 2.418762 2.859205ABORT2.lm4.pred <- r4abep.predict(ABORT2.lm4,newdata)
log(ABORT2.lm4.pred) fit lwr upr
1 1.1704343 1.1173933 1.220803
2 0.9927135 0.9486905 1.034880
3 0.9703939 0.8832559 1.050544exp(ABORT2.lm4.pred) fit lwr upr
1 25.11317 21.26102 29.66326
2 14.85813 13.22787 16.68931
3 13.99897 11.23195 17.44766LS0tDQp0aXRsZTogIlJlZ3Jlc3Npb24gVG9vbHMgQW5kIEZ1bmN0aW9ucyINCnN1YnRpdGxlOiAiR3JhcGhpY2FsIGFuZCBOdW1lcmljYWwgUmVncmVzc2lvbiBEaWFnbm9zdGljcyINCmF1dGhvcjogIkNocmlzdGlhbiBQYXVsbyBHdWFuem9uIg0KZGF0ZTogQXByaWwgNCwgMjAyMA0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KYGBge3J9DQpzb3VyY2UoInNjcmlwdHMvcjRhYmVwLTAzLlIiKQ0KYGBgDQoNCmBgYHtyfQ0KQUJPUlQgPC0gcmVhZFhMKCJBQk9SVC54bHMiKQ0KQUJPUlQNCmBgYA0KDQpgYGB7cn0NCnN0cihBQk9SVCkNCmBgYA0KDQpgYGB7cn0NCnN1bW1hcnkoQUJPUlQpDQpgYGANCg0KYGBge3J9DQpBQk9SVC5sbSA8LSBsbShhYm9ydGlvbn5lZHVjK2Z1bmRzK2luY29tZStsYXdzK3BpY2tldCtwcmljZStyZWxpZ2lvbixkYXRhPUFCT1JUKQ0Kc3VtbWFyeShBQk9SVC5sbSkNCmBgYA0KDQpgYGB7cn0NCnI0YWJlcC5wbG90bG0oQUJPUlQubG0pDQpgYGANCg0KYGBge3J9DQpBQk9SVDIgPC0gQUJPUlRbLDI6OV0NCnJvd25hbWVzKEFCT1JUMikgPC0gQUJPUlRbLDFdDQpBQk9SVDINCmBgYA0KDQpgYGB7cn0NCnN0cihBQk9SVDIpDQpgYGANCg0KYGBge3J9DQpzdW1tYXJ5KEFCT1JUMikNCmBgYA0KDQpgYGB7cn0NCkFCT1JUMi5sbSA8LSBsbShhYm9ydGlvbn4uLGRhdGE9QUJPUlQyKQ0Kc3VtbWFyeShBQk9SVDIubG0pDQpgYGANCg0KYGBge3J9DQpyNGFiZXAucGxvdGxtKEFCT1JUMi5sbSkNCmBgYA0KDQpgYGB7cn0NCnI0YWJlcC5zdGVwKEFCT1JUMi5sbSwiYmFja3dhcmQiLCJBSUMiKQ0KYGBgDQoNCmBgYHtyfQ0KcjRhYmVwLnN0ZXAoQUJPUlQyLmxtLCJmb3J3YXJkIiwiQUlDIikNCmBgYA0KDQpgYGB7cn0NCnI0YWJlcC5zdGVwKEFCT1JUMi5sbSwiYmFja3dhcmQiLCJCSUMiKQ0KYGBgDQoNCmBgYHtyfQ0KcjRhYmVwLnN0ZXAoQUJPUlQyLmxtLCJmb3J3YXJkIiwiQklDIikNCmBgYA0KDQpgYGB7cn0NCkFCT1JUMi5sbTIgPC0gbG0oYWJvcnRpb25+cHJpY2UrZWR1YytpbmNvbWUrcGlja2V0LGRhdGE9QUJPUlQyKQ0Kc3VtbWFyeShBQk9SVDIubG0yKQ0KYGBgDQoNCmBgYHtyfQ0KQUJPUlQyLmxtMyA8LSBsbShhYm9ydGlvbn5wcmljZStpbmNvbWUrcGlja2V0LGRhdGE9QUJPUlQyKQ0Kc3VtbWFyeShBQk9SVDIubG0zKQ0KYGBgDQoNCmBgYHtyfQ0KcjRhYmVwLmNvbXBhcmVsbShBQk9SVDIubG0sQUJPUlQyLmxtMixBQk9SVDIubG0zKQ0KYGBgDQoNCg0KYGBge3J9DQpBQk9SVDIubG00IDwtIGxtKGxvZyhhYm9ydGlvbil+aW5jb21lK3BpY2tldCtwcmljZSxkYXRhPUFCT1JUMikNCnN1bW1hcnkoQUJPUlQyLmxtNCkNCmBgYA0KDQoNCmBgYHtyfQ0KcjRhYmVwLmNvbXBhcmVsbShBQk9SVDIubG0sQUJPUlQyLmxtMixBQk9SVDIubG0zLEFCT1JUMi5sbTQpDQpgYGANCg0KDQpgYGB7cn0NCnI0YWJlcC5haWMoQUJPUlQyLmxtLEFCT1JUMi5sbTIsQUJPUlQyLmxtMyxBQk9SVDIubG00KQ0KYGBgDQoNCmBgYHtyfQ0KcjRhYmVwLmJpYyhBQk9SVDIubG0sQUJPUlQyLmxtMixBQk9SVDIubG0zLEFCT1JUMi5sbTQpDQpgYGANCg0KYGBge3J9DQpyNGFiZXAucGxvdGxtKEFCT1JUMi5sbTQpDQpgYGANCg0KDQpgYGB7cn0NCnI0YWJlcC52aWYoQUJPUlQyLmxtNCkNCmBgYA0KDQoNCmBgYHtyfQ0KcjRhYmVwLmJwKEFCT1JUMi5sbTQpDQpgYGANCg0KYGBge3J9DQpyNGFiZXAuZHcoQUJPUlQyLmxtNCkNCmBgYA0KDQpgYGB7cn0NCnI0YWJlcC5yZXNldChBQk9SVDIubG00KQ0KYGBgDQoNCmBgYHtyfQ0KQUJPUlQyLmZpdDMgPC0gcjRhYmVwLmFkZGZpdChBQk9SVDIsQUJPUlQyLmxtMykNCnN1bW1hcnkoQUJPUlQyLmZpdDMpDQpgYGANCg0KYGBge3J9DQpBQk9SVDIuZml0Mw0KYGBgDQoNCg0KYGBge3J9DQpBQk9SVDIuZml0NCA8LSByNGFiZXAuYWRkZml0KEFCT1JUMixBQk9SVDIubG00KQ0KQUJPUlQyLmZpdDRbImxvZy55Il0gPC0gbG9nKEFCT1JUMiRhYm9ydGlvbikNCkFCT1JUMi5maXQ0DQpgYGANCg0KYGBge3J9DQpsaWJyYXJ5KGdncGxvdDIpDQpnZ3Bsb3QoQUJPUlQyLmZpdDQpICsNCiAgYWVzKHg9bG9nLnkseT1maXR0ZWQpICsNCiAgZ2VvbV9wb2ludChzaXplPTFMLGNvbG91cj0iIzBjNGM4YSIpICsNCiAgZ2VvbV9zbW9vdGgoc3Bhbj0wLjc1KSArDQogIHRoZW1lX21pbmltYWwoKQ0KYGBgDQoNCmBgYHtyfQ0KZ2dwbG90KEFCT1JUMi5maXQ0KSArDQogIGFlcyh4PWxvZy55LHk9Zml0dGVkKSArDQogIGdlb21fcG9pbnQoc2l6ZT0xTCxjb2xvdXI9IiMwYzRjOGEiKSArDQogIGdlb21fc21vb3RoKG1ldGhvZD1sbSkgKw0KICB0aGVtZV9taW5pbWFsKCkNCmBgYA0KDQpgYGB7cn0NCmdncGxvdChBQk9SVDIuZml0NCkgKw0KICBhZXMoeD1yZXNpZHVhbHMpICsNCiAgZ2VvbV9oaXN0b2dyYW0oYmlucz0xMEwsZmlsbD0iIzBjNGM4YSIpDQogIHRoZW1lX21pbmltYWwoKQ0KYGBgDQoNCmBgYHtyfQ0KZ2dwbG90KEFCT1JUMi5maXQ0KSArDQogIGFlcyh4PXJlc2lkdWFscykgKw0KICBnZW9tX2RlbnNpdHkoYWRqdXN0PTFMLGZpbGw9IiMwYzRjOGEiKQ0KICB0aGVtZV9taW5pbWFsKCkNCmBgYA0KDQoNCmBgYHtyfQ0KZ2dwbG90KEFCT1JUMi5maXQ0KSArDQogIGFlcyh4PSIiLHk9cmVzaWR1YWxzKSArDQogIGdlb21fYm94cGxvdChmaWxsPSIjMGM0YzhhIikNCiAgdGhlbWVfbWluaW1hbCgpDQpgYGANCg0KDQpgYGB7cn0NCnI0YWJlcC5jb25maW50KEFCT1JUMi5sbTQpDQpgYGANCg0KDQpgYGB7cn0NCm5ld2RhdGEgPC0gZGF0YS5mcmFtZSgNCiAgcHJpY2U9YygyNTAsMzAwLDIyNSksDQogIGluY29tZT1jKDIwMDAwLDE4MDAwLDE1MDAwKSwNCiAgcGlja2V0PWMoNDUsNjUsNTUpDQopDQpyNGFiZXAucHJlZGljdChBQk9SVDIubG00LG5ld2RhdGEpDQpgYGANCg0KDQpgYGB7cn0NCkFCT1JUMi5sbTQucHJlZCA8LSByNGFiZXAucHJlZGljdChBQk9SVDIubG00LG5ld2RhdGEpDQpsb2coQUJPUlQyLmxtNC5wcmVkKQ0KYGBgDQoNCmBgYHtyfQ0KZXhwKEFCT1JUMi5sbTQucHJlZCkNCmBgYA0KDQoNCg0KDQoNCg0KDQoNCg0KDQo=