From 908da0ef3bd96dc78c7f969b560fedf903695682 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Vin=C3=ADcius=20Mesquita?= Date: Fri, 3 Aug 2018 15:19:41 -0300 Subject: [PATCH] Update spectral_resampling_response_functions.R Add MODIS response function support --- R/spectral_resampling_response_functions.R | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/R/spectral_resampling_response_functions.R b/R/spectral_resampling_response_functions.R index c6714c1..5bf8639 100755 --- a/R/spectral_resampling_response_functions.R +++ b/R/spectral_resampling_response_functions.R @@ -18,6 +18,19 @@ return(response) } +.get_MODIS_response <- function () +{ + MODIS_response <- NULL + rm(MODIS_response) + data("MODIS_response", package = "hsdar", envir = environment()) + response <- MODIS_response + attr(response, "wlunit") <- "nm" + attr(response, "minwl") <- 350 + attr(response, "maxwl") <- 2500 + attr(response, "stepsize") <- 1 + return(response) +} + .get_RapidEye_response <- function () { RapidEye_response <- NULL @@ -163,4 +176,4 @@ # attr(response, "maxwl") <- 2401 # attr(response, "stepsize") <- 1 # return(response) -# } \ No newline at end of file +# }