Real-time functional regression control chart
This function produces a list of data frames,
each of them is produced by regr_cc_fof
and is needed to plot control charts for monitoring
a functional response variable and
multivariate functional covariates
each evolving up to an intermediate domain point.
regr_cc_fof_real_time( mod_list, mfdobj_y_new_list, mfdobj_x_new_list, mfdobj_y_tuning_list = NULL, mfdobj_x_tuning_list = NULL, alpha = list(T2 = 0.025, spe = 0.025), ncores = 1 )
mod_list |
A list of lists produced by |
mfdobj_y_new_list |
A list created using
|
mfdobj_x_new_list |
A list created using
|
mfdobj_y_tuning_list |
A list created using
|
mfdobj_x_tuning_list |
A list created using
|
alpha |
See |
ncores |
If you want parallelization, give the number of cores/threads to be used when creating objects separately for different instants. |
A list of data.frames each
produced by regr_cc_fof,
corresponding to a given instant.
library(funcharts)
data("air")
air1 <- lapply(air, function(x) x[1:8, , drop = FALSE])
air2 <- lapply(air, function(x) x[9:10, , drop = FALSE])
mfdobj_x1_list <- get_mfd_list_real_time(air1[c("CO", "temperature")],
n_basis = 15,
lambda = 1e-2,
k_seq = c(0.5, 1))
mfdobj_x2_list <- get_mfd_list_real_time(air2[c("CO", "temperature")],
n_basis = 15,
lambda = 1e-2,
k_seq = c(0.5, 1))
mfdobj_y1_list <- get_mfd_list_real_time(air1["NO2"],
n_basis = 15,
lambda = 1e-2,
k_seq = c(0.5, 1))
mfdobj_y2_list <- get_mfd_list_real_time(air2["NO2"],
n_basis = 15,
lambda = 1e-2,
k_seq = c(0.5, 1))
mod_list <- fof_pc_real_time(mfdobj_y1_list, mfdobj_x1_list)
cclist <- regr_cc_fof_real_time(
mod_list = mod_list,
mfdobj_y_new_list = mfdobj_y2_list,
mfdobj_x_new_list = mfdobj_x2_list)
plot_control_charts_real_time(cclist, 1)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.