From fd4564bdf476b118e8bcc9240872fc7aa6ffeb06 Mon Sep 17 00:00:00 2001
From: derek-corcoran-barrios <derek-corcoran-barrios@gmail.com>
Date: Wed, 7 Dec 2022 20:39:04 +0100
Subject: [PATCH] Fixed bug in Datainit

---
 R/DataInit.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/DataInit.R b/R/DataInit.R
index 9536de8..196d128 100644
--- 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,