data-raw/create_sample_parameters.R

In jpusa/Ryassofortran: Provides functionality for calling the YASSO15 Fortran-release in R

# 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)