Fix bug in init_tergmLite

statnet · Dec 14, 2018 · 73d2a2d · 73d2a2d
1 parent 0d747cb
commit 73d2a2d
Showing 1 changed file with 1 addition and 1 deletion.
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 {