if (FALSE) {
percentages_col <- c(2, 4, 8, 16, 32, 64, 100)
percentages_row <- c(2, 4, 8, 16, 32, 64, 100)
what = c("lsm_l_pr", "lsm_l_joinent")
stat <- "mean"
scale_window(landscape, percentages_col, percentages_row, what, stat)
}
Run the code above in your browser using DataLab