Expected `nlmixr2_as_xtra(fit_example)` not to throw any errors.
Actually got a <rlang_error> with message:
  No `nlmixr2` fit object found.
  Caused by error:
  ! qs-legacy format detected, use qs::qread

nlmixr2_as_xtra(nlmixr2_warfarin$fit, .skip_assoc = TRUE, quiet = TRUE)
# Make sure properties can be found and manipulated
# Including: get_prop, set_prop, backfill and options functions
set_prop(xpdb_nlmixr2, descr = random_string) %>%
"Some iOFV values for problem.*are not finite"
names(xpose::get_data(backfill_iofv(xpdb_nlmixr2, .label = random_string), quiet = TRUE))
# pulling a typical problem 0 property is nonmem that is a problem 1 prop for nlmixr2
get_prop(xpdb_nlmixr2, "file", .problem = 0)
# Make sure new single xpdb functions can be run without error
nlmixr2_m3 %>% # modified from catdv_vs_dvprobs example
set_dv_probs(1, 1~BLQLIKE, .dv_var = CENS) %>%
catdv_vs_dvprobs(xlab = "basic", quiet = TRUE)
# Make sure xpose_sets can be made (several iterations)
nlmixr2_m3, .relationships = nlmixr2_m3 ~ xpdb_nlmixr2
# Make sure model comparison plots can be created
ipred_vs_ipred(comparison, quiet = TRUE, axis.text = "@file")
pred_vs_pred(comparison, quiet = TRUE, axis.text = "@file")
iofv_vs_mod(comparison, quiet = TRUE, axis.text = "@file")
shark_plot(comparison, quiet = TRUE, df=1)
# Make sure model-averaging plots can be created
# Make sure get_prm and prm associations work
regexp = "does not provide SE.*random effect"
logitp02 <- logit(0.2) ; label("Probablity of transition from 0 to 2")
logitp20 <- logit(0.2) ; label("Probablity of transition from 2 to 0")
eta.p02 ~ 0.1 # need IIV https://github.com/nlmixr2/xpose.nlmixr2/issues/8#issue-3304662799
# Need pred and res https://github.com/nlmixr2/xpose.nlmixr2/issues/7#issue-3304654465
sdpred = sqrt( p0*(0 - pipred)^2 + p2*(2 - pipred)^2  )
nlmixr2est::nlmixr(object = markov_nlmixr, data = d_mod,
est = "focei", control = list(print = 0, outerOpt = "bobyqa"))
xpose.nlmixr2::xpose_data_nlmixr(mmfit, pred = "pred", wres = "pwres")
xpose.nlmixr2::xpose_data_nlmixr(mmfit, pred = "pred", wres = "pwres") %>%
mm_xpdb <- xpose.nlmixr2::xpose_data_nlmixr(mmfit, pred = "pred", wres = "pwres") %>%
nlmixr2_as_xtra(mmfit, pred = "pred", wres = "pwres", .skip_assoc = TRUE)
nlmixr2_as_xtra(mmfit, pred = "pred", wres = "pwres",