R/rfr_fpca.tfd_reg.R

In tidyfun/refundr: Tidier regression with functional data

##' @describeIn rfr_fpca FPCA for data on a regular grid defaults to [refund::fpca.face()]
##' @importFrom rlang as_name enquo `!!`
##' @export
rfr_fpca.tfd_reg <- function(Y, data, pve = 0.99, npc = NULL, method = fpca_face, ...){

  method_name = as_name(enquo(method))
  model_var_name = as_name(enquo(Y))

  tf_vec <- pull(data, !!enquo(Y))
  results <- tfb_fpc(tf_vec, method = method, pve = pve, npc = npc, ...)

  results_ls <- extract_fpca(results)
  results_ls$Y <- tf_vec
  results_ls$model_var <- model_var_name
  results_ls$method = method_name

  return(results_ls)
}