search for: asonesidedformula

Dear all, I am trying to gain some experience with the function gnls from the nlme package. I tried to model the Theophyline data by trying to model the presumed dependency of the clearance on the body weight. This is my function call of gnls: gnls(conc~SSfol(Dose,Time,lKe,lKa,lCl),data=Theoph, params=list(lKe~1,lKa~1,lCl~Wt),start=c(-2.4,0.46,-3.22,0.01)) That's been the result: Error

...(idResType) id <- switch(mode(id), numeric = { if ((id <= 0) || (id >= 1)) { stop("Id must be between 0 and 1") } as.logical(abs(resid(object, type = idResType)) > -qnorm(id/2)) }, call = eval(asOneSidedFormula(id)[[2]], data), stop("\"Id\" can only be a formula or numeric.")) if (is.null(idLabels)) { idLabels <- getGroups(object) if (length(idLabels) == 0) idLabels <- 1:object$dims$N idLabels <- as.character(idLabel...

...on frame of the formula: glsSt <- glsStruct(corStruct = correlation, varStruct = varFunc(weights)) mfArgs <- list(formula = asOneFormula(formula(glsSt), model, groups), data = data, na.action = na.action) if (!missing(subset)) { mfArgs[["subset"]] <- asOneSidedFormula(Call[["subset"]])[[2]] } mfArgs$drop.unused.levels <- TRUE dataMod <- do.call("model.frame", mfArgs) Thanks, Jeremy Primer -------------------------------------------------------- This is not an offer (or solicitation of an offer) to buy/sell the securitie...

...Data")) { stop(paste(sys.call()[[1]], "without \"primary\" can only be used with fits of groupedData objects")) } primary <- getCovariate(data) prName <- deparse(getCovariateFormula(data)[[2]]) } else { primary <- asOneSidedFormula(primary)[[2]] prName <- deparse(primary) primary <- eval(primary, data) } # allow for non numeric covariates # if (!is.null(newprim)) { newprimary <- newprim } else if (is.numeric(primary)) { newprimary <- seq(from = minimum, to = maximum,...

I'm having trouble understanding how functions in the subset argument for lmList search for the objects they need. This trivial example produces "Error in rownames(fakedf) : Object "fakedf" not found": library(nlme) fitbyID <- function() { fakedf <- data.frame(ID = gl(5, 10, 50), A = sample(1:100, 50), B = rnorm(50))

...R/library/nls/R-ex/SSfol.R action: create D: file: /usr/local/lib/R/library/nls/R-ex/SSfpl.R action: create D: file: /usr/local/lib/R/library/nls/R-ex/SSlogis.R action: create D: file: /usr/local/lib/R/library/nls/R-ex/SSmicmen.R action: create D: file: /usr/local/lib/R/library/nls/R-ex/asOneSidedFormula.R action: create D: file: /usr/local/lib/R/library/nls/R-ex/clearNames.R action: create D: file: /usr/local/lib/R/library/nls/R-ex/formula.nls.R action: create D: file: /usr/local/lib/R/library/nls/R-ex/getInitial.R action: create D: file: /usr/local/lib/R/library/nls/R-ex/logLik.R acti...

...html latex example SSlogis text html latex example SSmicmen text html latex example SSweibull text html latex example Theoph text html latex example asOneSidedFormula text html latex example clearNames text html latex example formula.nls text html latex example getInitial text html latex example nls text htm...