# \donttest{
# simulate a mobility network
# note that thinning and burn-in values are for this example only
# in real cases, choose values aprrox. times 10
mySimDN <- simulateMobilityNetworks(
myState,
myEffects,
parameters = c(2, 1, 1.5, 0.1, -1, -0.5),
allowLoops = TRUE,
burnin = 450,
thinning = 150,
nSimulations = 10
)
mySimDN[[1]]
# }
Run the code above in your browser using DataLab