Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

This is a transference of the ergm-private" "control_llik" branch to the public version ergm 4.0. #337

Open
wants to merge 10 commits into
base: master
Choose a base branch
from
Prev Previous commit
Next Next commit
Added in exclusion for "Taper_Penalty" term from mcmc.diagnostics.
  • Loading branch information
handcock committed Jul 1, 2021
commit 2dc98f431bb8a5301933edb6d0ceeef71359528b
4 changes: 2 additions & 2 deletions R/mcmc.diagnostics.ergm.R
Original file line number Diff line number Diff line change
Expand Up @@ -207,8 +207,8 @@ mcmc.diagnostics.ergm <- function(object,

if(esteq){
if (!is.null(coef(object)) && !is.null(object$etamap)) {
sm <- ergm.estfun(sm, theta=coef(object), model=object$etamap) %>% lapply.mcmc.list(`-`)
if(!is.null(sm.obs)) sm.obs <- ergm.estfun(sm.obs, theta=coef(object), model=object$etamap) %>% lapply.mcmc.list(`-`)
sm <- ergm.estfun(sm, theta=coef(object), model=object$etamap, exclude=object$control$MCMC.esteq.exclude.statistics) %>% lapply.mcmc.list(`-`)
if(!is.null(sm.obs)) sm.obs <- ergm.estfun(sm.obs, theta=coef(object), model=object$etamap, exclude=object$control$MCMC.esteq.exclude.statistics) %>% lapply.mcmc.list(`-`)
}
}

Expand Down