prob_zk | R Documentation |
Computes the posterior and plots probability density function (PDF) at a single unobserved spatial location using the Bayesian Maximum Entropy (BME) framework. This function integrates both hard data (precise measurements) and soft data (interval or uncertain observations), together with a specified variogram model, to numerically estimate the posterior density across a range of possible values. Optionally displays a plot of the posterior density function for the specified location.
prob_zk(x, ch, cs, zh, a, b,
model, nugget, sill, range, nsmax = 5,
nhmax = 5, n = 50, zk_range = extended_range(zh, a, b),
plot = FALSE)
x |
A two-column matrix of spatial coordinates for a single estimation location. |
ch |
A two-column matrix of spatial coordinates for hard data locations. |
cs |
A two-column matrix of spatial coordinates for soft (interval) data locations. |
zh |
A numeric vector of observed values at the hard data locations. |
a |
A numeric vector of lower bounds for the soft interval data. |
b |
A numeric vector of upper bounds for the soft interval 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 ( |
plot |
Logical; if |
Two elements:
A data frame with two columns: zk_i
(assumed zk values) and prob_zk_i
(corresponding posterior
densities).
An optional plot of posterior density of the estimation location.
data("utsnowload")
x <- utsnowload[1, c("latitude", "longitude")]
ch <- utsnowload[2:67, c("latitude", "longitude")]
cs <- utsnowload[68:232, c("latitude", "longitude")]
zh <- utsnowload[2:67, "hard"]
a <- utsnowload[68:232, "lower"]
b <- utsnowload[68:232, "upper"]
prob_zk(x, ch, cs, zh, a, b, model = "exp", nugget = 0.0953, sill = 0.3639,
range = 1.0787, plot = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.