R/model.frame.R

Defines functions model.matrix.brokenstick model.frame.brokenstick

#' @export
model.frame.brokenstick <- function(formula, data = NULL, ...) {
  if (formula$light) {
    return(NULL)
  }
  names <- unlist(formula$names)
  if (is.null(data)) data <- formula$data
  ff <- paste(names[["y"]], "~", names[["x"]], "+", names[["g"]])
  form <- as.formula(ff)
  return(model.frame.default(formula = form, data = data, ...))
}

#' @export
model.matrix.brokenstick <- function(object, ...) {
  if (object$light) {
    return(NULL)
  }
  x_name <- object$names$x[1L]
  obj <- make_basis(
    x = object$data[[x_name]],
    internal = get_knots(object, hide = "boundary"),
    boundary = get_knots(object, hide = "internal")
  )
  return(obj)
}
stefvanbuuren/brokenstick documentation built on June 9, 2025, 11:03 p.m.