objects. This function creates a generic method for %*%
allowing for multiplying diffnet objects.
x %*% y
## Default S3 method:x %*% y
## S3 method for class 'diffnet'x %*% y
Arguments
x: Numeric or complex matrices or vectors, or diffnet objects.
y: Numeric or complex matrices or vectors, or diffnet objects.
Returns
In the case of diffnet objects performs matrix multiplication via mapply using x$graph and y$graph as arguments, returnling a diffnet. Otherwise returns the default according to %*%.
Details
This function can be usefult to generate alternative graphs, for example, users could compute the n-steps graph by doing net %*% net
(see examples).
Examples
# Finding the Simmelian Ties network ----------------------------------------# Random diffnet graphset.seed(773)net <- rdiffnet(100,4, seed.graph='small-world', rgraph.args=list(k=8))netsim <- net
# According to Dekker (2006), Simmelian ties can be computed as followsnetsim <- net * t(net)# Keeping mutalnetsim <- netsim *(netsim %*% netsim)# Checking out differences (netsim should have less)nlinks(net)nlinks(netsim)mapply(`-`, nlinks(net), nlinks(netsim))
See Also
Other diffnet methods: as.array.diffnet(), c.diffnet(), diffnet-arithmetic, diffnet-class, diffnet_index, plot.diffnet(), summary.diffnet()