# 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. Altenatively, copy the code and click here to open WebR in a new tab.
Code
# In progress
Timestamp
Code
Sys.time()
[1] "2024-05-08 17:32:54 UTC"
Session Info
Code
sessionInfo()
R version 4.4.0 (2024-04-24)
Platform: x86_64-pc-linux-gnu
Running under: Ubuntu 22.04.4 LTS
Matrix products: default
BLAS: /usr/lib/x86_64-linux-gnu/openblas-pthread/libblas.so.3
LAPACK: /usr/lib/x86_64-linux-gnu/openblas-pthread/libopenblasp-r0.3.20.so; LAPACK version 3.10.0
locale:
[1] C
time zone: Etc/UTC
tzcode source: system (glibc)
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] tern_0.9.4 rtables_0.6.7 magrittr_2.0.3 formatters_0.5.6
[5] dplyr_1.1.4 scda.2022_0.1.5 scda_0.1.6
loaded via a namespace (and not attached):
[1] Matrix_1.7-0 gtable_0.3.5 jsonlite_1.8.8 compiler_4.4.0
[5] brio_1.1.5 tidyselect_1.2.1 tidyr_1.3.1 splines_4.4.0
[9] scales_1.3.0 yaml_2.3.8 fastmap_1.1.1 lattice_0.22-6
[13] ggplot2_3.5.1 R6_2.5.1 generics_0.1.3 knitr_1.46
[17] rbibutils_2.2.16 htmlwidgets_1.6.4 backports_1.4.1 checkmate_2.3.1
[21] tibble_3.2.1 munsell_0.5.1 pillar_1.9.0 rlang_1.1.3
[25] utf8_1.2.4 testthat_3.2.1.1 stringi_1.8.4 broom_1.0.5
[29] xfun_0.43 cli_3.6.2 Rdpack_2.6 digest_0.6.35
[33] grid_4.4.0 lifecycle_1.0.4 vctrs_0.6.5 evaluate_0.23
[37] glue_1.7.0 codetools_0.2-20 survival_3.6-4 colorspace_2.1-0
[41] fansi_1.0.6 purrr_1.0.2 rmarkdown_2.26 tools_4.4.0
[45] pkgconfig_2.0.3 htmltools_0.5.8.1
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.