R/define_interval_given_datapoint_and_limit.R

In msxakk89/dat: Data Analyst Toolkit (dat): a library of tools for data analysts and scientists

#' Define interval given datapoint and limit
#' 
#' @param dataPoint A numeric data point.
#' @param perCent_upperLimit A per cent numeric in decimal form specifying the "upper limit".
#' @param perCent_lowerLimit A per cent numeric in decimal form specifying the "lower limit".
#' @export 
#' 
define_interval_given_datapoint_and_limit = function(dataPoint, perCent_upperLimit, perCent_lowerLimit){
  perCent_upperLimit = perCent_upperLimit + 1
  perCent_lowerLimit = 1-perCent_lowerLimit 
  o = c(dataPoint*perCent_lowerLimit,dataPoint*perCent_upperLimit)
  names(o) = c("lower","upper")
  return(o)
}