R/snowcrab.lookup.mapparams.R

In jae0/snowcrab: Snow crab assessment suite for aegis* and associated projects.

snowcrab.lookup.mapparams = function( DS="datarange", vn ){

  if (DS=="datarange") {
    datarange = NULL
    if ( grepl("_presence_absence", vn, ignore.case=TRUE) ) datarange = seq(0, 1, length.out=100)
    if ( grepl(".rsquared", vn, ignore.case=TRUE) ) datarange = seq(0, 1, length.out=100)
    if ( grepl(".phi", vn) ) datarange = seq(0.1, 50, length.out=100)
    if ( grepl(".range", vn) ) datarange = seq(0.5, 100, length.out=100)
    if ( grepl(".nu", vn) ) datarange = seq(0.1, 3, length.out=100)
    return(datarange)
  }

  # -------------------------

#  if (DS=="color.code") {
#    color.code = "blue.black"
#    return (color.code)
#  }

}