1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
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 = "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:")
)
bibentry(bibtype = "Article",
title = "An Object-Oriented Framework for Robust Multivariate Analysis",
author = c(as.person("Valentin Todorov"),
as.person("Peter Filzmoser")),
journal = "Journal of Statistical Software",
year = "2009",
volume = "32",
number = "3",
pages = "1--47",
url = "https://www.jstatsoft.org/article/view/v032i03/",
textVersion =
paste("Valentin Todorov, Peter Filzmoser (2009).",
"An Object-Oriented Framework for Robust Multivariate Analysis.",
"Journal of Statistical Software, 32(3), 1-47.",
"URL https://www.jstatsoft.org/article/view/v032i03/."),
header = "To cite the multivariate class/methods framework use:"
)
|
