1 Monitoramento Av. Independência durante a implantação de faixa exclusiva de ô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. Independência no pico da manhã

Registros de 21/10/2019 a 25/01/2022 (Dias úteis)

O sistema é constituído pelas seguintes vias: Av. Independência - Pista Dir., Av. Independência, R. Sarmento Leite, R. Prof. Annes Dias, R. Tomaz Flores, R. Santo Antônio, R. Garibaldi, Av. Osvaldo Aranha, R. Mostardeiro

Os dados permitem demonstrar a existência de uma correlação positiva. de 0.1665078 entre a variação das velocidades médias associadas a Av. Independência e o sistema Av. Independência, 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. Independência demonstra que apenas 2.36% da variação no sistema Av. Independência é explicado pela velocidade da Av. Independência a um P-valor de 0.01.

## 
## Call:
## lm(formula = speedKMH.x ~ speedKMH.y, data = correlacao)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -5.1665 -0.9765 -0.0145  0.9540  4.5394 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) 10.87351    0.37482  29.010 < 0.0000000000000002 ***
## speedKMH.y   0.08047    0.03089   2.605              0.00976 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.528 on 238 degrees of freedom
## Multiple R-squared:  0.02772,    Adjusted R-squared:  0.02364 
## F-statistic: 6.787 on 1 and 238 DF,  p-value: 0.009763

2.2 Mapa de filas no pico da manhã

Foram identificados no período da manhã 352 alertas de filas na Av. Independência entre os dias 21/10/2019 e 25/01/2022, utilizando registros de 423 wazers.

2.3 Desempenho

2.4 ANOVA Manhã

## 
## Call:
## lm(formula = speedKMH.x ~ periodoJunc, data = as)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -9.7965 -0.5515 -0.0567  0.5950 10.0218 
## 
## Coefficients:
##                                   Estimate Std. Error t value
## (Intercept)                        10.7345     0.2759  38.907
## periodoJuncAv. Independência Após   1.0037     0.2840   3.534
## periodoJuncSistema Antes            1.1340     0.3902   2.906
## periodoJuncSistema Após             1.4620     0.2840   5.147
##                                               Pr(>|t|)    
## (Intercept)                       < 0.0000000000000002 ***
## periodoJuncAv. Independência Após             0.000421 ***
## periodoJuncSistema Antes                      0.003704 ** 
## periodoJuncSistema Após                    0.000000295 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.911 on 1696 degrees of freedom
## Multiple R-squared:  0.02444,    Adjusted R-squared:  0.02272 
## F-statistic: 14.16 on 3 and 1696 DF,  p-value: 0.000000004051

## Analysis of Variance Table
## 
## Response: speedKMH.x
##               Df Sum Sq Mean Sq F value         Pr(>F)    
## periodoJunc    3  155.3  51.751  14.164 0.000000004051 ***
## Residuals   1696 6196.8   3.654                           
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## 
##  Shapiro-Wilk normality test
## 
## data:  resid(modelo.anova2)
## W = 0.89333, p-value < 0.00000000000000022

## Levene's Test for Homogeneity of Variance (center = median)
##         Df F value                Pr(>F)    
## group    3  55.901 < 0.00000000000000022 ***
##       1696                                  
## ---
## 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        lwr       upr
## Av. Independência Após-Av. Independência Antes 1.0036759  0.2732563 1.7340954
## Sistema Antes-Av. Independência Antes          1.1339941  0.1306148 2.1373733
## Sistema Após-Av. Independência Antes           1.4619983  0.7315787 2.1924178
## Sistema Antes-Av. Independência Após           0.1303182 -0.6001013 0.8607378
## Sistema Após-Av. Independência Após            0.4583224  0.2128523 0.7037925
## Sistema Após-Sistema Antes                     0.3280042 -0.4024154 1.0584237
##                                                    p adj
## Av. Independência Após-Av. Independência Antes 0.0023756
## Sistema Antes-Av. Independência Antes          0.0193799
## Sistema Após-Av. Independência Antes           0.0000018
## Sistema Antes-Av. Independência Após           0.9679118
## Sistema Após-Av. Independência Após            0.0000102
## Sistema Após-Sistema Antes                     0.6554877

2.4.1 Velocidades Praticadas

No cenário da MANHÃ no período anterior a 21/10/2019 a velocidade média em momentos de congestionamento na Av. Independência foi de 10.7344931, com erro padrão de 0.1635553 e no período posterior a velocidade média no trecho foi de 11.738169, com erro padrão de 0.0608599.
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:

