# Parameters
sample_parameters <- c(0.48971473, 4.9138734, 0.24197346, 0.094876416,
0.43628932, 0.24997402, 0.91512685, 0.99258227,
0.083853738, 0.011476783, 0.00060831497, 0.00047612821,
0.066037729, 0.00077134168, 0.10401742, 0.64880756,
-0.15487177, -0.019568024, -0.9171713, -0.0004035943,
-0.00016707272, 0.090598047, -0.00021440956, 0.048772465,
-7.9136021e-05, 0.035185492, -0.00020899057, -1.8089202,
-1.1725473, -12.535951, 0.004596472, 0.0013025826,
-0.43892271, 1.2674668, 0.25691424)
parameter_names <- c('aA', 'aW', 'aE', 'aN',
'pWA', 'pEA', 'pNA', 'pAW', 'pEW', 'pNW',
'pAE', 'pWE', 'pNE', 'pAN', 'pWN', 'pEN',
'w1', 'w2', 'w3', 'w4', 'w5',
'b1', 'b2', 'bN1', 'bN2', 'bH1', 'bH2',
'g', 'gN', 'gH',
'pH', 'aH',
'th1', 'th2', 'r')
names(sample_parameters) <- parameter_names
usethis::use_data(sample_parameters)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.