if(!exists("meta") || is.null(meta))
    meta <- packageDescription("mbest")

citHeader("To cite package ’mbest’ in publications use:")

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

citEntry(entry="Article",
         author=personList(as.person("Patrick O. Perry")),
         year="2016",
         title="Fast moment-based estimation for hierarchical models",
         journal=paste0("Journal of the Royal Statistical Society:",
                        " Series B (Statistical Methodology)"),
         note="Forthcoming",
         textVersion=paste0("P. O. Perry (2016). Fast moment-based",
                            " estimation for hierarchical models.",
                            " Journal of the Royal Statistical Society:",
                            " Series B (Statistical Methodology).",
                            " Forthcoming."))
