55 lines
1.3 KiB
R
55 lines
1.3 KiB
R
% Generated by roxygen2: do not edit by hand
|
|
% Please edit documentation in R/predict.R
|
|
\name{predict.cve}
|
|
\alias{predict.cve}
|
|
\title{Predict method for CVE Fits.}
|
|
\usage{
|
|
\method{predict}{cve}(object, newdata, dim, ...)
|
|
}
|
|
\arguments{
|
|
\item{object}{instance of class \code{cve} (result of \code{cve},
|
|
\code{cve.call}).}
|
|
|
|
\item{newdata}{Matrix of the new data to be predicted.}
|
|
|
|
\item{dim}{dimension of SDR space to be used for data projecition.}
|
|
|
|
\item{...}{further arguments passed to \code{\link{mars}}.}
|
|
}
|
|
\value{
|
|
prediced response of data \code{newdata}.
|
|
}
|
|
\description{
|
|
Predict responces using reduced data with \code{\link{mars}}.
|
|
}
|
|
\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)
|
|
|
|
x.train <- x[1:80, ]
|
|
x.test <- x[81:100, ]
|
|
y.train <- y[1:80, ]
|
|
y.test <- y[81:100, ]
|
|
|
|
# calculate cve with method 'simple' for k = 1
|
|
cve.obj.simple <- cve(y.train ~ x.train, k = 1)
|
|
|
|
# predict y.test from x.test
|
|
yhat <- predict(cve.obj.simple, x.test, 1)
|
|
|
|
# plot prediction against y.test
|
|
plot(yhat, y.test)
|
|
}
|
|
\seealso{
|
|
\code{\link{cve}}, \code{\link{cve.call}} or \pkg{\link{mars}}.
|
|
}
|