The methods discussed in this package are new nonparametric methods
based on *sequential normal scores* (SNS), designed for sequences
of observations, usually time series data, which may occur singly or in
batches, and may be univariate or multivariate. These methods are
designed to detect changes in the process, which may occur as changes in
*location* (mean or median), changes in *scale* (standard
deviation, or variance), or other changes of interest in the
distribution of the observations, over the time observed. They usually
apply to large data sets, so computations need to be simple enough to be
done in a reasonable time on a computer, and easily updated as each new
observation (or batch of observations) becomes available.

You can install the released version of SNS from CRAN with:

`install.packages("SNSchart")`

or install from the package hosted in github.

`install_github("LuisBenavides/SNSchart")`

**Note**: To use `install_github`

it is
needed the library devtools. ## Univariate Analysis

The reference sample `Y`

and the monitoring sample
`X`

.

```
= c(10,20,30,40,50,60,70,80,90,100)
Y = c(30, 35, 45) X
```

`Y`

```
= c(10,20,30,40,50,60,70,80,90,100)
Y = c(30, 35, 45)
X = 40
theta = 0.5
Ftheta = c("a", "b", "c")
sample.id SNS(X = X, X.id = sample.id, Y = Y, theta = theta, Ftheta = Ftheta)
```

Output

```
#> $coefficients
#> $coefficients$n
#> [1] 1
#>
#> $coefficients$chart
#> [1] "Shewhart"
#>
#> $coefficients$chart.par
#> [1] 3
#>
#>
#> $R
#> [1] 3.5 5.0 1.0
#>
#> $Z
#> [1] -0.52440051 -0.31863936 0.08964235
#>
#> $X.id
#> [1] "a" "b" "c"
#>
#> $UCL
#> [1] 3 3 3
#>
#> $LCL
#> [1] -3 -3 -3
#>
#> $scoring
#> [1] "Z"
#>
#> attr(,"class")
#> [1] "SNS"
```

`Y`

```
= c(10,20,30,40,50,60,70,80,90,100)
Y = c(30, 35, 45)
X = NULL
theta = NULL
Ftheta = c("a", "b", "c")
sample.id SNS(X = X, X.id = sample.id, Y = Y, theta = theta, Ftheta = Ftheta)
```

Output

```
#> $coefficients
#> $coefficients$n
#> [1] 1
#>
#> $coefficients$chart
#> [1] "Shewhart"
#>
#> $coefficients$chart.par
#> [1] 3
#>
#>
#> $R
#> [1] 3.5 5.0 7.0
#>
#> $Z
#> [1] -0.6045853 -0.3186394 0.0000000
#>
#> $X.id
#> [1] "a" "b" "c"
#>
#> $UCL
#> [1] 3 3 3
#>
#> $LCL
#> [1] -3 -3 -3
#>
#> $scoring
#> [1] "Z"
#>
#> attr(,"class")
#> [1] "SNS"
```

`Y`

```
= NULL
Y = c(30, 35, 45)
X = 40
theta = 0.5
Ftheta = c("a", "b", "c")
sample.id SNS(X = X, X.id = sample.id, Y = Y, theta = theta, Ftheta = Ftheta)
```

Output

```
#> $coefficients
#> $coefficients$n
#> [1] 1
#>
#> $coefficients$chart
#> [1] "Shewhart"
#>
#> $coefficients$chart.par
#> [1] 3
#>
#>
#> $R
#> [1] 1.5 2.0 1.0
#>
#> $Z
#> [1] -0.6744898 -0.3186394 0.6744898
#>
#> $X.id
#> [1] "a" "b" "c"
#>
#> $UCL
#> [1] 3 3 3
#>
#> $LCL
#> [1] -3 -3 -3
#>
#> $scoring
#> [1] "Z"
#>
#> attr(,"class")
#> [1] "SNS"
```

`Y`

```
= NULL
Y = c(30, 35, 45)
X = NULL
theta = NULL
Ftheta = c("a", "b", "c")
sample.id SNS(X = X, X.id = sample.id, Y = Y, theta = theta, Ftheta = Ftheta)
```

Output

```
#> $coefficients
#> $coefficients$n
#> [1] 1
#>
#> $coefficients$chart
#> [1] "Shewhart"
#>
#> $coefficients$chart.par
#> [1] 3
#>
#>
#> $R
#> [1] 1 2 3
#>
#> $Z
#> [1] 0.0000000 0.6744898 0.9674216
#>
#> $X.id
#> [1] "a" "b" "c"
#>
#> $UCL
#> [1] 3 3 3
#>
#> $LCL
#> [1] -3 -3 -3
#>
#> $scoring
#> [1] "Z"
#>
#> attr(,"class")
#> [1] "SNS"
```