| /dports/math/R-cran-robustbase/robustbase/tests/ |
| H A D | nlregrob-tst.R | 214 assert.EQ(coef(Rfit.MM.S.bisquare), cfcl, tol = 0.01, giveRE=TRUE)
216 assert.EQ(coef(Rfit.MM.S.lqq), cfcl, tol = 0.01, giveRE=TRUE)
217 assert.EQ(coef(Rfit.MM.S.optimal), cfcl, tol = 0.01, giveRE=TRUE)
218 assert.EQ(coef(Rfit.MM.S.hampel), cfcl, tol = 0.01, giveRE=TRUE)
221 assert.EQ(coef(Rfit.MM.lts.lqq), cfcl, tol = 0.01, giveRE=TRUE)
222 assert.EQ(coef(Rfit.MM.lts.optimal), cfcl, tol = 0.01, giveRE=TRUE)
223 assert.EQ(coef(Rfit.MM.lts.hampel), cfcl, tol = 0.01, giveRE=TRUE)
225 assert.EQ(coef(Rfit.tau.optimal), cfcl, tol = 0.01, giveRE=TRUE)
226 assert.EQ(coef(Rfit.CM)[-3], cfcl, tol = 0.01, giveRE=TRUE)
227 assert.EQ(coef(Rfit.mtl)[-3], cfcl, tol = 0.02, giveRE=TRUE)
[all …]
|
| H A D | poisson-ex.R | 34 assert.EQ(coef(scl), coef(sc2), tol = 6e-6, giveRE=TRUE) # 1.37e-6
48 assert.EQ(cf.sc, coef(sc2), tol = 4e-7, giveRE=TRUE) # 8.48e-8
88 assert.EQ(cf2, unname(coef(sglm.r2)[, 1:2]), tol = 1e-9, giveRE=TRUE)#-> show : ~ 1.46e-11
118 , tol = 1e-13, check.attributes=FALSE, giveRE=TRUE)
167 assert.EQ(beta1[[1]], beta1[[2]], tol = 0.004, check.attributes=FALSE, giveRE=TRUE)
169 assert.EQ(beta1[[2]], beta1[[3]], tol = 0.002, check.attributes=FALSE, giveRE=TRUE)
174 check.attributes=FALSE, giveRE=TRUE)
191 , tol = 1e-12, check.attributes=FALSE, giveRE=TRUE)
221 assert.EQ(beta2[[1]], beta2[[2]], tol = 0.001, check.attributes=FALSE, giveRE=TRUE)
223 assert.EQ(beta2[[2]], beta2[[3]], tol = 0.001, check.attributes=FALSE, giveRE=TRUE)
[all …]
|
| H A D | comedian-tst.R | 42 assert.EQ(C0, diag(p), tol= 0.04, giveRE=TRUE) #-> 0.02805
43 assert.EQ(C., diag(p), tol= 0.09, giveRE=TRUE) #-> 0.06475
59 assert.EQ(C0, diag(p), tol = 0.025, giveRE=TRUE) # 0.0162
60 assert.EQ(C., diag(p), tol = 0.06 , giveRE=TRUE) # 0.0486
64 assert.EQ(c00, rep(10, p), tol = 2e-4, giveRE=TRUE)# 7.97267e-05 = "raw" is better ?
65 assert.EQ(c0 , rep(10, p), tol = 2e-4, giveRE=TRUE)# 0.0001036
|
| H A D | nlrob-tst.R | 30 assert.EQ(coef(rm1), giveRE=TRUE,
32 assert.EQ(sqrt(diag(sm1$cov)), giveRE=TRUE,
137 c(a=16.167493, b=10.0986644, c=0.0200814189), tol = 7e-7, giveRE=TRUE) nameattr
141 assert.EQ(predict(nlR1), predict(nlbi), tol = 0.05, giveRE=TRUE)
142 assert.EQ(predict(nlR1), predict(nlFH), tol = 0.05, giveRE=TRUE)
|
| H A D | glmrob-1.R | 90 coef(m.r1), tol= 1e-14, giveRE=TRUE)
97 assert.EQ(m.r2A[iB], m.r2[iB], tol = .003, giveRE=TRUE)
102 m.r2$coef, tol=8e-10, giveRE=TRUE)# seen 5.316e-10 for --disable-long-double
|
| H A D | mc-strict.R | 15 assertEQm12 <- function(x,y, giveRE=TRUE, ...) argument
16 assert.EQ(x,y, tol = 1e-12, giveRE=giveRE, ...)
|
| H A D | lmrob-psifns.R | 187 assert.EQ(attr(ctr9$tuning.psi, "constants"), tpsi., tol=tol4, giveRE=TRUE)
188 assert.EQ(attr(ctr9$tuning.chi, "constants"), tchi., tol=tol4, giveRE=TRUE)
|
| H A D | MT-tst.R | 171 assert.EQ(print(ccvv[1]), 0.0145309081924157, tol = 1e-7, giveRE=TRUE)
|
| H A D | lmrob-psifns.Rout.save | 705 > assert.EQ(attr(ctr9$tuning.psi, "constants"), tpsi., tol=tol4, giveRE=TRUE)
707 > assert.EQ(attr(ctr9$tuning.chi, "constants"), tchi., tol=tol4, giveRE=TRUE)
|
| /dports/math/R-cran-lme4/lme4/tests/ |
| H A D | optimizer.R | 36 assert.EQ(fm1C,fm1E, tol=1e-5, giveRE=TRUE)# prints unless tolerance=0--equality
54 assert.EQ(gm1E,gm1C, tol=1e-5, giveRE=TRUE)# prints unless tol=0--equality
|
| /dports/math/R-cran-expm/expm/tests/ |
| H A D | ex.R | 184 assert.EQ(diag(x = c(1,2,2)), solve(W4) %*% A4 %*% W4, giveRE=TRUE)
185 assert.EQ(A4, logm(expm(A4)), tol = 3e-13, giveRE=TRUE)
|