library(dplyr) library(pmtables) id <- pmtables:::data("id") data <- pmtables:::data("obs") pk <- filter(data,SEQ==1) knitr::opts_chunk$set(comment = '.')
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)
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.