diff options
Diffstat (limited to 'R/gdistremoval.R')
-rw-r--r-- | R/gdistremoval.R | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/R/gdistremoval.R b/R/gdistremoval.R index b253625..db5439b 100644 --- a/R/gdistremoval.R +++ b/R/gdistremoval.R @@ -199,19 +199,19 @@ setMethod("getDesign", "unmarkedFrameGDR", if(return.frames) return(list(sc=sc, ysc=ysc, oc=oc)) - lam_fixed <- lme4::nobars(formula$lambdaformula) + lam_fixed <- remove_bars(formula$lambdaformula) Xlam <- model.matrix(lam_fixed, model.frame(lam_fixed, sc, na.action=NULL)) - phi_fixed <- lme4::nobars(formula$phiformula) + phi_fixed <- remove_bars(formula$phiformula) Xphi <- model.matrix(phi_fixed, model.frame(phi_fixed, ysc, na.action=NULL)) - dist_fixed <- lme4::nobars(formula$distanceformula) + dist_fixed <- remove_bars(formula$distanceformula) Xdist <- model.matrix(dist_fixed, model.frame(dist_fixed, ysc, na.action=NULL)) - rem_fixed <- lme4::nobars(formula$removalformula) + rem_fixed <- remove_bars(formula$removalformula) Xrem <- model.matrix(rem_fixed, model.frame(rem_fixed, oc, na.action=NULL)) |