library(dplyr)
cd_data <- sim_dat()$full_df %>% tidyr::uncount(weights = count, .remove = FALSE)
FE_data <- mask_FE_all_visits(cd_data, effort_prop = 0.1)
head(cd_data)
head(FE_data)
FE_data %>%
group_by(site, visit) %>%
summarize(
prop_validated = sum(!is.na(true_spp))/n()
)
Run the code above in your browser using DataLab