Only used for examples
Details
This is obtained with:
set.seed(2329)
df_g <- tibble::tibble(c14 = round(runif(8, -100, 100)), # best prediction
sd1 = round(runif(8, 5, 20)), # one sd
species = rep(c("fox", "hound"), each=4), # dummy grouping
site = rep(letters[1:2], each=2, times=2), # dummy sites
mes = c(1:4, 4:1) + runif(8, -0.5, 0.5))
usethis::use_data(df_g, overwrite=TRUE)