diff --git a/R/ergm.stocapprox.R b/R/ergm.stocapprox.R index 9b33541f..b644be10 100644 --- a/R/ergm.stocapprox.R +++ b/R/ergm.stocapprox.R @@ -79,7 +79,7 @@ ergm.stocapprox <- function(init, s, s.obs, if(verbose){message("Using Newton-Raphson Step ...")} v <- ergm.estimate(init=theta, model=model, - statsmatrices=mcmc.list(as.mcmc(z$stats)), + statsmatrices=z$stats, statsmatrices.obs=NULL, epsilon=control$epsilon, nr.maxit=control$MCMLE.NR.maxit,