View source: R/NoiseKrigingClass.R
copy.NoiseKriging | R Documentation |
Duplicate a NoiseKriging Model
## S3 method for class 'NoiseKriging'
copy(object, ...)
object |
An S3 NoiseKriging object. |
... |
Not used. |
The copy of object.
Yann Richet yann.richet@irsn.fr
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))
k <- NoiseKriging(y, (X/10)^2, X, kernel = "matern3_2", objective="LL")
print(k)
print(copy(k))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.