predict_sof_pc: Use a scalar-on-function linear regression model for...

In funcharts: Functional Control Charts

Use a scalar-on-function linear regression model for prediction

Description

Predict new observations of the scalar response variable and calculate the corresponding prediction error, with prediction interval limits, given new observations of functional covariates and a fitted scalar-on-function linear regression model

Usage

predict_sof_pc(
  object,
  y_new = NULL,
  mfdobj_x_new = NULL,
  alpha = 0.05,
  newdata
)

Arguments

object	A list obtained as output from sof_pc, i.e. a fitted scalar-on-function linear regression model.
y_new	A numeric vector containing the new observations of the scalar response variable to be predicted.
mfdobj_x_new	An object of class mfd containing new observations of the functional covariates. If NULL, it is set as the functional covariates data used for model fitting.
alpha	A numeric value indicating the Type I error for the regression control chart and such that this function returns the 1-alpha prediction interval on the response. Default is 0.05.
newdata	Deprecated, use mfdobj_x_new argument.

Value

A data.frame with as many rows as the number of functional replications in newdata, with the following columns:

• fit: the predictions of the response variable corresponding to new_data,

• lwr: lower limit of the 1-alpha prediction interval on the response, based on the assumption that it is normally distributed.

• upr: upper limit of the 1-alpha prediction interval on the response, based on the assumption that it is normally distributed.

• res: the residuals obtained as the values of y_new minus their fitted values. If the scalar-on-function model has been fitted with type_residual == "studentized", then the studentized residuals are calculated.

Author(s)

C. Capezza

Examples

library(funcharts)
data("air")
air <- lapply(air, function(x) x[1:10, , drop = FALSE])
fun_covariates <- c("CO", "temperature")
mfdobj_x <- get_mfd_list(air[fun_covariates], lambda = 1e-2)
y <- rowMeans(air$NO2)
mod <- sof_pc(y, mfdobj_x)
predict_sof_pc(mod)

funcharts documentation built on April 3, 2025, 7:47 p.m.