Setup and data

library(dplyr)
library(pmtables)
id <- pmtables:::data("id")
data <- pmtables:::data("obs")
pk <- filter(data,SEQ==1)
knitr::opts_chunk$set(comment = '.')

Continuous

cols <- .cols(WT,ALB,SCR)

pmtables:::cont_table_data(id,cols)
pmtables:::cont_table_data(id,cols,by = "STUDYf")
pmtables:::cont_table_data(id,cols,wide = TRUE,fun = pmtables:::str_sum_2)
pmtables:::cont_table_data(id,cols,by="STUDYf",wide = TRUE,fun = pmtables:::str_sum_2)

Categorical tables

cols <- .cols(SEXf,CPf,RFf)
pmtables:::cat_data(id,cols,by="FORMf")
cols <- .cols(SEXf,CPf,RFf)
pmtables:::cat_data(id,cols,by = "FORMf")
cols <- .cols(SEXf,CPf,RFf)
pmtables:::cat_data(id,cols,by = "FORMf",wide=TRUE)
cols <- .cols(SEXf,CPf,RFf)
pmtables:::cat_data(id,cols,by = "FORMf",preshape=TRUE)


metrumresearchgroup/pmtables documentation built on Oct. 27, 2024, 5:16 p.m.