prinKrige {kergp} | R Documentation |
Principal Kriging Functions
Description
Principal Kriging Functions.
Usage
prinKrige(object)
Arguments
object |
An object with class |
Details
The Principal Kriging Functions (PKF) are the eigenvectors of a
symmetric positive matrix named the Bending
Energy Matrix which is met when combining a linear trend and a
covariance kernel as done in
gp
. This matrix has
dimension and rank
. The PKF are
given in the ascending order of the eigenvalues
The first PKF generate the same space as do the
columns of the trend matrix
, say
. The following
PKFs generate a supplementary of the subspace
, and they have a decreasing
influence on the response. So the
-th PKF can give a hint on
a possible deterministic trend functions that could be added to the
existing ones.
The matrix is such that
, so the columns of
can be
thought of as the eigenvectors that are associated with the zero
eigenvalues
,
,
.
Value
A list
values |
The eigenvalues of the energy bending matrix in ascending
order. The first |
vectors |
A matrix |
B |
The Energy Bending Matrix |
Note
When an eigenvalue is such that
(which can happen only for
), the corresponding PKF is unique up to a change of sign. However a
run of
identical eigenvalues is associated with a
-dimensional eigenspace and the corresponding PKFs have no
meaning when they are considered individually.
References
Sahu S.K. and Mardia K.V. (2003). A Bayesian kriged Kalman model for short-term forecasting of air pollution levels. Appl. Statist. 54 (1), pp. 223-244.
Examples
library(kergp)
set.seed(314159)
n <- 100
x <- sort(runif(n))
y <- 2 + 4 * x + 2 * x^2 + 3 * sin(6 * pi * x ) + 1.0 * rnorm(n)
nNew <- 60; xNew <- sort(runif(nNew))
df <- data.frame(x = x, y = y)
##-------------------------------------------------------------------------
## use a Matern 3/2 covariance and a mispecified trend. We should guess
## that it lacks a mainily linear and slightly quadratic part.
##-------------------------------------------------------------------------
myKern <- k1Matern3_2
inputNames(myKern) <- "x"
mygp <- gp(formula = y ~ sin(6 * pi * x),
data = df,
parCovLower = c(0.01, 0.01), parCovUpper = c(10, 100),
cov = myKern, estim = TRUE, noise = TRUE)
PK <- prinKrige(mygp)
## the third PKF suggests a possible linear trend term, and the
## fourth may suggest a possible quadratic linear trend
matplot(x, PK$vectors[ , 1:4], type = "l", lwd = 2)