Commit 7d29405f authored by jbferet's avatar jbferet
Browse files

- correct if mask = FALSE

parent d728cf1c
......@@ -27,7 +27,9 @@
perform_radiometric_filtering <- function(Image_Path, Mask_Path, Output_Dir, TypePCA = "SPCA", NDVI_Thresh = 0.5, Blue_Thresh = 500, NIR_Thresh = 1500, Blue = 480, Red = 700, NIR = 835) {
# check if format of raster data is as expected
check_data(Image_Path)
check_data(Mask_Path)
if (!Mask_Path==FALSE){
check_data(Mask_Path)
}
# define full output directory
Output_Dir_Full <- define_output_directory(Output_Dir, Image_Path, TypePCA)
# define dimensions of the image
......
......@@ -27,7 +27,9 @@
perform_PCA <- function(ImPath, ImPathShade, Output_Dir, Continuum_Removal = TRUE, TypePCA = "SPCA", FilterPCA = FALSE, Excluded_WL = FALSE, nb_partitions = 20, nbCPU = 1, MaxRAM = 0.25) {
# check if format of raster data is as expected
check_data(ImPath)
check_data(ImPathShade)
if (!ImPathShade==FALSE){
check_data(ImPathShade)
}
# define the path corresponding to image, mask and output directory
ImNames <- list()
ImNames$Input.Image <- ImPath
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment