knitr::opts_chunk$set( collapse = TRUE, comment = "." )
This vignette shows how to expose the different data summary functions.
library(pmtables) data <- pmtables:::data("id") obs <- pmtables:::data("obs")
cont_table_data( data, by = "STUDYf", cols = c("WT", "ALB", "SCR"), digits = new_digits(.default = 3) )
cont_table_data( data, panel = "STUDYf", cols = c("WT", "ALB", "SCR"), digits = new_digits(.default = 3), fun = pt_opts$cont.wide.fun, wide = TRUE )
cat_data( data, cols = c("SEXf", "FORMf"), by = "RFf" )
cat_data( data, cols = c("SEXf", "FORMf"), by = "RFf", wide = TRUE )
data_inventory_data( obs, by = "STUDYf" )
pmtables:::data_inventory_data_split( data, by = "STUDYf", panel = "SEQf", stacked = FALSE )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.