2019-09-16 09:15:51 +00:00
|
|
|
% Generated by roxygen2: do not edit by hand
|
2019-11-22 08:32:14 +00:00
|
|
|
% Please edit documentation in R/summary.R
|
2019-09-16 09:15:51 +00:00
|
|
|
\name{summary.cve}
|
|
|
|
|
\alias{summary.cve}
|
|
|
|
|
\title{Prints a summary of a \code{cve} result.}
|
|
|
|
|
\usage{
|
|
|
|
|
\method{summary}{cve}(object, ...)
|
|
|
|
|
}
|
|
|
|
|
\arguments{
|
2019-11-20 18:03:21 +00:00
|
|
|
\item{object}{Instance of 'cve' as returned by \code{cve}.}
|
2019-11-22 08:32:14 +00:00
|
|
|
|
|
|
|
|
\item{...}{ignored.}
|
2019-09-16 09:15:51 +00:00
|
|
|
}
|
|
|
|
|
\description{
|
|
|
|
|
Prints a summary of a \code{cve} result.
|
|
|
|
|
}
|
2019-12-05 16:35:29 +00:00
|
|
|
\examples{
|
|
|
|
|
# create B for simulation
|
|
|
|
|
B <- rep(1, 5) / sqrt(5)
|
|
|
|
|
|
|
|
|
|
set.seed(21)
|
|
|
|
|
#creat predictor data x ~ N(0, I_p)
|
|
|
|
|
x <- matrix(rnorm(500), 100)
|
|
|
|
|
|
|
|
|
|
# simulate response variable
|
|
|
|
|
# y = f(B'x) + err
|
|
|
|
|
# with f(x1) = x1 and err ~ N(0, 0.25^2)
|
|
|
|
|
y <- x \%*\% B + 0.25 * rnorm(100)
|
|
|
|
|
|
|
|
|
|
# calculate cve for unknown k between min.dim and max.dim.
|
|
|
|
|
cve.obj.simple <- cve(y ~ x)
|
|
|
|
|
|
|
|
|
|
summary(cve.obj.simple)
|
|
|
|
|
|
|
|
|
|
}
|
