library(dplyr)
dat <- sim_dat()$full_df
head(dat)
dat <- dat %>% tidyr::uncount(weights = count, .remove = FALSE)
val_dat <- mask_by_spp(dat, props_to_val = c(rep(.1, 4), rep(.4, 4)))
val_dat$final_df %>% group_by(id_spp) %>%
summarize(prop_vald = sum(!is.na(true_spp))/n())
Run the code above in your browser using DataLab