data("warps")
warps_fnc <- as_fnc_df(warps, func.names = c("hydro", "fea"))
kr_surf <- krige_surf(warps_fnc)
weights <- c(hydro = .5, fea = .5)
w_lscp <- calc_lscp(kr_surf, weights = weights)
plot(w_lscp)
# Adding new_data
data("turtles")
kr_surf <- krige_new_data(kr_surf, new_data = turtles)
w_lscp <- calc_lscp(kr_surf, weights = weights)
w_lscp
plot(w_lscp)
## See further use with calc_all_lscps()
## at help("calc_all_lscps")
Run the code above in your browser using DataLab