Displaying 1 result from an estimated 1 matches for "respf".
Did you mean:
resp
2002 Feb 12
1
problem plotting nls objects: couldn't find function "..."
...;- attr(.x, "label"))) {
xlab <- deparse(covF[[2]])
if (!is.null(cF) && (xlab == cF))
xlab <- cL
else if (!is.null(rF) && (xlab == rF))
xlab <- rL
}
if (is.null(args$xlab))
args$xlab <- xlab
respF <- getResponseFormula(form)
if (!is.null(respF)) {
.y <- eval(respF[[2]], data)
if (is.null(ylab <- attr(.y, "label"))) {
ylab <- deparse(respF[[2]])
if (!is.null(cF) && (ylab == cF))
ylab <- cL...