Make mixingmatrix() return obj of class 'mixingmatrix'

mbojan · krivit · commit e7cc910e8a2b · 2021-06-19T20:38:09.000+10:00
It is now compatible with network::mixingmatrix.network(). References statnet/network#32 and statnet#54.
diff --git a/R/degreedist.R b/R/degreedist.R
@@ -202,7 +202,6 @@ mixingmatrix.egor <- function(object, attrname, rowprob = FALSE, weight = TRUE,
   if(rowprob){
     mxmat <- mxmat/rowSums(mxmat)
   }
-  mxmat
+  structure(mxmat, class = c("mixingmatrix", "table"), directed = FALSE,
+            bipartite = FALSE)
 }
-  
-  

Original file line number	Diff line number	Diff line change
`@@ -202,7 +202,6 @@ mixingmatrix.egor <- function(object, attrname, rowprob = FALSE, weight = TRUE,`
`202`	`202`	`if(rowprob){`
`203`	`203`	`mxmat <- mxmat/rowSums(mxmat)`
`204`	`204`	`}`
`205`		`- mxmat`
	`205`	`+ structure(mxmat, class = c("mixingmatrix", "table"), directed = FALSE,`
	`206`	`+ bipartite = FALSE)`
`206`	`207`	`}`
`207`		`-`
`208`		`-`