# \donttest{
# estimate mobility network model
myAlg_short <- createAlgorithm(myState, myEffects, multinomialProposal = FALSE,
nsubN2 = 1, iterationsN3 = 100)
myResDN <- estimateMobilityNetwork(myState, myEffects, myAlg_short,
initialParameters = NULL,
# in case a pseudo-likelihood estimation was run, replace with
# initialParameters = initEst,
parallel = TRUE, cpus = 4,
verbose = TRUE,
returnDeps = TRUE,
fish = FALSE
)
# check convergence
max(abs(myResDN$convergenceStatistics))
# view results
myResDN
# }
myResDN
Run the code above in your browser using DataLab