diff --git a/book/tables/pharmacokinetic/pkpt11.qmd b/book/tables/pharmacokinetic/pkpt11.qmd index 17c98e56d2..91ec9392dc 100644 --- a/book/tables/pharmacokinetic/pkpt11.qmd +++ b/book/tables/pharmacokinetic/pkpt11.qmd @@ -111,53 +111,6 @@ afun_pk_gmr <- function(.formats = list( ## Standard Table -- Plasma -```{r variant1, test = list(result_v1 = "result")} -# create layout -lyt <- basic_table() %>% - split_rows_by( - var = "PKPARAM", - label_pos = "topleft", - split_fun = keep_split_levels(c("AUCinf obs (day*ug/mL)", "Cmax (ug/mL)")), - split_label = "PK Parameter" - ) %>% - split_rows_by( - var = "COMP", - split_fun = remove_split_levels(paste0(comp_dose, "/", comp_dose)), - indent_mod = 11L, - child_labels = "hidden" - ) %>% - split_cols_by_multivar( - vars = rep("AVAL", 4), - varlabels = c( - "n", - "Geometric Mean Ratio", - "90% CI Lower Bound", - "90% CI Upper Bound" - ) - ) %>% - analyze_colvars( - afun = afun_pk_gmr(), - extra_args = list( - compare_dose = comp_dose, - denom = TRUE, - arm_var = arm_var - ) - ) %>% - append_varlabels(adpp0, "COMP", 12L) - -result <- build_table(lyt, df = adpp0) - -main_title(result) <- paste0( - "Estimated Ratios of Geometric Means and 90% Confidence Intervals for AUC and CMAX Following ", - unique(adpp0$REGIMEN), "\nof ", comp_dose, " in Comparison with ", - paste(other_doses, collapse = " & "), ", PK Population" -) -subtitles(result) <- paste("Analyte:", unique(adpp0$PPCAT)) - -result -``` - -{{< include ../../test-utils/save_results.qmd >}} ## `teal` App