fun_range:

In EURAC-Ecohydro/SnowSeasonAnalysis: Analysis of snow and precipitation during winter season

Usage

fun_range(DATA, VARIABLE, git_folder)

Arguments

DATA
VARIABLE
git_folder

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (DATA, VARIABLE, git_folder) 
{
    range_data = read.csv(paste(git_folder, "data/Support files/Range_min_max.csv", 
        sep = ""), stringsAsFactors = F)
    if (any(colnames(DATA) == VARIABLE)) {
        MIN = range_data$MIN[which(range_data$VARIABLE == VARIABLE)]
        MAX = range_data$MAX[which(range_data$VARIABLE == VARIABLE)]
        if (is.na(MIN) | is.na(MAX)) {
            warning(paste(paste("Set up  the range of admitted values for '", 
                VARIABLE, "'.", sep = ""), "See: ", paste(git_folder, 
                "data/Support files/Range_min_max.csv", sep = ""), 
                sep = "\n"))
        }
        raw = DATA[, which(colnames(DATA) == VARIABLE)]
        new = raw
        new[which(new < MIN)] = NA
        new[which(new > MAX)] = NA
        return(new)
    }
    else {
        warning(paste("No column called '", VARIABLE, "'. Check input table!", 
            sep = ""))
        return(0)
    }
  }

EURAC-Ecohydro/SnowSeasonAnalysis documentation built on Dec. 6, 2020, 2:05 a.m.