# \dontshow{
require(ergm)
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"))
edge.prob2(a)
# }
# \donttest{
library(ergm)
data("faux.dixon.high")
my.ergm<-ergm(faux.dixon.high~edges+
nodeifactor("sex")+
nodeofactor("sex")+
nodematch("sex")+
mutual)
edge.prob2(my.ergm)
# }
Run the code above in your browser using DataLab