Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Feret Jean-Baptiste
biodivMapR
Commits
7d29405f
Commit
7d29405f
authored
Sep 04, 2019
by
jbferet
Browse files
- correct if mask = FALSE
parent
d728cf1c
Changes
2
Hide whitespace changes
Inline
Side-by-side
R/Lib_FilterData.R
View file @
7d29405f
...
...
@@ -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
...
...
R/Lib_PerformPCA.R
View file @
7d29405f
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment