if (FALSE) {
edge_list <- matrix(numeric(),ncol=2)
net <- new(UndirectedNet,edge_list,5)
net[["group"]] <- c("a","b","a","b","a")
# create a simple ernm model sampler
sampler <- createCppSampler(net ~ edges() + nodeCount("group") | group, theta = c(0,0))
# generate network statistics for 10 networks with a burn in of 100 steps and 200 steps between them
sampler$generateSampleStatistics(100,200,10)
# generate a network a further 100 steps later
sampler$generateSample(0,100,1)[[1]]
# make a sampler using Tie-Dyad proposals for the graph
td_sampler <- createCppSampler(net ~ edges() + nodeCount("group") | group,
theta = c(0,0),
dyadToggle = "TieDyad")
td_sampler$generateSampleStatistics(100,200,10)
}
Run the code above in your browser using DataLab