Rutils/maybe-not-useful/lulcc.utils.r

In manfredo89/ED2io: Manages Input/Output for Ecosystem Demography 2 Model

#==========================================================================================#
#==========================================================================================#
#    This function creates tags for disturbance history.                                   #
#------------------------------------------------------------------------------------------#
dist.tagger <<- function(x){
   sel = ! substring(x,4,5) %in% "00"
   if (any(sel)){
      ans = paste(x[sel],collapse="_")
   }else{
      ans = "UKN00"
   }#end if
   return(ans)
}#end dist.tagger
#==========================================================================================#
#==========================================================================================#