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

> ### Name: AMME
> ### Title: Function to estimate the average micro mediated effect (AMME).
> ### Aliases: AMME
> ### Keywords: ~mediation ~networks ~macro ~micro
> 
> ### ** Examples
> 
> ## Don't show: 
> require(ergm)
Loading required package: ergm
Loading required package: network

‘network’ 1.18.1 (2023-01-24), 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


‘ergm’ 4.4.0 (2023-01-26), part of the Statnet Project
* ‘news(package="ergm")’ for changes since last version
* ‘citation("ergm")’ for citation information
* ‘https://statnet.org’ for help, support, and other information

‘ergm’ 4 is a major update that introduces some backwards-incompatible
changes. Please type ‘news(package="ergm")’ for a list of major
changes.

> require(network)
> require(sna)
Loading required package: sna
Loading required package: statnet.common

Attaching package: ‘statnet.common’

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

    attr, order

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

> 
> 
> set.seed(21093)
> a1<-network::as.network(matrix(c(rbinom(10, 1,.3),
+                                  rbinom(10, 1,.3),
+                                  rbinom(10, 1,.3),
+                                  rbinom(10, 1,.3),
+                                  rbinom(10, 1,.3),
+                                  rbinom(10, 1,.3),
+                                  rbinom(10, 1,.3),
+                                  rbinom(10, 1,.3),
+                                  rbinom(10, 1,.3),
+                                  rbinom(10, 1,.3)),
+                                nrow=10,ncol=10))
> 
> network::set.vertex.attribute(a1,"var.1",rbinom(10,1,.3))
> a<-ergm(a1~edges+nodeifactor("var.1")+nodeofactor("var.1"))
Starting maximum pseudolikelihood estimation (MPLE):
Evaluating the predictor and response matrix.
Maximizing the pseudolikelihood.
Finished MPLE.
Error in qr.default(v, tol = tol) : object '.F_dqrdc2' not found
Calls: ergm ... eval -> check_nonidentifiability -> qr -> qr.default
Execution halted