mods <- list(
mobility(data=mobility_matrices, model='gravity', type='power', DIC=TRUE),
mobility(data=mobility_matrices, model='radiation', type='basic'),
mobility(data=mobility_matrices, model='departure-diffusion', type='power', DIC=TRUE)
)
compare(mods)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.