Adding changes

USCCANA · Aug 15, 2022 · d095657 · d095657
1 parent f83b35f
commit d095657
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6  1,6 @@
 Package: netdiffuseR
 Title: Analysis of Diffusion and Contagion Processes on Networks
-Version: 1.22.3
 Version: 1.22.4
 Authors@R: c(
   person("George", "Vega Yon", email="[email protected]", role=c("aut", "cre"),
     comment=c(ORCID = "0000-0002-3171-0844", what="Rewrite functions with Rcpp, plus new features")

diff --git a/R/adjmat.r b/R/adjmat.r
@@ -743,8  743,8 @@ drop_isolated <- function(
 
 
 simmelian_mat <- function(graph, ...) {
-  tmethod <- if(isS4(graph)) getMethod("t", class(graph)) else t
-  tmp <- graph & tmethod(graph)
 #  tmethod <- if(isS4(graph)) getMethod("t", class(graph)) else t
   tmp <- graph & t(graph) #tmethod(graph)
   methods::as(tmp & (tmp %*% tmp), "dgCMatrix")
 }
 

diff --git a/R/diffnet-methods.r b/R/diffnet-methods.r
@@ -1688,7  1688,7 @@ dimnames.diffnet <- function(x) {
 #' @rdname diffnet-class
 #' @method t diffnet
 t.diffnet <- function(x) {
-  x$graph <- lapply(x$graph, getMethod("t", "dgCMatrix"))
   x$graph <- lapply(x$graph, t) #getMethod("t", "dgCMatrix"))
   x
 }