1d:T676,# Crop a continuous raster by a binary (0/1) raster footprint (value == 1) ```r bin2crop( r_bin, r_cont, clip = NULL, resample_method = "bilinear", dissolve = TRUE, filename = NULL, overwrite = FALSE ) ``` ## Arguments - `r_bin`: SpatRaster. Binary raster (0/1). Cells with value 1 define the footprint. - `r_cont`: SpatRaster. Continuous raster to crop/mask. - `clip`: Optional SpatVector. Additional polygon to crop/mask the result. - `resample_method`: Character. Method for resampling r_cont to r_bin grid if needed. - `dissolve`: Logical. Dissolve contiguous 1-cells when polygonizing. - `filename`: Optional character. If provided, writes result to disk. - `overwrite`: Logical. Passed to writeRaster if filename is provided. ## Returns SpatRaster (cropped/masked continuous raster). ## Examples ```r library(terra) # Create continuous raster (e.g., suitability values 0-1) r_continuous <- rast(ncol = 50, nrow = 50, xmin = 0, xmax = 10, ymin = 0, ymax = 10) values(r_continuous) <- runif(ncell(r_continuous), 0, 1) names(r_continuous) <- "suitability" # Create binary raster (circular study area) r_binary <- rast(r_continuous) xy <- xyFromCell(r_binary, 1:ncell(r_binary)) center_dist <- sqrt((xy[,1] - 5)^2 + (xy[,2] - 5)^2) values(r_binary) <- ifelse(center_dist <= 3, 1, 0) names(r_binary) <- "study_area" # Crop continuous raster to binary footprint result <- bin2crop(r_bin = r_binary, r_cont = r_continuous) # Plot comparison par(mfrow = c(1, 3)) plot(r_binary, main = "Binary Footprint (Study Area)") plot(r_continuous, main = "Original Continuous") plot(result, main = "Cropped Result") ```1e:T49a,M7.49933 0.25C3.49635 0.25 0.25 3.49593 0.25 7.50024C0.25 10.703 2.32715 13.4206 5.2081 14.3797C5.57084 14.446 5.70302 14.2222 5.70302 14.0299C5.70302 13.8576 5.69679 13.4019 5.69323 12.797C3.67661 13.235 3.25112 11.825 3.25112 11.825C2.92132 10.9874 2.44599 10.7644 2.44599 10.7644C1.78773 10.3149 2.49584 10.3238 2.49584 10.3238C3.22353 10.375 3.60629 11.0711 3.60629 11.0711C

bin2crop function