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)])

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

bibentry(bibtype = "Article",
  title        = "A Composite Divergence Approach to Robust Multivariate Estimation under Cellwise and Casewise Contamination",
  author       = c(as.person("Abhik Ghosh"),
                   as.person("Claudio Agostinelli"),
                   as.person("Ayanendranath Basu")),
  journal      = "arXiv:2608.18914",
  year         = "2026",
  url = "https://arxiv.org/abs/2608.18914", 
  textVersion  =
  paste("Abhik Ghosh, Claudio Agostinelli and Ayanendranath Basu (2026).",
        "A Composite Divergence Approach to Robust Multivariate Estimation under Cellwise and Casewise Contamination",
        "arXiv:2608.18914",
        "URL https://arxiv.org/abs/2608.18914"),
  header = "To cite the mathodology and the theoretical results use:"
)
