require("Morphoscape")
data("turtles")
data("warps")
fnc_df <- as_fnc_df(warps,
func.names = c("hydro", "curve", "mech", "fea"))
kr_surf <- krige_surf(fnc_df, new_data = turtles)
grid_weights <- generate_weights(n = 10, data = kr_surf)
all_lscps <- calc_all_lscps(kr_surf,
grid_weights = grid_weights)
wprime_S <- calcGrpWprime(all_lscps,
index = Ecology == "S")
wprime_T <- calcGrpWprime(all_lscps,
index = Ecology == "T")
lscps <- list(wprimeS = wprime_S, wprime_T = wprime_T)
# summing multiple landscapes together
summed_surfs <- sum_lscps(lscps, average = TRUE)
# summing landscapes by one or more numeric scalars
summed_surfs <- sum_lscps(lscps, num = c(1.5, -1.15)) # multiple numeric, with subtraction
# multiplying mutliple landscapes together
mult_surfs <- mult_lscps(lscps) # multiply landscapes together
# multiplying landscapes by one or more numeric scalars
mult_surfs <- mult_lscps(lscps, num = 2) # apply numeric multiplier to all landscapes
mult_surfs <- mult_lscps(lscps, num = c(1.2, 0.8)) # apply numeric elements to each landscape
# substract or divide two landscapes
sub_surf <- sub_lscps(lscps)
div_surf <- div_lscps(lscps)
# with binary result
sub_surf <- sub_lscps(lscps, binary = TRUE)
div_surf <- div_lscps(lscps, binary = TRUE)
Run the code above in your browser using DataLab