The R Project SVN R

Rev

Rev 87992 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 87992 Rev 87999
Line 96... Line 96...
96 
chkNlm(l3.10, estimate = c(1,1), # lower tolerances now, notably for fgh:
 96 
chkNlm(l3.10, estimate = c(1,1), # lower tolerances now, notably for fgh:
97 
       ##                  nl.f   nl.fg  nl.fgh
 97 
       ##                  nl.f   nl.fg  nl.fgh
98 
       tols = list(min = c(1e-9, 1e-20, 1e-16),
 98 
       tols = list(min = c(1e-9, 1e-20, 1e-16),
99 
                   est = c(1e-4, 1e-10, 1e-14),
 99 
                   est = c(1e-4, 1e-10, 1e-14),
100 
                   grad= c(1e-3,  6e-9, 1e-12)),
 100 
                   grad= c(1e-3,  6e-9, 1e-12)),
101 
       codes.wanted = if(Lb64) 1:2 else 1:3)
 101 
       codes.wanted = 1:3) # was  if(Lb64) 1:2 else 1:3
- 
 
 102 
       ## but Intel (2025.0.4) compilers returned (3 1 1)
- 
 
 103 
 
102 
 
 104 
 
103 
## all 3 fail to converge here
 105 
## all 3 fail to converge here
104 
str(l3.1c <- nlm3(x0 = c(-100, 100), iterlim = 1000))
 106 
str(l3.1c <- nlm3(x0 = c(-100, 100), iterlim = 1000))
105 
## i.e., all convergence codes > 1:
 107 
## i.e., all convergence codes > 1:
106 
sapply(l3.1c, `[[`, "code")
 108 
sapply(l3.1c, `[[`, "code")