Entering edit mode
Paul Boutros
▴
340
@paul-boutros-371
Last seen 10.1 years ago
Hello,
I think there's a minor bug in get.psi.code of fitPLM. Here's the
function:
> get.psi.code
function (name)
{
psi.names <- c("Huber", "fair", "Cauchy", "Geman-McClure",
"Welsch", "Tukey", "Andrews")
if (!is.element(name, psi.names)) {
stop(paste(name, "is not a valid Psi type. Please use one
of:",
"Huber", "fair", "Cauchy", "Geman-Mclure", "Welsch",
"Tukey", "Andrews"))
}
code <- c(0:6)[name == psi.names]
code
}
In psi.names function is checking for the string "Geman-McClure" but
in the
stop statement it reports the name as "Geman-Mclure" (missing a C).
Paul
