% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/supervised_pca.R
\name{supervised_pca}
\alias{supervised_pca}
\title{Supervised Principal Component Analysis (SPCA)}
\usage{
supervised_pca(data, response, K = NULL, threshold = 0.9, verbose = FALSE)
}
\arguments{
\item{data}{Numeric data frame or matrix}

\item{response}{Numeric response vector}

\item{K}{Number of components (auto if NULL)}

\item{threshold}{Variance threshold for K selection}

\item{verbose}{Logical; if TRUE prints progress messages}
}
\value{
List of SPCA results
}
\description{
True SPCA (Bair et al.): screening + PCA
}
\examples{
data(mtcars)
Result <- supervised_pca(
  mtcars[, -1],
  mtcars$mpg
)
}
