data(sparrowDfuncObserver) # pre-estimated dfunc
# Same as sparrowDfuncObserver$par
coef(sparrowDfuncObserver)
if (FALSE) {
data(sparrowDf)
dfunc <- sparrowDf |> dfuncEstim(dist~bare + observer,
w.hi=units::set_units(150, "m"))
coef(dfunc)
}
Run the code above in your browser using DataLab