The data used in this document were provided in file Traffic_analysis_by_segment_143panthers_corrected_20201023.xlsx. They are from the FWS spreadsheet used to do the FREM predictions for the ECMSHCP analysis.
PVM counts are those recorded from beginning of March 2014 - end of Feb 2019 (5 years).
Checks to be sure data match that in the FWS spreadsheet.
sum(HCP_data$totPVM) #133
## [1] 133
sum(HCP_data$aaPVM) #26.6 = 133/5
## [1] 26.6
sum(HCP_data$pred_aaPVM) #50.48024
## [1] 50.48024
sum(HCP_data$pred_totPVM) #252.4012=50.480249*5
## [1] 252.4012
sum(HCP_data$pred_aaPVM_HCP) #14.78414
## [1] 14.78414
sum(HCP_data$pred_aaPVM_HCP)*5 #73.92
## [1] 73.92071
sum(na.omit(traffic_df$AADT2017)) #1,615,158 - matches
## [1] 1615158
sum(na.omit(traffic_df$AADT2060)) #2,516,234 - matches
## [1] 2516234
length(HCP_data$totPVM)#90
## [1] 90
sum(HCP_data$pred_aaPVM) - sum(HCP_data$aaPVM) #23.88
## [1] 23.88024
sum(HCP_data$pred_aaPVM)/sum(HCP_data$aaPVM) #1.8977
## [1] 1.897753
sum(HCP_data$pred_totPVM) - sum(HCP_data$totPVM) #119.40
## [1] 119.4012
sum(HCP_data$pred_totPVM)/sum(HCP_data$totPVM) #1.8977
## [1] 1.897753
#PVM for segments with PVM, but no AADT data
HCP_noAADT_data <- dplyr::filter(traffic_df, is.na(AADT2017)==TRUE)
table(HCP_noAADT_data$totPVM) #5 with 1 PVM and 1 with 2 PVM
##
## 1 2
## 5 1
In the following blot blue points are HCP, gray are non-HCP, and black is total
| segment | AADT2017 | AADT2060 | AADT_ratio | aaPVM | pred_aaPVM | prop_HCP | AADTratio_HCP | pred_aaPVM_HCP |
|---|---|---|---|---|---|---|---|---|
| SR 29 at Sunniland Mine | 4104 | 21716.60 | 5.291569 | 0.4 | 2.116628 | 0.6582538 | 3.483195 | 1.3932781 |
| SR 82: Mine Entrance to Corkscrew Blvd | 13233 | 37726.44 | 2.850936 | 1.0 | 2.850936 | 0.4563438 | 1.301007 | 1.3010071 |
| Church Rd.: Collier Co Ln to SR 29 | 450 | 10287.44 | 22.860978 | 0.2 | 4.572196 | 0.1064120 | 2.432682 | 0.4865365 |