as.km.NoiseKriging: Coerce a 'NoiseKriging' Object into the Class '"km"'

View source: R/NoiseKrigingClass.R

as.km.NoiseKrigingR Documentation

Coerce a NoiseKriging Object into the Class "km"

Description

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

Usage

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

Arguments

x

An object with S3 class "NoiseKriging".

.call

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

...

Not used.

Value

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

Author(s)

Yann Richet yann.richet@irsn.fr

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)

rlibkriging documentation built on Sept. 22, 2022, 5:07 p.m.