# NOT RUN {
metrics <- calculate_lsm(landscape, what = c("patch", "class"))
show_correlation(data = metrics, method = "pearson")
# }
# NOT RUN {
metrics <- calculate_lsm(landscape, what = c("patch", "class"))#'
correlations <- calculate_correlation(metrics)
show_correlation(data = correlations, method = "pearson")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab