R/outliersiqr.R

In sollano/forestmangr: Forest Mensuration and Management

#' @title 
#' Calculate interquartile range
#' @description 
#' Calculate interquartile range for a given vector
#'
#' @param x a vector.
#' @export
#' @examples 
#' 
#' library(forestmangr)
#' outliersiqr(iris$Sepal.Length)
#' 
#' @author Sollano Rabelo Braga \email{sollanorb@@gmail.com}


outliersiqr <- function(x){
  
  x <- dplyr::na_if(x,0)
  
  q25      <- stats::quantile(x, probs=c(.25), na.rm = TRUE)
  q75      <- stats::quantile(x, probs=c(.75), na.rm = TRUE)
  iqr      <- stats::IQR(x, na.rm = TRUE)
  uplimit  <- q75+1*iqr
  lowlimit <- q25-1*iqr
  
  y <- dplyr::tibble(lowlimit,uplimit)  
  
  return(y)
}