year <- if (!is.null(meta$`Date/Publication`)) {
  substr(meta$`Date/Publication`, 1, 4)
} else {
  format(Sys.Date(), "%Y")
}

bibentry(
  bibtype = "Article",
  header = "To cite the method, please use:",
  title = "Guessing and Forgetting: A Latent Class Model for Measuring Learning",
  author = c(person("Ken", "Cor"), person("Gaurav", "Sood")),
  journal = "Political Analysis",
  year = 2016,
  volume = 24,
  number = 2,
  pages = "226--242",
  doi = "10.1093/pan/mpw010"
)

bibentry(
  bibtype = "Manual",
  header = "To cite the software, please use:",
  title = paste0(meta$Package, ": ", meta$Title),
  author = c(person("Gaurav", "Sood"), person("Ken", "Cor")),
  year = year,
  note = paste("R package version", meta$Version),
  doi = "10.32614/CRAN.package.guess",
  url = "https://github.com/finite-sample/guess"
)
