# Data ---------------------------------------------------------------------
data("nas1982", package = "betaNB")
# Fit Model in lm ----------------------------------------------------------
object <- lm(QUALITY ~ NARTIC + PCTGRT + PCTSUPP, data = nas1982)
# NB -----------------------------------------------------------------------
nb <- NB(
object,
R = 100, # use a large value e.g., 5000L for actual research
seed = 0508
)
# DiffBetaNB ---------------------------------------------------------------
out <- DiffBetaNB(nb, alpha = 0.05)
## Methods -----------------------------------------------------------------
print(out)
summary(out)
coef(out)
vcov(out)
confint(out, level = 0.95)
Run the code above in your browser using DataLab