2.5 Transporte Público

2.5.1 Linha: T9 - T9 Puc

Performance do trecho entre P.O. INDEPENDÊNCIA CB 01 - Av. Independência, 343 - Independência, Porto Alegre - RS, 90035-072 e P.O. INDEPENDÊNCIA CB 05 - Av. Independência, 1149 - Independência, Porto Alegre - RS, 90035-072.

2.5.2 Linha: 510 - AUXILIADORA

2.5.3 Todas Linhas: Faixa exclusiva Independência

2.5.4 Comparativo

3 Tarde

3.1 Velocidades médias no sistema Av. Independência no pico da tarde

Os dados permitem demonstrar a existência de uma correlação positiva de 0.1665078 entre a variação das velocidades médias associadas a Av. Independência e o sistema Av. Independência, 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. Independência demonstra que apenas 18.89% da variação no sistema Av. Independência é explicado pela velocidade da Av. Independência a um P-valor de 0.

## 
## Call:
## lm(formula = speedKMH.x ~ speedKMH.y, data = correlacao)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.7465 -1.0250 -0.1223  0.9724  6.1805 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept)  7.23490    0.40166  18.013 < 0.0000000000000002 ***
## speedKMH.y   0.26136    0.03332   7.844    0.000000000000114 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.546 on 259 degrees of freedom
## Multiple R-squared:  0.192,  Adjusted R-squared:  0.1889 
## F-statistic: 61.53 on 1 and 259 DF,  p-value: 0.0000000000001143

3.2 Mapa de filas no pico da TARDE

Registros de 21/10/2019 a 25/01/2022 (Dias úteis) Foram identificados no período da tarde 421 alertas de filas na Av. Independência entre os dias 21/10/2019 e 25/01/2022, utilizando registros de 538 wazers.

3.3 Desempenho

3.4 ANOVA Tarde

## 
## Call:
## lm(formula = speedKMH.x ~ periodoJunc, data = bs)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -7.8487 -0.7419 -0.0739  0.6952  8.4913 
## 
## Coefficients:
##                                   Estimate Std. Error t value
## (Intercept)                        10.5240     0.2809  37.466
## periodoJuncAv. Independência Após   1.2581     0.2895   4.345
## periodoJuncSistema Antes           -0.3160     0.3972  -0.795
## periodoJuncSistema Após             0.8648     0.2895   2.987
##                                               Pr(>|t|)    
## (Intercept)                       < 0.0000000000000002 ***
## periodoJuncAv. Independência Após            0.0000147 ***
## periodoJuncSistema Antes                       0.42647    
## periodoJuncSistema Após                        0.00286 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.966 on 1664 degrees of freedom
## Multiple R-squared:  0.0302, Adjusted R-squared:  0.02845 
## F-statistic: 17.27 on 3 and 1664 DF,  p-value: 0.00000000004793

## Analysis of Variance Table
## 
## Response: speedKMH.x
##               Df Sum Sq Mean Sq F value           Pr(>F)    
## periodoJunc    3  200.3  66.779  17.272 0.00000000004793 ***
## Residuals   1664 6433.4   3.866                             
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## 
##  Shapiro-Wilk normality test
## 
## data:  resid(modelo.anova2)
## W = 0.92626, p-value < 0.00000000000000022

## Levene's Test for Homogeneity of Variance (center = median)
##         Df F value                Pr(>F)    
## group    3  81.335 < 0.00000000000000022 ***
##       1664                                  
## ---
## 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        lwr        upr
## Av. Independência Após-Av. Independência Antes  1.2581024  0.5135382  2.0026667
## Sistema Antes-Av. Independência Antes          -0.3159860 -1.3375580  0.7055860
## Sistema Após-Av. Independência Antes            0.8647664  0.1202021  1.6093306
## Sistema Antes-Av. Independência Após           -1.5740884 -2.3186527 -0.8295242
## Sistema Após-Av. Independência Após            -0.3933361 -0.6485664 -0.1381058
## Sistema Após-Sistema Antes                      1.1807524  0.4361881  1.9253166
##                                                    p adj
## Av. Independência Após-Av. Independência Antes 0.0000869
## Sistema Antes-Av. Independência Antes          0.8565359
## Sistema Após-Av. Independência Antes           0.0151574
## Sistema Antes-Av. Independência Após           0.0000004
## Sistema Após-Av. Independência Após            0.0004475
## Sistema Após-Sistema Antes                     0.0002774

