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

if(!exists("meta") || is.null(meta)) meta <- packageDescription("semicontMANOVA")
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=semicontMANOVA",
  textVersion =
  paste(collNms(authNms), sprintf("(%s).", year), fullTitle,
         paste(note, ".", sep = ""),
         "URL http://CRAN.R-project.org/package=semicontMANOVA"),
  header = paste("To cite package", sQuote(meta$Package),
         "in publications use:")
)

bibentry(bibtype = "Article",
  title        = "A regularized MANOVA test for semicontinuous high-dimensional data",
  author       = c(as.person("Elena Sabbioni"),
                   as.person("Claudio Agostinelli"),
                   as.person("Alessio Farcomeni")),
  journal      = "Biometrical Journal",
  year         = "2025",
  url = "https://onlinelibrary.wiley.com/doi/10.1002/bimj.70054", 
  textVersion  =
  paste("Elena Sabbioni, Claudio Agostinelli and Alessio Farcomeni (2025).",
        "A regularized MANOVA test for semicontinuous high-dimensional data",
        "Biometrical Journal",
        "URL https://onlinelibrary.wiley.com/doi/10.1002/bimj.70054"),
  header = "To cite the methodology and the theoretical results use:"
)
