if (FALSE) {
#
# Produces a R-Corbit plot, which compares three stationary GNAR simulations, where
# the underlying network is fiveNet.
#
# Compute the weight matrix
W = weights_matrix(fiveNet)
#
# Simulate three stationary GNAR processe
sim1 <- GNARsim(n = 100, net=fiveNet, alphaParams = list(c(0.1, 0.12, 0.16, 0.075, 0.21),
c(0.12, 0.14, 0.15, 0.6, 0.22)),
betaParams = list(c(0.1, 0.16), c(0.11, 0.14)))
sim2 <- GNARsim(n = 100, net=fiveNet, alphaParams = list(rep(.25, 5)),
betaParams = list(c(0.1, 0.16)))
sim3 <- GNARsim(n = 100, net=fiveNet, alphaParams = list(rep(.25, 5), rep(0.13, 5)),
betaParams = list(c(0.1, 0.16), c(0.11)))
# Produce NACF R-Corbit plot with the same network and weights matrix
r_corbit_plot(list(sim1, sim2, sim3), list(fiveNet), 10, 3, list(W),
c("sim1", "sim2", "sim3"), same_net = "yes")
#
# Produce PNACF R-Corbit with different networks and weight matrices
print(r_corbit_plot(list(sim1, sim2, sim3), list(fiveNet, fiveNet, fiveNet), 10, 3, list(W, W, W),
c("sim1", "sim2", "sim3"), same_net = "no", partial = "yes"))
}
Run the code above in your browser using DataLab