# create layoutlyt <-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
Estimated Ratios of Geometric Means and 90% Confidence Intervals for AUC and CMAX Following BID
of A: Drug X in Comparison with C: Combination, PK Population
Analyte: Plasma Drug X
———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
PK Parameter
Comparison n Geometric Mean Ratio 90% CI Lower Bound 90% CI Upper Bound
———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
AUCinf obs (day*ug/mL)
C: Combination/A: Drug X 266 0.962 0.925 1.00
Cmax (ug/mL)
C: Combination/A: Drug X 266 0.997 0.958 1.04
Experimental use!
WebR is a tool allowing you to run R code in the web browser. Modify the code below and click run to see the results. Alternatively, copy the code and click here to open WebR in a new tab.