Fix bug in init_tergmLite

Author: smjenness

R/initialize.R

@@ -115,7 +115,7 @@ ergm_prep <- function(nw,
 #'
 init_tergmLite <- function(dat) {
 
-  num_nw <- ifelse(any(class(dat$nw) == "network"), 1, length(dat$nw))
+  num_nw <- ifelse(inherits(dat$nw, "network"), 1, length(dat$nw))
 
   dat$el <- list()
   dat$p <- list()