bme_cv | R Documentation |
bme_cv
performs LOOCV to evaluate the prediction performance
of the Bayesian Maximum Entropy (BME) spatial interpolation method using both
hard and soft (interval) data. For each hard data location, the function
removes the observed value and predicts it using all remaining hard and soft
data points. This is repeated for every hard data location. The predictions
are either posterior means or posterior modes, depending on the type
argument.
This function is useful for validating the BME interpolation method and tuning variogram parameters.
bme_cv(data_object, model, nugget, sill, range,
nsmax = 5, nhmax = 5, n = 50,
zk_range = extended_range(data_object), type)
data_object |
A list containing the hard and soft data. |
model |
A string specifying the variogram or covariance model to use
(e.g., |
nugget |
A non-negative numeric value for the nugget effect in the variogram model. |
sill |
A numeric value representing the sill (total variance) in the variogram model. |
range |
A positive numeric value for the range (or effective range) parameter of the variogram model. |
nsmax |
An integer specifying the maximum number of nearby soft data points to include for estimation (default is 5). |
nhmax |
An integer specifying the maximum number of nearby hard data points to include for estimation (default is 5). |
n |
An integer indicating the number of points at which to evaluate the
posterior density over |
zk_range |
A numeric vector specifying the range over which to evaluate
the unobserved value at the estimation location ( |
type |
A string indicating the type of BME prediction to compute: either
|
A data frame containing the coordinates, observed
values, BME predictions (posterior mean
or mode
),
posterior variance (if type = "mean"
), residuals, and fold
indices.
data("utsnowload")
ch <- utsnowload[2:10, c("latitude", "longitude")]
cs <- utsnowload[68:232, c("latitude", "longitude")]
zh <- utsnowload[2:10, c("hard")]
a <- utsnowload[68:232, c("lower")]
b <- utsnowload[68:232, c("upper")]
data_object <- bme_map(ch, cs, zh, a , b)
bme_cv(data_object, model = "exp", nugget = 0.0953, sill = 0.3639,
range = 1.0787, type = "mean")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.