Nothing

```
#library(compositions,lib.loc="/home/boogaart/R/compositions.Rcheck")
testvalues <- structure(c(1, 0, NA, NaN, -Inf, Inf, 1, -2), .Dim = c(2, 4), class = "acomp")
# testvalues <- matrix(c(TRUE,0.0,NA,NaN,-Inf,Inf,1,-2),nrow=2)
# class(testvalues) <-"acomp"
classi <- function(x) {
ifelse( is.NMV(x) , "NMV" , ifelse( is.BDL(x) , "BDL" , ifelse( is.MAR(x), "MAR", ifelse( is.SZ(x) , "SZ", ifelse(is.MNAR(x),"MNAR","ERR")))))
}
missingset <- matrix(
c( 1, 1 , 1 ,1,
NA, 1 , 1 ,1,
NaN,1 , 1 ,1,
-Inf,1,1 ,1,
0.0 ,1,1 ,1,
NA,NaN,1,1,
NA,-Inf,1,1,
NA,0.0,1,1,
NaN,-Inf,1,1,
NaN,0.0,1,1,
-Inf,0.0,1,1,
NA,-Inf,0.0,1,
NA,NaN,0.0,1,
NaN,NA,0.0,1,
NaN,NA,0.0,Inf
),ncol=4,byrow=TRUE)
```

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