Displaying 2 results from an estimated 2 matches for "gradsetargs".
2006 Jan 08
1
confint/nls
...(m2[[p]],start=s2[[p]],alg="plinear")
}
print(resmat)
set.seed(1002)
example(nls,local=TRUE)
diffs:
--
*** /usr/local/src/R/R-devel/src/library/stats/R/nls.R 2006-01-07
10:57:08.000000000 -0500
--- nlsnew.R 2006-01-07 19:18:53.000000000 -0500
***************
*** 266,277 ****
gradSetArgs[[1]] <- (~attr(ans, "gradient"))[[2]]
gradCall <-
switch(length(gradSetArgs) - 1,
! call("[", gradSetArgs[[1]], gradSetArgs[[2]]),
! call("[", gradSetArgs[[1]], gradSetArgs[[2]],
gradSetArgs[[2]]),...
2018 May 05
0
Bug in profile.nls with algorithm = "plinear"
...nvironment: 0x000000000cbdbad0>
dim(attr(environment(f2$m$setVarying)$getRHS.noVarying(), "gradient"))
#R> [1] 16 2 2
sapply(ca[3:5], length)
#R> [1] 16 16 2
#####
# It seems like the `nlsModel.plinear` in `stats/R/nls.R` should be
#
# # ...
# for(i in 1:marg + 1L)
# gradSetArgs[[i]] <- rep_len(TRUE, dimGrad[i-1])
# # ...
# gradCall <-
# switch(length(gradSetArgs) - 1L,
# call("[", gradSetArgs[[1L]], drop = FALSE, gradSetArgs[[2L]]),
# call("[", gradSetArgs[[1L]], drop = FALSE,
gradSetArgs[[2L]], gradSetArgs[[3L]]),
#...