Remove periods and threshold: hex_params_1d_treated <- fst::read_fst(paste0(dir_existing_generated,"df_hex_treated.fst")) %>% dplyr::filter(THI>0 & THO>0 & Delta_Th>0 & BranchHF>0 & TCI>0 & TCO>0 & Delta_Tc>0 & BranchCF>0) %>% dplyr::filter(!is.na(Resistance)) %>%dplyr::filter(DateTime < "2020-06-01")