RandomFields
offers various tools for
It can also deal with non-stationarity and anisotropy of these processes and conditional simulation (for Gaussian random fields, currently).
See http://ms.math.uni-mannheim.de/de/publications/software/ for intermediate updates.
soil
: soil physical data
weather
: UWME weather data
papers
: code used in the papers published by
the author(s)
RFfit
: general function for estimating
parameters; (for Gaussian random fields)
RFhurst
: estimation of the Hurst parameter
RFfractaldim
: estimation of the fractal
dimension
RFempiricalvariogram
: calculates
the empirical variogram
RFgui
plot
RFpar
RFcrossvalidate
: cross validation
RFlikelihood
: likelihood
RFratiotest
: likelihood ratio test
AIC
,
AICc
,
BIC
, anova
,
logLik
RFformula
.
RFcov
,
RFvariogram
and RFcovmatrix
.
For a quick impression use plot(model)
.
RFfctn
and
RFcalc
RFlinearpart
returns the linear part of a
model
RFboxcox
deals explicitely with Box-Cox
transformations. In many cases it is performed implicitely.
RFinterpolate
: kriging, including imputing
RFsimulate
: Simulation
of random fields,
including conditional simulation. For a list of all covariance
functions and variogram models see RM
.
Use plot
for visualisation of the result.
spConform=TRUE
.
This is the default.
If spConform=FALSE
,
simple objects as in version 2 are returned.
These simple objects are frequently provided with an S3 class.
This options makes the returning procedure much faster, but
currently does not allow for the comfortable use of
plot
.
plot
,
print
, summary
,
sometimes also str
recognise these S3 and S4
objects
sp2RF
for an explicite transformation
of sp objects to S4 objects of RandomFields.
RFoptions
RFoptions(seed=0) ## *ANY* simulation will have the random seed 0; set
## RFoptions(seed=NA) to make them all random again
# simulate some data first (Gaussian random field with exponential
# covariance; 6 realisations)
model <- RMexp()
x <- seq(0, 10, 0.1)
z <- RFsimulate(model, x, x, n=6)
## select some data from the simulated data
xy <- coordinates(z)
pts <- sample(nrow(xy), min(100, nrow(xy) / 2))
data <- matrix(nrow=nrow(xy), as.vector(z))[pts, ]
data <- cbind(xy[pts, ], data)
plot(z, data)
## re-estimate the parameter (true values are 1)
estmodel <- RMexp(var=NA, scale=NA)
(fit <- RFfit(estmodel, data=data))
## show a kriged field based on the estimated parameters
kriged <- RFinterpolate(fit, x, x, data=data)
plot(kriged, data)
Run the code above in your browser using DataLab