Nothing
test_that("optimizer works", {
brts <- 1:10
initparsopt <- c(0.3,0.05,12)
idparsopt <- 1:3
res_simplex <- DDD::dd_ML(brts = brts,
initparsopt = initparsopt,
idparsopt = idparsopt,
optimmethod = 'simplex')
res_subplex <- DDD::dd_ML(brts = brts,
initparsopt = initparsopt,
idparsopt = idparsopt,
optimmethod = 'subplex')
#res_nloptr <- DDD::dd_ML(brts = brts,
# initparsopt = initparsopt,
# idparsopt = idparsopt,
# optimmethod = 'NLOPT_LN_SBPLX')
testthat::expect_equal(res_simplex$fvalues,res_subplex$fvalues,tolerance = 0.0001)
#testthat::expect_equal(res_nloptr$fvalues,res_subplex$fvalues,tolerance = 0.0001)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.