citHeader("To cite robustbase in publications use:")

if(!exists("meta") || is.null(meta)) meta <- packageDescription("robustbase")
year <- sub("-.*", "", meta$Date)
note <- sprintf("R package version %s", meta$Version)
fullTitle <- paste(meta$Package, meta$Title, sep = ": ")
authors <- eval(parse(text = meta$`Authors@R`))
aut.gf <- lapply(unclass(authors), `[`, c("given", "family"))
authNms <- sapply(aut.gf, paste, collapse = " ")
collNms <- function(nms)
    paste(paste(nms[-length(nms)], collapse = ", "), "and", nms[length(nms)])

citEntry(entry = "Manual", title = fullTitle,
         author = authors, year = year, note = note,
         url = "http://robustbase.r-forge.r-project.org/",
         url = "http://CRAN.R-project.org/package=robustbase",
  textVersion =
  paste(collNms(authNms), sprintf("(%s).", year), fullTitle,
        paste(note, ".", sep = ""),
        "URL http://CRAN.R-project.org/package=robustbase"),
  header = paste("To cite package", sQuote(meta$Package), "in publications use:")
  )

citEntry(entry = "Article",
  title        = "An Object-Oriented Framework for Robust Multivariate Analysis",
  author       = personList(as.person("Valentin Todorov"),
                   as.person("Peter Filzmoser")),
  journal      = "Journal of Statistical Software",
  year         = "2009",
  volume       = "32",
  number       = "3",
  pages        = "1--47",
  url          = "http://www.jstatsoft.org/v32/i03/",

  textVersion  =
  paste("Valentin Todorov, Peter Filzmoser (2009).",
        "An Object-Oriented Framework for Robust Multivariate Analysis.",
        "Journal of Statistical Software, 32(3), 1-47.",
        "URL http://www.jstatsoft.org/v32/i03/."),
  header = "To cite the multivariate class/methods framework use:"
)

