Corrige problema com o offset.

parent c6b53f87
Pipeline #4330 failed with stage
...@@ -249,7 +249,7 @@ gcnt <- function(formula, data, start = NULL, ...) { ...@@ -249,7 +249,7 @@ gcnt <- function(formula, data, start = NULL, ...) {
} }
bbmle::parnames(llgcnt) <- names(start) bbmle::parnames(llgcnt) <- names(start)
model <- bbmle::mle2(minuslogl = llgcnt, start = start, model <- bbmle::mle2(minuslogl = llgcnt, start = start,
data = list(y = y, X = X, offset = off), data = list(y = y, X = X, offset = exp(off)),
vecpar = TRUE, ...) vecpar = TRUE, ...)
return(model) return(model)
} }
...@@ -227,7 +227,7 @@ pgnz <- function(formula, data, start = NULL, ...) { ...@@ -227,7 +227,7 @@ pgnz <- function(formula, data, start = NULL, ...) {
} }
bbmle::parnames(llpgnz) <- names(start) bbmle::parnames(llpgnz) <- names(start)
model <- bbmle::mle2(minuslogl = llpgnz, start = start, model <- bbmle::mle2(minuslogl = llpgnz, start = start,
data = list(y = y, X = X, offset = off), data = list(y = y, X = X, offset = exp(off)),
vecpar = TRUE, ...) vecpar = TRUE, ...)
return(model) return(model)
} }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment