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

## -----------------------------------------------------------------------------
library(GLBFP)

c(
  ash = exists("ash"),
  lbfp = exists("lbfp"),
  glbfp = exists("glbfp")
)

## -----------------------------------------------------------------------------
x <- matrix(rnorm(300), ncol = 1)
b <- compute_bi_optim(x, m = 1)

point_fit <- glbfp(x = 0, data = x, b = b, m = 1)
grid_fit <- glbfp_estimate(data = x, b = b, m = 1, grid_size = 80)

summary(point_fit)
summary(grid_fit)