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...