Skip to contents

Displays the empirical bootstrap distribution of \(U_n^*\) together with the observed value \(U_n\) and the bootstrap critical values at each significance level, as shown in Ospina et al. (2026).

Usage

plot_gof_boot(
  x,
  col.hist = "#abd9e9",
  col.obs = "#d7191c",
  col.cv = "#2c7bb6",
  main = NULL,
  xlab = expression(U[n]^"*"),
  ylab = "Density",
  ...
)

Arguments

x

A "simplexgof" object from simplex_gof.

col.hist

Fill colour for the histogram.

col.obs

Colour for the observed \(U_n\) line.

col.cv

Colour for the critical-value lines.

main, xlab, ylab

Plot labels.

...

Further arguments passed to hist.

Value

Invisibly returns the "simplexgof" object.

Examples

# \donttest{
data(ammonia)
X <- cbind(1, ammonia$corr_ar, ammonia$temp_agua,
           ammonia$corr_ar * ammonia$temp_agua)
Z <- cbind(1, ammonia$temp_agua,
           ammonia$corr_ar * ammonia$temp_agua)
set.seed(123)
gof <- simplex_gof(ammonia$perda, X, Z, B = 200, verbose = FALSE)
plot_gof_boot(gof)

# }