# NOT RUN {
library(ALUES)
out <- suit("ricebr", terrain=MarinduqueLT, water=MarinduqueWater, temp=MarinduqueTemp, sow_month=1)
out[["terrain"]]
# Soil Overall Suitability
head(overall_suit(out[["soil"]]))
head(overall_suit(out[["soil"]], "average"))
head(overall_suit(out[["soil"]], "maximum"))
head(overall_suit(out[["soil"]], "average", c(0, 0.3, 0.35, 0.6, 1.0)))
# Water Overall Suitability
head(overall_suit(out[["water"]], "average"))
head(overall_suit(out[["water"]], "maximum"))
head(overall_suit(out[["water"]], "average", c(0, 0.3, 0.35, 0.6, 1.0)))
# Temperature Overall Suitability
head(overall_suit(out[["temp"]], "average"))
head(overall_suit(out[["temp"]], "maximum"))
head(overall_suit(out[["temp"]], "average", c(0, 0.3, 0.35, 0.6, 1.0)))
# }
Run the code above in your browser using DataLab