citHeader("To cite the 'IMIFA' package in publications, please use:")

citEntry(entry  = "Article",
  author  = personList(person(given="Keefe", family="Murphy"),
                       person(given="Cinzia", family="Viroli")),
                       person(given=c("Isobel", "Claire"), family="Gormley"),
  title   = "Infinite Mixtures of Infinite Factor Analysers",
  year    = "2018",
  journal = "To appear",
  volume  = "",
  number  = "",
  pages   = "",
  url     = "https://arxiv.org/abs/1701.07010v4",
  archivePrefix = "arXiv",
  eprint  = "arXiv:1701.07010v4",
  primaryClass  = "stat.ME",

  textVersion   =
    paste0("Keefe Murphy, Cinzia Viroli, and I. Claire Gormley (2018). ",
           "Infinite Mixtures of Infinite Factor Analysers. ",
           "To appear. ",
           "Pre-print available at arXiv. ",
           "URL: https://arxiv.org/abs/1701.07010v4.")
)

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

citEntry(entry  = "Manual",
  author  = personList(person(given="Keefe", family="Murphy"),
                       person(given="Cinzia", family="Viroli"),
                       person(given=c("Isobel", "Claire"), family="Gormley")),
  title   = "\\texttt{\\textup{IMIFA}}: Infinite Mixtures of Infinite Factor Analysers and Related Models",
  year    = year,
  note    = paste0("{R} ", vers),
  url     = "https://cran.r-project.org/package=IMIFA",

  textVersion   =
    paste0("Keefe Murphy, Cinzia Viroli, and I. Claire Gormley (", year, "). ",
           "IMIFA: Infinite Mixtures of Infinite Factor Analysers and Related Models. ",
           "URL: https://cran.r-project.org/package=IMIFA ", "R ", vers)
)
