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, c("hard")]
a <- utsnowload[68:232, c("lower")]
b <- utsnowload[68:232, c("upper")]
data_object <- bme_map(ch, cs, zh, a , b)
bme_predict(x, data_object,
model = "exp", nugget = 0.0953,
sill = 0.3639, range = 1.0787, type = "mean"
)
Run the code above in your browser using DataLab