#7 abs.iwres.vs.idv broken in 4.0.1 release

[Anonymous]

abs.iwres.vs.idv
function (object, ylb = "|iWRES|", smooth = TRUE, idsdir = "up",
type = "p", ...)
{
if (is.null(check.vars(c("idv", "iwres"), object, silent = FALSE))) {
return()
}
xplot <- xpose.plot.default(xvardef("idv", object), xvardef("iwre",
object), object, ylb = ylb, fun = "abs", idsdir = idsdir,
smooth = smooth, type = type, ...)
return(xplot)
}

should be

abs.iwres.vs.idv
function (object, ylb = "|iWRES|", smooth = TRUE, idsdir = "up",
type = "p", ...)
{
if (is.null(check.vars(c("idv", "iwres"), object, silent = FALSE))) {
return()
}
xplot <- xpose.plot.default(xvardef("idv", object), xvardef("iwres",
object), object, ylb = ylb, fun = "abs", idsdir = idsdir,
smooth = smooth, type = type, ...)
return(xplot)
}

Another way to fix it is by changing xvardef to:

xvardef <- function(x,object){
if (sum(tolower(x) == tolower(object@Prefs@Xvardef)) == 1){
return(object@Prefs@Xvardef[[which(tolower(x) == tolower(object@Prefs@Xvardef))]]);
} else if (sum(regexpr(tolower(paste("^",x)),tolower(names(object@Prefs@Xvardef))) != -1)==1){
return(object@Prefs@Xvardef[[regexpr(tolower(paste("^",x)),tolower(names(object@Prefs@Xvardef))) != -1]]);
} else {
return(NULL);
}
}

which makes it case insensitive and allows iwre to translate to iwres.

(I was using R 2.7.1)

Matt Fidler

matthew dot fidler at gmail dot com

[Nobody/Anonymous]

Logged In: NO

Actually should be:

xvardef <- function(x,object){
if (sum(tolower(x) == tolower(names(object@Prefs@Xvardef))) == 1){
return(object@Prefs@Xvardef[[which(tolower(x) == tolower(object@Prefs@Xvardef))]]);
} else if (sum(regexpr(tolower(paste("^",x)),tolower(names(object@Prefs@Xvardef))) != -1)==1){
return(object@Prefs@Xvardef[[regexpr(tolower(paste("^",x)),tolower(names(object@Prefs@Xvardef))) != -1]]);
} else {
return(NULL);
}
}

Matt F.

[Nobody/Anonymous]

Logged In: NO

Last bugfix?

xvardef <- function(x,object){
if (sum(tolower(x) == tolower(object@Prefs@Xvardef)) == 1){
return(object@Prefs@Xvardef[[which(tolower(x) ==
tolower(names(object@Prefs@Xvardef)))]]);
} else if
(sum(regexpr(tolower(paste("^",x)),tolower(names(object@Prefs@Xvardef))) !=
-1)==1){

return(object@Prefs@Xvardef[[regexpr(tolower(paste("^",x)),tolower(names(ob
ject@Prefs@Xvardef))) != -1]]);
} else {
return(NULL);
}
}

Matt F.