Searched refs:nlr2 (Results 1 – 1 of 1) sorted by relevance
| /dports/math/R-cran-robustbase/robustbase/tests/ |
| H A D | nlrob-tst.R | 85 nlr2 <- update(nlr1, psi = psiTuk) # now *does* converge... globalVar
87 stopifnot(is.list(mod <- nlr2$model), is.data.frame(mod),
90 nlr2$dataClasses),
93 nlr2. <- update(nlr2, algorithm= "port")
99 stopifnot(all.equal(nlr2[i.], nlr2.[i.], tolerance = 2e-5, check.environment = FALSE),
102 identical(which(abs(nlr2$rweights) < 1e-9), c(1L, 10 :12)),
|