Set constraints .attributes to NULL

Author: smjenness

DESCRIPTION

@@ -22,5 +22,5 @@ Imports:
 Suggests: testthat, EpiModel
 LinkingTo: Rcpp, ergm
 LazyData: true
-RoxygenNote: 6.1.0
+RoxygenNote: 6.1.1
 Encoding: UTF-8

R/initialize.R

@@ -48,6 +48,9 @@ stergm_prep <- function(nw,
                                       nw, weights = control$MCMC.prop.weights.diss,
                                       class = "d")
 
+  MHproposal.form$arguments$constraints$.attributes <- NULL
+  MHproposal.diss$arguments$constraints$.attributes <- NULL
+
   out <- list(model.form = model.form, model.diss = model.diss,
               MHproposal.form = MHproposal.form, MHproposal.diss = MHproposal.diss)
 
@@ -80,6 +83,8 @@ ergm_prep <- function(nw,
                            nw = nw, weights = control$MCMC.prop.weights, class = "c",
                            reference = ~Bernoulli, response = NULL)
 
+  MHproposal$arguments$constraints$.attributes <- NULL
+
   out <- list(model.form = m, MHproposal = MHproposal)
   return(out)
 }