Nothing
## ----include = FALSE------------------------------------------------------------------------------
library(xpose)
xpdb <- xpdb_ex_pk %>%
set_var_types(idv = 'TIME')
knitr::opts_chunk$set(fig.dpi = 96,
fig.align = 'center',
fig.height = 4,
fig.width = 4,
out.width = '50%',
comment = '',
message = FALSE)
## ----demo print xpose_data------------------------------------------------------------------------
xpdb # or print(xpdb)
## ----demo xpose summary---------------------------------------------------------------------------
summary(xpdb)
## ----demo prm_table-------------------------------------------------------------------------------
prm_table(xpdb)
## ----demo list_vars-------------------------------------------------------------------------------
list_vars(xpdb)
## ----eval = FALSE---------------------------------------------------------------------------------
# xpose_data(runno = '001') %>%
# dv_vs_ipred() %>%
# xpose_save(file = 'run001_dv_vs_ipred.pdf')
## ----change idv-----------------------------------------------------------------------------------
# With the TIME default
xpdb %>%
dv_vs_idv()
# After IDV reassignment
xpdb %>%
set_var_types(idv = 'TAD') %>%
dv_vs_idv()
## ----demo basic gof-------------------------------------------------------------------------------
# DV vs. IPRED plot
dv_vs_ipred(xpdb)
# CWRES vs. PRED plot
res_vs_pred(xpdb, res = 'CWRES')
## ----eval = FALSE---------------------------------------------------------------------------------
# # Save the last generated plot
# dv_vs_ipred(xpdb)
# xpose_save(file = 'run001_dv_vs_ipred.pdf')
#
# # Template titles can also be used in filename and the directory
# xpdb %>%
# dv_vs_ipred() %>%
# xpose_save(file = '@run_@plotfun_[@ofv].jpeg', dir = '@dir')
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.