library(pmplots)
library(dplyr)
data <- pmplots_data_obs()
dv_ipred(data)
## `geom_smooth()` using formula = 'y ~ x'
## `geom_smooth()` using formula = 'y ~ x'
wrap_dv_preds(data, loglog = TRUE, ncol = 1, yname = "DrugName (ng/mL)")
## `geom_smooth()` using formula = 'y ~ x'