2019-09-16 09:15:51 +00:00
|
|
|
% Generated by roxygen2: do not edit by hand
|
|
|
|
% Please edit documentation in R/CVE.R
|
|
|
|
\name{cve}
|
|
|
|
\alias{cve}
|
2019-10-18 07:06:36 +00:00
|
|
|
\title{Conditional Variance Estimator (CVE).}
|
2019-09-16 09:15:51 +00:00
|
|
|
\usage{
|
2019-09-25 12:49:12 +00:00
|
|
|
cve(formula, data, method = "simple", max.dim = 10L, ...)
|
2019-09-16 09:15:51 +00:00
|
|
|
}
|
|
|
|
\arguments{
|
2019-10-18 07:06:36 +00:00
|
|
|
\item{formula}{an object of class \code{"formula"} which is a symbolic
|
|
|
|
description of the model to be fitted.}
|
2019-09-16 09:15:51 +00:00
|
|
|
|
2019-10-18 07:06:36 +00:00
|
|
|
\item{data}{an optional data frame, containing the data for the formula if
|
|
|
|
supplied.}
|
2019-09-16 09:15:51 +00:00
|
|
|
|
2019-10-18 07:06:36 +00:00
|
|
|
\item{method}{specifies the CVE method variation as one of
|
2019-09-16 09:15:51 +00:00
|
|
|
\itemize{
|
2019-10-22 08:33:41 +00:00
|
|
|
\item "simple" exact implementation as described in the paper listed
|
2019-10-18 07:06:36 +00:00
|
|
|
below.
|
|
|
|
\item "weighted" variation with addaptive weighting of slices.
|
2019-09-16 09:15:51 +00:00
|
|
|
}}
|
|
|
|
|
2019-10-18 07:06:36 +00:00
|
|
|
\item{...}{Parameters passed on to \code{cve.call}.}
|
2019-11-20 18:03:21 +00:00
|
|
|
}
|
|
|
|
\value{
|
2019-11-25 19:49:43 +00:00
|
|
|
an S3 object of class \code{cve} with components:
|
|
|
|
\describe{
|
|
|
|
\item{X}{Original training data,}
|
|
|
|
\item{Y}{Responce of original training data,}
|
|
|
|
\item{method}{Name of used method,}
|
|
|
|
\item{call}{the matched call,}
|
|
|
|
\item{res}{list of components \code{V, L, B, loss, h} and \code{k} for
|
|
|
|
each \eqn{k=min.dim,...,max.dim} (dimension).}
|
2019-11-20 18:03:21 +00:00
|
|
|
}
|
2019-09-16 09:15:51 +00:00
|
|
|
}
|
|
|
|
\description{
|
2019-11-25 19:49:43 +00:00
|
|
|
Conditional Variance Estimation (CVE) is a novel sufficient dimension
|
|
|
|
reduction (SDR) method for regressions satisfying \eqn{E(Y|X) = E(Y|B'X)},
|
|
|
|
where \eqn{B'X} is a lower dimensional projection of the predictors. CVE,
|
|
|
|
similarly to its main competitor, the mean average variance estimation
|
|
|
|
(MAVE), is not based on inverse regression, and does not require the
|
|
|
|
restrictive linearity and constant variance conditions of moment based SDR
|
|
|
|
methods. CVE is data-driven and applies to additive error regressions with
|
|
|
|
continuous predictors and link function. The effectiveness and accuracy of
|
|
|
|
CVE compared to MAVE and other SDR techniques is demonstrated in simulation
|
|
|
|
studies. CVE is shown to outperform MAVE in some model set-ups, while it
|
|
|
|
remains largely on par under most others.
|
|
|
|
Let \eqn{Y} be real denotes a univariate response and \eqn{X} a real
|
|
|
|
\eqn{p}-dimensional covariate vector. We assume that the dependence of
|
|
|
|
\eqn{Y} and \eqn{X} is modelled by
|
|
|
|
\deqn{Y = g(B'X) + \epsilon}
|
|
|
|
where \eqn{X} is independent of \eqn{\epsilon} with positive definite
|
|
|
|
variance-covariance matrix \eqn{Var(X) = \Sigma_X}. \eqn{\epsilon} is a mean
|
|
|
|
zero random variable with finite \eqn{Var(\epsilon) = E(\epsilon^2)}, \eqn{g}
|
|
|
|
is an unknown, continuous non-constant function,
|
|
|
|
and \eqn{B = (b_1, ..., b_k)} is
|
|
|
|
a real \eqn{p \times k}{p x k} of rank \eqn{k <= p}{k \leq p}.
|
|
|
|
Without loss of generality \eqn{B} is assumed to be orthonormal.
|
2019-09-16 09:15:51 +00:00
|
|
|
}
|
|
|
|
\examples{
|
2019-10-18 07:06:36 +00:00
|
|
|
# create dataset
|
2019-11-22 08:32:14 +00:00
|
|
|
x <- matrix(rnorm(400), 100, 4)
|
|
|
|
y <- x[, 1] + x[, 2] + as.matrix(rnorm(100))
|
2019-09-16 09:15:51 +00:00
|
|
|
|
2019-11-25 19:49:43 +00:00
|
|
|
# Call CVE.
|
|
|
|
dr <- cve(y ~ x)
|
2019-11-22 08:32:14 +00:00
|
|
|
# Call weighted CVE.
|
|
|
|
dr.weighted <- cve(y ~ x, method = "weighted")
|
2019-09-16 09:15:51 +00:00
|
|
|
|
2019-11-25 19:49:43 +00:00
|
|
|
# Training data responces of reduced data.
|
|
|
|
y.est <- directions(dr, 1)
|
|
|
|
# Extract SDR subspace basis of dimension 1.
|
|
|
|
B <- coef(dr.momentum, 1)
|
|
|
|
|
|
|
|
}
|
|
|
|
\references{
|
|
|
|
Fertl Lukas, Bura Efstathia. (2019), Conditional Variance
|
|
|
|
Estimation for Sufficient Dimension Reduction. Working Paper.
|
2019-09-16 09:15:51 +00:00
|
|
|
}
|
|
|
|
\seealso{
|
2019-11-20 18:03:21 +00:00
|
|
|
For a detailed description of \code{formula} see
|
2019-11-22 08:32:14 +00:00
|
|
|
\code{\link{formula}}.
|
2019-09-16 09:15:51 +00:00
|
|
|
}
|