R/clean_data_pt.R

In reyzaguirre/st4gi: Statistical tools for genetic improvement

#' Clean potato data
#'
#' This is a wrapper for functions \code{setna.pt} and \code{setzero.pt} and
#' applies both in that order.
#' 
#' @param dfr The name of the data frame.
#' @param f Factor for extreme values detection.
#' 
#' @details The data frame must use the labels (lower or upper case) listed
#' in function \code{check.names.pt}. Then functions \code{setna.pt} and
#' \code{setzero.pt} are applied to the data.
#' 
#' @return It returns the data frame with all impossible values set to \code{NA},
#' some values set to \code{0} and a list of warnings with all the rows that have
#' been modified.
#' @author Raul Eyzaguirre.
#' @examples
#' dfr <- data.frame(mtwp = c(2.2, 5.0, 3.6, 12, 1600, -4, 0),
#'                   dm = c(21, 23, 105, 24, -3, 30, NA),
#'                   nmtp = c(1.3, 10, 11, NA, 2, 5, NA))
#' clean.data.pt(dfr)
#' @importFrom stats IQR quantile
#' @export

clean.data.pt <- function(dfr, f = 10) {
  
  dfr <- setna.pt(dfr, f)
  
  dfr <- setzero.pt(dfr)
  
  # Return
  
  dfr
  
}