Running examples in ‘netdiffuseR-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: edges_coords
> ### Title: Compute ego/alter edge coordinates considering alter's size and
> ###   aspect ratio
> ### Aliases: edges_coords
> ### Keywords: dplot misc
> 
> ### ** Examples
> 
> # --------------------------------------------------------------------------
> data(medInnovationsDiffNet)
> library(sna)
Loading required package: statnet.common

Attaching package: ‘statnet.common’

The following objects are masked from ‘package:base’:

    attr, order, replace

Loading required package: network

‘network’ 1.19.0 (2024-12-08), part of the Statnet Project
* ‘news(package="network")’ for changes since last version
* ‘citation("network")’ for citation information
* ‘https://statnet.org’ for help, support, and other information

sna: Tools for Social Network Analysis
Version 2.8 created on 2024-09-07.
copyright (c) 2005, Carter T. Butts, University of California-Irvine
 For citation information, type citation("sna").
 Type help(package="sna") to get started.

> 
> # Computing coordinates
> set.seed(79)
> coords <- sna::gplot(as.matrix(medInnovationsDiffNet$graph[[1]]))
> 
> # Getting edge coordinates
> vcex <- rep(1.5, nnodes(medInnovationsDiffNet))
> ecoords <- edges_coords(
+   medInnovationsDiffNet$graph[[1]],
+   diffnet.toa(medInnovationsDiffNet),
+   x = coords[,1], y = coords[,2],
+   vertex_cex = vcex,
+   dev = par("pin")
+   )
Warning in edges_coords(medInnovationsDiffNet$graph[[1]], diffnet.toa(medInnovationsDiffNet),  :
  subscript out of bounds (index 1 >= vector size 1)
Warning in edges_coords(medInnovationsDiffNet$graph[[1]], diffnet.toa(medInnovationsDiffNet),  :
  subscript out of bounds (index 1 >= vector size 1)
Warning in edges_coords(medInnovationsDiffNet$graph[[1]], diffnet.toa(medInnovationsDiffNet),  :
  subscript out of bounds (index 1 >= vector size 1)
malloc(): corrupted top size
Aborted