citHeader("To cite support.BWS in publications use:")

year <- sub(".*(2[[:digit:]]{3})-.*", "\\1", meta$Date, perl = TRUE)
vers <- paste("R package version", meta$Version)

bibentry(
  bibtype   = "Article",
  title     = "R packages and tutorial for case 1 best-worst scaling",
  author    = c(person("Hideo", "Aizaki"), person("James", "Fogarty")),
  year      = "2023",
  journal   = "Journal of Choice Modelling",
  volume    = "46",
  pages     = "100394",
  doi       = "10.1016/j.jocm.2022.100394",

  textVersion =
  paste("Aizaki H, Fogarty J (2023).",
        "R packages and tutorial for case 1 best-worst scaling.",
        "Journal of Choice Modelling, 46, 100394.",
        "DOI https://doi.org/10.1016/j.jocm.2022.100394.")
)

bibentry(
  bibtype  = "Manual",
  title    = "{support.BWS: Tools for Case 1 Best-Worst Scaling}",
  author   = c(person("Hideo", "Aizaki")),
  year     = year,
  note     = vers,
  url      = "https://CRAN.R-project.org/package=support.BWS",

  textVersion =
  paste("Aizaki H (",year, "). ",
        "support.BWS: Tools for Case 1 Best-Worst Scaling. ",
        vers, ". ",
        "URL https://CRAN.R-project.org/package=support.BWS.", sep="")
)

