search for: novarying

Displaying 2 results from an estimated 2 matches for "novarying".

2006 Jan 08
1
confint/nls
...tArgs[[2]], gradSetArgs[[2]], ! gradSetArgs[[3]]), call("[", gradSetArgs[[1]], gradSetArgs[[2]], gradSetArgs[[2]], ! gradSetArgs[[3]], gradSetArgs[[4]])) getRHS.varying <- function() { ans <- getRHS.noVarying() --- 266,277 ---- gradSetArgs[[1]] <- (~attr(ans, "gradient"))[[2]] gradCall <- switch(length(gradSetArgs) - 1, ! call("[", gradSetArgs[[1]], gradSetArgs[[2]],drop=FALSE), ! call("[", gradSetArgs[[1]], gradS...
2018 May 05
0
Bug in profile.nls with algorithm = "plinear"
...TRUE, TRUE, TRUE), #R> c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, #R> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), c(TRUE, TRUE)] f2$m$setVarying # [output output abbreviated] environment(f2$m$setVarying)$getRHS.varying #R> function () #R> { #R> ans <- getRHS.noVarying() #R> attr(ans, "gradient") <- eval(gradCall) #R> ans #R> } #R> <bytecode: 0x000000000ce31768> #R> <environment: 0x000000000cbdbad0> dim(attr(environment(f2$m$setVarying)$getRHS.noVarying(), "gradient")) #R> [1] 16 2 2 sapply(ca[3:5], len...