% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/add.data.R
\name{add.data}
\alias{add.data}
\title{Updates the Hotelling Control Chart.}
\usage{
add.data(datum2, estat, T2II, n, j, m = NULL)
}
\arguments{
\item{datum2}{The data set for the phase II. Shoul be a vector.}

\item{estat}{The values of the auxiliary statistics. Should be a list with a
vector with the mean of the mean vectors, a matrix with the average of the
variance-covariance matrices and a matrix with the means.}

\item{T2II}{A vector with the value of T2 statistic for one sample.}

\item{n}{The sample size. For individual observations, use n = 1.}

\item{j}{The index of the current sample.}

\item{m}{The number of samples in phase I. Only needed if the phase I data
set is show on the plot.}
}
\value{
Add the new observation to the current Hoteliing control chart for
phase II.
}
\description{
This function is used to update the phase II control chart with new
observations.
}
\details{
To use this function it is necessary to have the output given by the
function T2.2. At every step you should entry with the new data set.
}
\examples{

mu <- c(5.682, 88.22)
Sigma <- symMatrix(c(3.770, -5.495, 13.53), 2)
datum <- data.1(20, 10, mu, Sigma)
estat <- stats(datum, 20, 10, 2)
datum2 <- data.2(estat, 10, p = 2)
T2II <- T2.2(datum2, estat, 10)
#Not showing the phase I data set.
cchart.T2.2(T2II, 20, 10, 1, 25, 2)
datum3 <- data.2(estat, 10, p = 2)
add.data(datum3, estat, T2II, 10, 2)
#Showing the phase I data set.
cchart.T2.2(T2II, 20, 10, 1, 25, 2, datum = datum)
datum3 <- data.2(estat, 10, p = 2)
add.data(datum3, estat, T2II, 10, 2, 20)

#Example with individual observations
datum <- data.1(50, 1, mu, Sigma)
estat <- stats(datum, 50, 1, 2)
datum2 <- data.2(estat, 1, p = 2)
T2II <- T2.2(datum2, estat, 1)
#Not showing the phase I data set.
cchart.T2.2(T2II, 50, 1, 1, 25, 2)
datum3 <- data.2(estat, 1, p = 2)
add.data(datum3, estat, T2II, 1, 2)
#Showing the phase I data set.
cchart.T2.2(T2II, 50, 1, 1, 25, 2, datum = datum)
datum3 <- data.2(estat, 1, p = 2)
add.data(datum3, estat, T2II, 1, 2, 50)

}
\seealso{
\link{T2.2}
}
\author{
Daniela R. Recchia, Emanuel P. Barbosa
}