## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(MMRcaseselection)
library(ggplot2) # for illustration of plot customization

## -----------------------------------------------------------------------------
df <- lm(mpg ~ disp + wt, data = mtcars)
pi_df <- predint(df, piwidth = 0.9)
head(pi_df)

## ---- fig.height = 6, fig.width = 6-------------------------------------------
predint_plot(pi_df)
# Using scale_color_brewer() instead of the viridis palette.
predint_plot(pi_df) + scale_color_brewer()

## -----------------------------------------------------------------------------
resid_df <- residstd(df, stdshare = 1.5)
head(resid_df)

## ---- fig.width = 6, fig.height = 6-------------------------------------------
residstd_plot(resid_df)