tests/testthat/examples_fcn_doc/examples_downsizing_general_design.R

dgd <- downsizing_general_design(poped.db)

output = mftot(dgd$model_switch,poped.db$design$groupsize,
               dgd$ni,dgd$xt,dgd$x,dgd$a,
               poped.db$parameters$param.pt.val$bpop,
               poped.db$parameters$param.pt.val$d,
               poped.db$parameters$param.pt.val$sigma,
               poped.db$parameters$param.pt.val$docc,
               poped.db)
FIM <- output$ret
det(FIM)
andrewhooker/PopED documentation built on Nov. 23, 2023, 1:37 a.m.