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'
