convert MLSSTAT in MCPD format

@slgora in script1 to address the different format of WIEWS dataset

please replace

# recode MLSSTAT as TRUE and FALSE
WIEWS_new15crops$MLSSTAT[WIEWS_new15crops$MLSSTAT == "I"] <-  TRUE
WIEWS_new15crops$MLSSTAT[WIEWS_new15crops$MLSSTAT == "N"] <-  FALSE

with this code

# recode MLSSTAT as TRUE and FALSE
WIEWS_new15crops$MLSSTAT[WIEWS_new15crops$MLSSTAT == "Included"] <-  TRUE
WIEWS_new15crops$MLSSTAT[WIEWS_new15crops$MLSSTAT == "Not included"] <-  FALSE