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
+# }