Fixed bug in Datainit

derek-corcoran-barrios · Dec 7, 2022 · fd4564b · fd4564b
1 parent 0d33258
commit fd4564b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/DataInit.R b/R/DataInit.R
@@ -6,10 +6,10 @@
 #' @noRd
 
 .DataInit <- function(x){
-  if(is(x) == "network"){
+  if(is(x)[1] == "network"){
     x
   }
-  if(is(x) == "matrix"){
+  if(is(x)[1] == "matrix"){
     x <- network::as.network(x,
                              matrix.type='adjacency',
                              # loops = TRUE,