lyt <- lyt_rows %>%analyze_vars_in_cols(vars =c("AVAL", "AVALCAT1", rep("AVAL", 8)),.stats =c("n", "n_blq", "mean", "sd", "cv", "geom_mean", "geom_cv", "median", "min", "max"),.formats =c(n ="xx.", n_blq ="xx.", mean =format_sigfig(3), sd =format_sigfig(3), cv ="xx.x", median =format_sigfig(3),geom_mean =format_sigfig(3), geom_cv ="xx.x", min =format_sigfig(3), max =format_sigfig(3) ),.labels =c(n ="n", n_blq ="Number\nof\nLTRs/BLQs", mean ="Mean", sd ="SD", cv ="CV (%) Mean",geom_mean ="Geometric Mean", geom_cv ="CV % Geometric Mean", median ="Median", min ="Minimum", max ="Maximum" ),na_str ="NE",.aligns ="decimal" )result <-build_table(lyt, df = adpc_1, alt_counts_df = adsl) %>%prune_table()# Decoratingmain_title(result) <-"Summary of PK Concentrations by Nominal Time and Treatment: PK Evaluable"subtitles(result) <-c("Protocol: xxxxx",paste("Analyte: ", unique(adpc_1$PARAM)),paste("Treatment:", unique(adpc_1$ACTARM)))main_footer(result) <-"NE: Not Estimable"result
Summary of PK Concentrations by Nominal Time and Treatment: PK Evaluable
Protocol: xxxxx
Analyte: Plasma Drug X
Treatment: A: Drug X
----------------------------------------------------------------------------------------------------------------------------------------------------------
Treatment Group Number
Visit of
Nominal Time (hr) / Timepoint n LTRs/BLQs Mean SD CV (%) Mean Geometric Mean CV % Geometric Mean Median Minimum Maximum
----------------------------------------------------------------------------------------------------------------------------------------------------------
A: Drug X (N=134)
Day 1
0 / Predose 134 134 0 0 NE NE NE 0 0 0
0.5 / 0.5H 134 0 12.6 1.51 12.0 12.5 12.2 12.6 9.72 15.6
1 / 1H 134 0 16.2 1.63 10.0 16.1 10.1 16.2 12.6 19.9
1.5 / 1.5H 134 0 15.6 1.46 9.3 15.6 9.3 15.5 12.3 19.0
2 / 2H 134 0 13.4 1.35 10.1 13.4 10.0 13.3 10.8 16.5
3 / 3H 134 0 8.47 1.25 14.7 8.38 15.0 8.40 5.88 10.9
4 / 4H 134 0 4.79 1.02 21.2 4.69 22.0 4.79 2.70 7.09
8 / 8H 134 0 0.348 0.180 51.7 0.303 58.4 0.318 0.0760 0.866
12 / 12H 134 0 0.0224 0.0189 84.6 0.0156 111.6 0.0170 0.00200 0.0830
Day 2
24 / 24H 134 134 0 0 NE NE NE 0 0 0
----------------------------------------------------------------------------------------------------------------------------------------------------------
NE: Not Estimable
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.
lyt <- lyt_rows %>%analyze_vars_in_cols(vars =c("AVAL", "AVALCAT1", rep("AVAL", 8)),.stats =c("n", "n_blq", "mean", "sd", "cv", "geom_mean", "geom_cv", "median", "min", "max"),.formats =c(n ="xx.", n_blq ="xx.", mean =format_sigfig(3), sd =format_sigfig(3), cv ="xx.x", median =format_sigfig(3),geom_mean =format_sigfig(3), geom_cv ="xx.x", min =format_sigfig(3), max =format_sigfig(3) ),.labels =c(n ="n", n_blq ="Number\nof\nLTRs/BLQs", mean ="Mean", sd ="SD", cv ="CV (%) Mean",geom_mean ="Geometric Mean", geom_cv ="CV % Geometric Mean", median ="Median", min ="Minimum", max ="Maximum" ),imp_rule ="1/3",.aligns ="decimal" )result <-build_table(lyt, df = adpc_1, alt_counts_df = adsl) %>%prune_table()# Decoratingmain_title(result) <-"Summary of PK Concentrations by Nominal Time and Treatment: PK Evaluable"subtitles(result) <-c("Protocol: xxxxx",paste("Analyte: ", unique(adpc_1$PARAM)),paste("Treatment:", unique(adpc_1$ACTARM)))main_footer(result) <-c("NE: Not Estimable", "ND: Not Derived")result
Summary of PK Concentrations by Nominal Time and Treatment: PK Evaluable
Protocol: xxxxx
Analyte: Plasma Drug X
Treatment: A: Drug X
----------------------------------------------------------------------------------------------------------------------------------------------------------
Treatment Group Number
Visit of
Nominal Time (hr) / Timepoint n LTRs/BLQs Mean SD CV (%) Mean Geometric Mean CV % Geometric Mean Median Minimum Maximum
----------------------------------------------------------------------------------------------------------------------------------------------------------
A: Drug X (N=134)
Day 1
0 / Predose 134 134 ND ND ND NE ND 0 ND 0
0.5 / 0.5H 134 0 12.6 1.51 12.0 12.5 12.2 12.6 9.72 15.6
1 / 1H 134 0 16.2 1.63 10.0 16.1 10.1 16.2 12.6 19.9
1.5 / 1.5H 134 0 15.6 1.46 9.3 15.6 9.3 15.5 12.3 19.0
2 / 2H 134 0 13.4 1.35 10.1 13.4 10.0 13.3 10.8 16.5
3 / 3H 134 0 8.47 1.25 14.7 8.38 15.0 8.40 5.88 10.9
4 / 4H 134 0 4.79 1.02 21.2 4.69 22.0 4.79 2.70 7.09
8 / 8H 134 0 0.348 0.180 51.7 0.303 58.4 0.318 0.0760 0.866
12 / 12H 134 0 0.0224 0.0189 84.6 0.0156 111.6 0.0170 0.00200 0.0830
Day 2
24 / 24H 134 134 ND ND ND NE ND 0 ND 0
----------------------------------------------------------------------------------------------------------------------------------------------------------
NE: Not Estimable
ND: Not Derived
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.
lyt <- lyt_rows %>%analyze_vars_in_cols(vars =c("AVAL", "AVALCAT1", rep("AVAL", 8)),.stats =c("n", "n_blq", "mean", "sd", "cv", "geom_mean", "geom_cv", "median", "min", "max"),.formats =c(n ="xx.", n_blq ="xx.", mean =format_sigfig(3), sd =format_sigfig(3), cv ="xx.x", median =format_sigfig(3),geom_mean =format_sigfig(3), geom_cv ="xx.x", min =format_sigfig(3), max =format_sigfig(3) ),.labels =c(n ="n", n_blq ="Number\nof\nLTRs/BLQs", mean ="Mean", sd ="SD", cv ="CV (%) Mean",geom_mean ="Geometric Mean", geom_cv ="CV % Geometric Mean", median ="Median", min ="Minimum", max ="Maximum" ),imp_rule ="1/2",.aligns ="decimal" )result <-build_table(lyt, df = adpc_1, alt_counts_df = adsl) %>%prune_table()# Decorate tablemain_title(result) <-"Summary of PK Concentrations by Nominal Time and Treatment: PK Evaluable"subtitles(result) <-c("Protocol: xxxxx",paste("Analyte: ", unique(adpc_1$PARAM)),paste("Treatment:", unique(adpc_1$ACTARM)))main_footer(result) <-"ND: Not Derived"result
Summary of PK Concentrations by Nominal Time and Treatment: PK Evaluable
Protocol: xxxxx
Analyte: Plasma Drug X
Treatment: A: Drug X
----------------------------------------------------------------------------------------------------------------------------------------------------------
Treatment Group Number
Visit of
Nominal Time (hr) / Timepoint n LTRs/BLQs Mean SD CV (%) Mean Geometric Mean CV % Geometric Mean Median Minimum Maximum
----------------------------------------------------------------------------------------------------------------------------------------------------------
A: Drug X (N=134)
Day 1
0 / Predose 134 134 ND ND ND ND ND ND ND 0
0.5 / 0.5H 134 0 12.6 1.51 12.0 12.5 12.2 12.6 9.72 15.6
1 / 1H 134 0 16.2 1.63 10.0 16.1 10.1 16.2 12.6 19.9
1.5 / 1.5H 134 0 15.6 1.46 9.3 15.6 9.3 15.5 12.3 19.0
2 / 2H 134 0 13.4 1.35 10.1 13.4 10.0 13.3 10.8 16.5
3 / 3H 134 0 8.47 1.25 14.7 8.38 15.0 8.40 5.88 10.9
4 / 4H 134 0 4.79 1.02 21.2 4.69 22.0 4.79 2.70 7.09
8 / 8H 134 0 0.348 0.180 51.7 0.303 58.4 0.318 0.0760 0.866
12 / 12H 134 0 0.0224 0.0189 84.6 0.0156 111.6 0.0170 0.00200 0.0830
Day 2
24 / 24H 134 134 ND ND ND ND ND ND ND 0
----------------------------------------------------------------------------------------------------------------------------------------------------------
ND: Not Derived
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:46 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 withr_3.0.0 Rdpack_2.6
[33] digest_0.6.35 grid_4.4.0 lifecycle_1.0.4 vctrs_0.6.5
[37] evaluate_0.23 glue_1.7.0 codetools_0.2-20 survival_3.6-4
[41] colorspace_2.1-0 fansi_1.0.6 purrr_1.0.2 rmarkdown_2.26
[45] tools_4.4.0 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.