# \donttest{
library(itsdm)
library(dplyr)
library(stars)
env_vars <- system.file(
'extdata/bioclim_tanzania_10min.tif',
package = 'itsdm') %>% read_stars()
img_reduced <- dim_reduce(env_vars, threshold = 0.7,
preferred_vars = c('bio1', 'bio12'))
print(img_reduced)
# }
Run the code above in your browser using DataLab