3.4.1 Velocidades Praticadas

No cenário da TARDE no período anterior a 21/10/2019 a velocidade média em momentos de congestionamento na Av. Independência foi de 10.5239592, com erro padrão de 0.1786658 e no período posterior a velocidade média no trecho foi de 11.7820616, com erro padrão de 0.0570863. 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.5 Transporte Público

3.5.1 Linha: T9 - T9 Puc

3.5.2 Linha: 510 - AUXILIADORA

3.5.3 Todas Linhas: Faixa exclusiva Independência

3.5.4 Comparativo

4 Entre Picos

4.1 Mapa de filas no entre picos

Registros de 21/10/2019 a 25/01/2022 (Dias úteis)

Foram identificados no período de entre picos 540 alertas de filas na Av. Independência entre os dias 21/10/2019 e 25/01/2022, utilizando registros de 645 wazers.

5 FEs Monitoradas no estudo

## R version 3.6.2 (2019-12-12)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Debian GNU/Linux 10 (buster)
## 
## Matrix products: default
## BLAS/LAPACK: /usr/lib/x86_64-linux-gnu/libopenblasp-r0.3.5.so
## 
## locale:
##  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
##  [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
##  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=C             
##  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
##  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
## [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## other attached packages:
##  [1] data.table_1.14.2 sf_1.0-2          hms_1.1.0         raster_3.4-13    
##  [5] ggpmisc_0.4.0     ggpp_0.4.1        ggplot2_3.3.5     stringr_1.4.0    
##  [9] chron_2.3-56      mapview_2.10.0    sp_1.4-5          tidyr_1.1.3      
## [13] dplyr_1.0.7       jsonlite_1.7.2    car_3.0-11        carData_3.0-4    
## 
## loaded via a namespace (and not attached):
##  [1] nlme_3.1-142            matrixStats_0.60.0      satellite_1.0.2        
##  [4] webshot_0.5.2           tools_3.6.2             bslib_0.2.5.1          
##  [7] utf8_1.2.2              rgdal_1.5-23            R6_2.5.0               
## [10] KernSmooth_2.23-16      DBI_1.1.1               mgcv_1.8-31            
## [13] colorspace_2.0-2        withr_2.4.2             tidyselect_1.1.1       
## [16] leaflet_2.0.4.1         curl_4.3.2              compiler_3.6.2         
## [19] leafem_0.1.6            quantreg_5.86           SparseM_1.81           
## [22] labeling_0.4.2          sass_0.4.0              scales_1.1.1           
## [25] classInt_0.4-3          proxy_0.4-26            systemfonts_1.0.2      
## [28] digest_0.6.28           foreign_0.8-72          svglite_2.0.0          
## [31] rmarkdown_2.9           rio_0.5.27              base64enc_0.1-3        
## [34] pkgconfig_2.0.3         htmltools_0.5.2         fastmap_1.1.0          
## [37] highr_0.9               htmlwidgets_1.5.3       rlang_0.4.12           
## [40] readxl_1.3.1            jquerylib_0.1.4         generics_0.1.0         
## [43] farver_2.1.0            crosstalk_1.1.1         zip_2.2.0              
## [46] magrittr_2.0.1          polynom_1.4-0           Matrix_1.2-18          
## [49] Rcpp_1.0.7              munsell_0.5.0           fansi_0.5.0            
## [52] abind_1.4-5             lifecycle_1.0.0         stringi_1.7.5          
## [55] yaml_2.2.1              grid_3.6.2              forcats_0.5.1          
## [58] crayon_1.4.1            lattice_0.20-38         haven_2.4.1            
## [61] splines_3.6.2           leafpop_0.1.0           knitr_1.36             
## [64] pillar_1.6.1            uuid_0.1-4              codetools_0.2-16       
## [67] stats4_3.6.2            glue_1.4.2              evaluate_0.14          
## [70] leaflet.providers_1.9.0 png_0.1-7               vctrs_0.3.8            
## [73] MatrixModels_0.5-0      cellranger_1.1.0        gtable_0.3.0           
## [76] purrr_0.3.4             assertthat_0.2.1        xfun_0.27              
## [79] openxlsx_4.2.4          e1071_1.7-8             class_7.3-15           
## [82] tibble_3.1.3            conquer_1.0.2           units_0.7-2            
## [85] brew_1.0-6              ellipsis_0.3.2