Displaying 1 result from an estimated 1 matches for "argdata".
Did you mean:
aggdata
2002 Feb 12
1
problem plotting nls objects: couldn't find function "..."
...)
args <- dots
else args <- list()
data <- as.list(c(as.list(data), . = list(object)))
covF <- getCovariateFormula(form)
.x <- eval(covF[[2]], data)
if (!is.numeric(.x)) {
stop("Covariate must be numeric")
}
argForm <- ~.x
argData <- data.frame(.x = .x, check.names = FALSE)
if (is.null(xlab <- attr(.x, "label"))) {
xlab <- deparse(covF[[2]])
if (!is.null(cF) && (xlab == cF))
xlab <- cL
else if (!is.null(rF) && (xlab == rF))
xlab <-...