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. Alternatively, 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. Alternatively, 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. Alternatively, copy the code and click here to open WebR in a new tab.