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`

.

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

`Y`

```
Y = c(10,20,30,40,50,60,70,80,90,100)
X = c(30, 35, 45)
theta = 40
Ftheta = 0.5
sample.id = c("a", "b", "c")
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`

```
Y = c(10,20,30,40,50,60,70,80,90,100)
X = c(30, 35, 45)
theta = NULL
Ftheta = NULL
sample.id = c("a", "b", "c")
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`

```
Y = NULL
X = c(30, 35, 45)
theta = 40
Ftheta = 0.5
sample.id = c("a", "b", "c")
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`

```
Y = NULL
X = c(30, 35, 45)
theta = NULL
Ftheta = NULL
sample.id = c("a", "b", "c")
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"
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.