R/weight2flag.R

In SWS-Methodology/faoswsFlag: Package to manipulate and aggregate observational status

##' Function to convert information weight to flag.
##'
##' The function converts a numeric information weight back to a flag.
##'
##' @param flagObservationWeight The information weight of an observation.
##' @param flagTable The table mapping flags and weights.
##'
##' @export
##'

weight2flag = function(flagObservationWeight,
                       flagTable = flagWeightTable){
    index = match(flagObservationWeight, flagTable$flagObservationWeights)
    as.character(flagTable$flagObservationStatus[index])
}