library(pmplots)
library(dplyr)
data <- pmplots_data_obs()
npde_time(data)
## `geom_smooth()` using formula = 'y ~ x'
npde_tad(data)
## `geom_smooth()` using formula = 'y ~ x'
npde_hist(data)
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
npde_q(data)
npde_cat(data, x = "STUDYc")
npde_cont(data, x= "WT//Weight (kg)")
## `geom_smooth()` using formula = 'y ~ x'