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_cont(data, x= "WT//Weight (kg)")## `geom_smooth()` using formula = 'y ~ x'
