remove.data.R
#' Remove an undesirable observation.
#'
#' This function removes an undesirable data that might be out of control in
#' you data set. It is used at Hotelling T2 control charts for phase I.
#'
#'
#' @param datum The data set. Should be an array.
#' @param i The index in the matrix of the data to be removed.
#' @return Return the new data set without the observation that was removed.
#' @export
#' @author Daniela R. Recchia, Emanuel P. Barbosa
#' @examples
#'
#' mu <- c(5.682, 88.22)
#' Sigma <- symMatrix(c(3.770, -5.495, 13.53), 2)
#' datum <- data.1(20, 10, mu, Sigma)
#' # Removing the observatiob 13 from the data set "datum" and updating it:
#' datum <- remove.data(datum, 13)
#'
remove.data <- function(datum, i)
{
if(is.matrix(datum))
datum <- datum[-i, ]
else
datum <- datum[, , -i]
return(datum)
}