1 Monitoramento da Av. Eng. Luiz Englert-Paulo Gama durante a implantação de faixa exclusiva da ônibus
2 Manhã
Dados Waze e sua representação:
Os traçados representam filas de lentidão baseadas na localização e velocidade dos usuários do Waze.
O Waze gera informações de congestionamento de tráfego processando as seguintes fontes de dados:
● Pontos de localização GPS enviados pelos telefones dos usuários (usuários que dirigem enquanto usam o aplicativo) e cálculos da velocidade real vs. velocidade média (no intervalo de tempo específico) e velocidade livre de fluxo (velocidade máxima medida no segmento da via).
● Os dados de velocidade média por trecho são dados pela Velocidade média atual em segmentos congestionados em metros/segundos.
2.1 Velocidades médias no sistema Av. Eng. Luiz Englert-Paulo Gama no pico da manhã
Registros de 27/01/2020 a 28/10/2020 (Dias úteis)
O sistema é constituído pelas seguintes vias: Av. Eng. Luiz Englert-Paulo Gama, Av. Loureiro da Silva, R. Sarmento Leite, Av. João Pessoa, Av. Setembrina
Os dados permitem demonstrar a existência de uma correlação positiva. de 0.0203656 entre a variação das velocidades médias associadas a Av. Eng. Luiz Englert-Paulo Gama e o sistema Av. Eng. Luiz Englert-Paulo Gama, indicando fraca associação entre os dois cenários. Ainda a aplicação de uma regressão linear entre as velocidades médias diárias na Av. Eng. Luiz Englert-Paulo Gama demonstra que apenas -12.45% da variação no sistema Av. Eng. Luiz Englert-Paulo Gama é explicado pela velocidade da Av. Eng. Luiz Englert-Paulo Gama a um P-valor de 0.955.
##
## Call:
## lm(formula = speedKMH.x ~ speedKMH.y, data = correlacao)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.9091 -1.8135 -0.8489 0.2830 5.3691
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 10.37470 3.18649 3.256 0.0116 *
## speedKMH.y 0.03271 0.56775 0.058 0.9555
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2.649 on 8 degrees of freedom
## Multiple R-squared: 0.0004148, Adjusted R-squared: -0.1245
## F-statistic: 0.003319 on 1 and 8 DF, p-value: 0.9555
2.2 Mapa de filas no pico da manhã
Foram identificados no período da manhã 3 alertas de filas na Av. Eng. Luiz Englert-Paulo Gama entre os dias 27/01/2020 e 28/10/2020, utilizando registros de 3 wazers.
2.3 Desempenho
2.4 ANOVA Manhã
##
## Call:
## lm(formula = speedKMH.x ~ periodoJunc, data = as)
##
## Residuals:
## Min 1Q Median 3Q Max
## -10.1690 -0.0228 0.0144 0.1915 7.9310
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 5.4378 0.2597 20.942
## periodoJuncAv. Eng. Luiz Englert-Paulo Gama Após -0.0372 0.3315 -0.112
## periodoJuncSistema Antes 5.8740 0.3672 15.996
## periodoJuncSistema Após 8.0812 0.3315 24.381
## Pr(>|t|)
## (Intercept) <0.0000000000000002 ***
## periodoJuncAv. Eng. Luiz Englert-Paulo Gama Após 0.911
## periodoJuncSistema Antes <0.0000000000000002 ***
## periodoJuncSistema Após <0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2.463 on 462 degrees of freedom
## Multiple R-squared: 0.6952, Adjusted R-squared: 0.6932
## F-statistic: 351.3 on 3 and 462 DF, p-value: < 0.00000000000000022## Analysis of Variance Table
##
## Response: speedKMH.x
## Df Sum Sq Mean Sq F value Pr(>F)
## periodoJunc 3 6395.1 2131.70 351.28 < 0.00000000000000022 ***
## Residuals 462 2803.6 6.07
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1##
## Shapiro-Wilk normality test
##
## data: resid(modelo.anova2)
## W = 0.84553, p-value < 0.00000000000000022## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 3 137.55 < 0.00000000000000022 ***
## 462
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = speedKMH.x ~ periodoJunc, data = as)
##
## $periodoJunc
## diff
## Av. Eng. Luiz Englert-Paulo Gama Após-Av. Eng. Luiz Englert-Paulo Gama Antes -0.03720396
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Antes 5.87396507
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Antes 8.08115857
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Após 5.91116904
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Após 8.11836253
## Sistema Após-Sistema Antes 2.20719350
## lwr
## Av. Eng. Luiz Englert-Paulo Gama Após-Av. Eng. Luiz Englert-Paulo Gama Antes -0.8918354
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Antes 4.9271091
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Antes 7.2265271
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Após 5.0565376
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Após 7.3671944
## Sistema Após-Sistema Antes 1.3525620
## upr
## Av. Eng. Luiz Englert-Paulo Gama Após-Av. Eng. Luiz Englert-Paulo Gama Antes 0.8174275
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Antes 6.8208211
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Antes 8.9357900
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Após 6.7658005
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Após 8.8695307
## Sistema Após-Sistema Antes 3.0618250
## p adj
## Av. Eng. Luiz Englert-Paulo Gama Após-Av. Eng. Luiz Englert-Paulo Gama Antes 0.9994937
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Antes 0.0000000
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Antes 0.0000000
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Após 0.0000000
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Após 0.0000000
## Sistema Após-Sistema Antes 0.00000002.4.1 Velocidades Praticadas
No cenário da MANHÃ no período anterior a 27/01/2020 a velocidade média em momentos de congestionamento na Av. Eng. Luiz Englert-Paulo Gama foi de 5.4378333, com erro padrão de 0.0489593 e no período posterior a velocidade média no trecho foi de 5.4006294, com erro padrão de 0.0110899.
o p-valor=0 do teste Shapiro atesta que as distribuições amostrais no período da MANHÃ seguem distribuições não normais, enquanto que o teste de Levene com p-valor=0 demonstra que não há igualdade de variância entre as amostras, e por fim, o teste de Tukey demonstra a existencia de diferença entre as médias das amostras:
3 Tarde
3.1 Velocidades médias no sistema Av. Eng. Luiz Englert-Paulo Gama no pico da tarde
Os dados permitem demonstrar a existência de uma correlação positiva de 0.0203656 entre a variação das velocidades médias associadas a Av. Eng. Luiz Englert-Paulo Gama e o sistema Av. Eng. Luiz Englert-Paulo Gama, indicando fraca associação entre os dois cenários. Ainda a aplicação de uma regressão linear entre as velocidades médias diárias na Av. Eng. Luiz Englert-Paulo Gama demonstra que apenas -1.87% da variação no sistema Av. Eng. Luiz Englert-Paulo Gama é explicado pela velocidade da Av. Eng. Luiz Englert-Paulo Gama a um P-valor de 0.936.
##
## Call:
## lm(formula = speedKMH.x ~ speedKMH.y, data = correlacao)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.9799 -1.1767 -0.3207 1.1948 4.7179
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.83890 1.31335 7.491 0.000000000731 ***
## speedKMH.y 0.01682 0.20766 0.081 0.936
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.98 on 53 degrees of freedom
## Multiple R-squared: 0.0001237, Adjusted R-squared: -0.01874
## F-statistic: 0.006558 on 1 and 53 DF, p-value: 0.9358
3.2 Mapa de filas no pico da TARDE
Registros de 27/01/2020 a 28/10/2020 (Dias úteis) Foram identificados no período da tarde 27 alertas de filas na Av. Eng. Luiz Englert-Paulo Gama entre os dias 27/01/2020 e 28/10/2020, utilizando registros de 32 wazers.
3.3 Desempenho
3.4 ANOVA Tarde
##
## Call:
## lm(formula = speedKMH.x ~ periodoJunc, data = bs)
##
## Residuals:
## Min 1Q Median 3Q Max
## -11.6467 -0.5336 0.0539 0.8058 9.3833
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 6.1930 0.2926 21.167
## periodoJuncAv. Eng. Luiz Englert-Paulo Gama Após -0.1202 0.3938 -0.305
## periodoJuncSistema Antes 4.3181 0.4138 10.436
## periodoJuncSistema Após 9.2437 0.3938 23.470
## Pr(>|t|)
## (Intercept) <0.0000000000000002 ***
## periodoJuncAv. Eng. Luiz Englert-Paulo Gama Após 0.76
## periodoJuncSistema Antes <0.0000000000000002 ***
## periodoJuncSistema Após <0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2.852 on 420 degrees of freedom
## Multiple R-squared: 0.6597, Adjusted R-squared: 0.6572
## F-statistic: 271.4 on 3 and 420 DF, p-value: < 0.00000000000000022## Analysis of Variance Table
##
## Response: speedKMH.x
## Df Sum Sq Mean Sq F value Pr(>F)
## periodoJunc 3 6620.5 2206.83 271.36 < 0.00000000000000022 ***
## Residuals 420 3415.7 8.13
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1##
## Shapiro-Wilk normality test
##
## data: resid(modelo.anova2)
## W = 0.87898, p-value < 0.00000000000000022## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 3 110.04 < 0.00000000000000022 ***
## 420
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = speedKMH.x ~ periodoJunc, data = bs)
##
## $periodoJunc
## diff
## Av. Eng. Luiz Englert-Paulo Gama Após-Av. Eng. Luiz Englert-Paulo Gama Antes -0.1202436
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Antes 4.3180680
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Antes 9.2437066
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Após 4.4383116
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Após 9.3639503
## Sistema Após-Sistema Antes 4.9256387
## lwr
## Av. Eng. Luiz Englert-Paulo Gama Após-Av. Eng. Luiz Englert-Paulo Gama Antes -1.136108
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Antes 3.250794
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Antes 8.227842
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Após 3.422447
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Após 8.402239
## Sistema Após-Sistema Antes 3.909774
## upr
## Av. Eng. Luiz Englert-Paulo Gama Após-Av. Eng. Luiz Englert-Paulo Gama Antes 0.895621
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Antes 5.385342
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Antes 10.259571
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Após 5.454176
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Após 10.325662
## Sistema Após-Sistema Antes 5.941503
## p adj
## Av. Eng. Luiz Englert-Paulo Gama Após-Av. Eng. Luiz Englert-Paulo Gama Antes 0.9901132
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Antes 0.0000000
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Antes 0.0000000
## Sistema Antes-Av. Eng. Luiz Englert-Paulo Gama Após 0.0000000
## Sistema Após-Av. Eng. Luiz Englert-Paulo Gama Após 0.0000000
## Sistema Após-Sistema Antes 0.00000003.4.1 Velocidades Praticadas
No cenário da TARDE no período anterior a 27/01/2020 a velocidade média em momentos de congestionamento na Av. Eng. Luiz Englert-Paulo Gama foi de 6.1929956, com erro padrão de 0.1023891 e no período posterior a velocidade média no trecho foi de 6.0727519, com erro padrão de 0.0310553. o p-valor=0 do teste Shapiro atesta que as distribuições amostrais no período da MANHÃ seguem distribuições não normais, enquanto que o teste de Levene com p-valor=0 demonstra que não há igualdade de variância entre as amostras, e por fim, o teste de Tukey demonstra a existencia de diferença entre as médias das amostras:
4 Entre Picos
4.1 Mapa de filas no entre picos
Registros de 27/01/2020 a 28/10/2020 (Dias úteis)
Foram identificados no período de entre picos 6 alertas de filas na Av. Eng. Luiz Englert-Paulo Gama entre os dias 27/01/2020 e 28/10/2020, utilizando registros de 6 wazers.
## R version 3.6.2 (2019-12-12)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 10 x64 (build 18363)
##
## Matrix products: default
##
## locale:
## [1] LC_COLLATE=Portuguese_Brazil.1252 LC_CTYPE=Portuguese_Brazil.1252
## [3] LC_MONETARY=Portuguese_Brazil.1252 LC_NUMERIC=C
## [5] LC_TIME=Portuguese_Brazil.1252
##
## attached base packages:
## [1] stats graphics grDevices utils datasets methods base
##
## other attached packages:
## [1] ggpmisc_0.3.3 ggplot2_3.3.0 stringr_1.4.0 chron_2.3-54 mapview_2.7.0
## [6] sp_1.3-2 tidyr_1.0.2 dplyr_0.8.5 jsonlite_1.6.1 car_3.0-7
## [11] carData_3.0-3
##
## loaded via a namespace (and not attached):
## [1] nlme_3.1-142 sf_0.9-3 satellite_1.0.2
## [4] webshot_0.5.2 tools_3.6.2 rgdal_1.4-8
## [7] R6_2.4.1 KernSmooth_2.23-16 DBI_1.1.0
## [10] mgcv_1.8-31 colorspace_1.4-1 raster_3.0-12
## [13] withr_2.1.2 tidyselect_0.2.5 leaflet_2.0.3
## [16] curl_4.3 compiler_3.6.2 leafem_0.0.1
## [19] cli_2.0.1 labeling_0.3 scales_1.1.0
## [22] classInt_0.4-2 systemfonts_0.1.1 digest_0.6.23
## [25] foreign_0.8-72 rmarkdown_2.2.2 svglite_1.2.2
## [28] rio_0.5.16 base64enc_0.1-3 pkgconfig_2.0.3
## [31] htmltools_0.4.0 fastmap_1.0.1 htmlwidgets_1.5.1
## [34] rlang_0.4.5 readxl_1.3.1 shiny_1.4.0.2
## [37] farver_2.0.1 crosstalk_1.0.0 zip_2.0.4
## [40] magrittr_1.5 polynom_1.4-0 Matrix_1.2-18
## [43] Rcpp_1.0.4.6 munsell_0.5.0 fansi_0.4.1
## [46] abind_1.4-5 gdtools_0.2.1 lifecycle_0.2.0
## [49] stringi_1.4.4 yaml_2.2.0 grid_3.6.2
## [52] promises_1.1.0 forcats_0.4.0 crayon_1.3.4
## [55] lattice_0.20-38 haven_2.2.0 splines_3.6.2
## [58] hms_0.5.3 leafpop_0.0.5 knitr_1.26
## [61] pillar_1.4.3 uuid_0.1-2 codetools_0.2-16
## [64] stats4_3.6.2 glue_1.4.0 evaluate_0.14
## [67] leaflet.providers_1.9.0 data.table_1.12.8 png_0.1-7
## [70] vctrs_0.2.4 httpuv_1.5.2 cellranger_1.1.0
## [73] gtable_0.3.0 purrr_0.3.3 assertthat_0.2.1
## [76] xfun_0.11 openxlsx_4.1.4 mime_0.8
## [79] xtable_1.8-4 e1071_1.7-3 later_1.0.0
## [82] class_7.3-15 viridisLite_0.3.0 tibble_3.0.0
## [85] units_0.6-5 ellipsis_0.3.0 brew_1.0-6