Set up
library(pmplots)
library(dplyr)
data <- pmplots_data_obs()DV versus IPRED
dv_ipred(data)## `geom_smooth()` using formula = 'y ~ x'
## `geom_smooth()` using formula = 'y ~ x'

Combined DV versus PRED and IPRED
wrap_dv_preds(data, loglog = TRUE, ncol = 1, yname = "DrugName (ng/mL)")## `geom_smooth()` using formula = 'y ~ x'



```