## Not run: ------------------------------------
# # dontrun() used because running the example requires internet access.
# data(QualityCheckExample)
# EVIdata <- QualityCheckExample[1:5, ]
# QAdata <- QualityCheckExample[6:10, ]
#
# QualityCheck(Data=EVIdata, Product="MOD13Q1", Band="250m_16_days_EVI",
# NoDataFill=-3000, QualityBand="250m_16_days_pixel_reliability",
# QualityScores=QAdata, QualityThreshold=0)
#
## ---------------------------------------------
Run the code above in your browser using DataLab