Displaying 2 results from an estimated 2 matches for "gradcall".
2006 Jan 08
1
confint/nls
...eed(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]]),
call("[", gradSetArgs[[1]], gradSetArgs[[2]],
gradSetA...
2018 May 05
0
Bug in profile.nls with algorithm = "plinear"
...nfint(f2) # this fails
#R> Waiting for profiling to be done...
#R> Error in attr(ans, "gradient")[c(TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, TRUE, :
#R> (subscript) logical subscript too long
traceback()
# [output output abbreviated]
#####
# It seems to fail due to the dimension in gradCall
environment(f1$m$setPars)$gradCall
#R> attr(ans, "gradient")[c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
#R> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE),
#R> c(TRUE, TRUE, TRUE, TRUE), drop = FALSE]
(ca <- environment(f2$m$setPars)$gradCall)
#R> attr(ans, "...