# NOT RUN {
pm <- 1:3
names(pm) <- as.character(paste0('m', 1:3))
expand.grid(paste0('m', 1:3), paste0('m', 1:3)) %>%
tibble::as_tibble() %>%
dplyr::mutate(log10lik = rgamma(9, 5)) %>%
calc_profile_lods() %>%
add_pmap(pm)
# }
Run the code above in your browser using DataLab