rlibkriging (version 0.9-1)

as.km.NoiseKriging: Coerce a NoiseKriging object into the "km" class of the DiceKriging package.

Description

Coerce a NoiseKriging object into the "km" class of the DiceKriging package.

Usage

# S3 method for NoiseKriging
as.km(x, .call = NULL, ...)

Value

An object of having the S4 class "KM" which extends the "km" class of the DiceKriging package and contains an extra NoiseKriging slot.

Arguments

x

An object with S3 class "NoiseKriging".

.call

Force the call slot to be filled in the returned km object.

...

Not used.

Author

Yann Richet

Examples

f <- function(x) 1 - 1 / 2 * (sin(12 * x) / (1 + x) + 2 * cos(7 * x) * x^5 + 0.7)
set.seed(123)
X <- as.matrix(runif(10))
y <- f(X) + X/10 * rnorm(nrow(X)) # add noise dep. on X
## fit and print
k <- NoiseKriging(y, noise=(X/10)^2, X, kernel = "matern3_2")
print(k)

k_km <- as.km(k)
print(k_km)