| RFinterpolate {RandomFields} | R Documentation |
The function allows for different methods of interpolation. Currently only various kinds of kriging are installed.
RFinterpolate(model, x, y = NULL, z = NULL, T = NULL, grid=NULL,
distances, dim, data, given=NULL, err.model,
ignore.trend = FALSE, ...)
model |
string; covariance model, see |
x |
(n x d) matrix or vector of x
coordinates, or object of class
|
y |
optional vector of y coordinates |
z |
optional vector of z coordinates |
T |
optional vector of time coordinates,
|
grid |
logical; determines whether the vectors |
distances |
another alternative to pass the (relative) coordinates, see RFsimulateAdvanced. |
dim |
Only used if |
data |
Matrix, data.frame or object of class |
given |
optional, matrix or list.
If If If |
err.model |
For conditional simulation and random imputing only. |
ignore.trend |
logical. If |
... |
for options, etc. |
In case of intrinsic cokriging (intrinsic kriging for a multivariate random fields) the pseudo-cross-variogram is used (cf. Ver Hoef and Cressie, 1991).
The value depends on the additional argument variance.return,
see RFoptions.
If variance.return=FALSE (default), Kriging returns a
vector or matrix of kriged values corresponding to the
specification of x, y, z, and
grid, and data.
data: a vector or matrix with one column
* grid=FALSE. A vector of simulated values is
returned (independent of the dimension of the random field)
* grid=TRUE. An array of the dimension of the
random field is returned (according to the specification
of x, y, and z).
data: a matrix with at least two columns
* grid=FALSE. A matrix with the ncol(data) columns
is returned.
* grid=TRUE. An array of dimension
d+1, where d is the dimension of
the random field, is returned (according to the specification
of x, y, and z). The last
dimension contains the realisations.
If variance.return=TRUE, a list of two elements, estim and
var, i.e. the kriged field and the kriging variances,
is returned. The format of estim is the same as described
above. The format of var is accordingly.
Important options are
method (overwriting the automatically detected variant
of kriging)
return_variance (returning also the kriging variance)
locmaxm (maximum number of conditional values before
neighbourhood kriging is performed)
fillall imputing estimates location by default
varnames and coordnames in case
data.frames are used to tell which column contains the data
and the coordinates, respectively.
Martin Schlather, schlather@math.uni-mannheim.de http://ms.math.uni-mannheim.de/de/publications/software
Marco Oesting, oesting@math.uni-mannheim.de
Martin Schlather, schlather@math.uni-mannheim.de http://ms.math.uni-mannheim.de/de/publications/software
Alexander Malinowski, malinowski@math.uni-mannheim.de
Marco Oesting, oesting@math.uni-mannheim.de
Chiles, J.-P. and Delfiner, P. (1999) Geostatistics. Modeling Spatial Uncertainty. New York: Wiley.
Cressie, N.A.C. (1993) Statistics for Spatial Data. New York: Wiley.
Goovaerts, P. (1997) Geostatistics for Natural Resources Evaluation. New York: Oxford University Press.
Ver Hoef, J.M. and Cressie, N.A.C. (1993) Multivariate Spatial Prediction. Mathematical Geology 25(2), 219-240.
Wackernagel, H. (1998) Multivariate Geostatistics. Berlin: Springer, 2nd edition.
RMmodel,
RFempiricalvariogram,
RandomFields,
RFoptions(seed=0) ## *ANY* simulation will have the random seed 0; set ## RFoptions(seed=NA) to make them all random again ## Preparation of graphics dev.new(height=7, width=16) ## creating random variables first ## here, a grid is chosen, but does not matter p <- 3:8 points <- as.matrix(expand.grid(p,p)) model <- RMexp() + RMtrend(mean=1) data <- RFsimulate(model, x=points) plot(data) x <- seq(0, 9, 0.25) ## Simple kriging with the exponential covariance model model <- RMexp() z <- RFinterpolate(model, x=x, y=x, data=data) plot(z, data) ## Simple kriging with mean=4 and scaled covariance model <- RMexp(scale=2) + RMtrend(mean=4) z <- RFinterpolate(model, x=x, y=x, data=data) plot(z, data) ## Ordinary kriging model <- RMexp() + RMtrend(mean=NA) z <- RFinterpolate(model, x=x, y=x, data=data) plot(z, data) close.screen(all = TRUE)