# add.data: Updates the Hotelling Control Chart. In IQCC: Improved Quality Control Charts

## Description

This function is used to update the phase II control chart with new observations.

## Usage

 `1` ```add.data(datum2, estat, T2II, n, j, m = NULL) ```

## Arguments

 `datum2` The data set for the phase II. Shoul be a vector. `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. `T2II` A vector with the value of T2 statistic for one sample. `n` The sample size. For individual observations, use n = 1. `j` The index of the current sample. `m` The number of samples in phase I. Only needed if the phase I data set is show on the plot.

## 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.

## Value

Add the new observation to the current Hoteliing control chart for phase II.

## Author(s)

Daniela R. Recchia, Emanuel P. Barbosa

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28``` ```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) ```