# 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., 20000L for actual research
seed = 0508
)
nb
# The `nb` object can be passed as the first argument
# to the following functions
# - BetaNB
# - DeltaRSqNB
# - DiffBetaNB
# - PCorNB
# - RSqNB
# - SCorNB
Run the code above in your browser using DataLab