View source: R/NuggetKrigingClass.R
load.NuggetKriging | R Documentation |
Load a NuggetKriging Model from a file storage
load.NuggetKriging(filename, ...)
filename |
File name to load from. |
... |
Not used. |
The loaded NuggetKriging 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) + 0.1 * rnorm(nrow(X))
points(X, y, col = "blue")
k <- NuggetKriging(y, X, "matern3_2")
print(k)
outfile = tempfile("k.json")
save(k,outfile)
print(load.NuggetKriging(outfile))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.