Fix bug in init_tergmLite

smjenness · smjenness · commit 73d2a2dacb59 · 2018-12-14T17:14:21.000-05:00
diff --git a/R/initialize.R b/R/initialize.R
@@ -123,7 +123,7 @@ init_tergmLite <- function(dat) {
   for (i in 1:num_nw) {
 
     nwp <- dat$nwparam[[i]]
-    is_tergm <- nwp$coef.diss$duration > 1
+    is_tergm <- all(nwp$coef.diss$duration > 1)
     if (num_nw == 1) {
       nw <- dat$nw
     } else {
