Nothing

```
# Tests "bcaRel" function
test_that("bcaRel", {
# T1 tt must be a matrix
tt1<- c(1,0,1,1)
spec1 <- matrix(c(1,1,1,2,0.75,0.75,0.75,0.25), ncol = 2, dimnames = list(NULL, c("specnb", "mass")))
info1 =matrix(c(4,5,2,2), ncol = 2, dimnames = list(NULL, c("varnb", "size")) )
expect_error(bcaRel(tt = tt1, spec = spec1, infovar = info1) , "tt parameter must be a \\(0,1\\) or logical matrix.")
#
# T2 spec must be a matrix
tt2 <- matrix(c(0,1,1,0,1,0,1,0,1,0,0,1,1,1,1,1),nrow=4, byrow = TRUE, dimnames =list(NULL, c("rWdy", "rWdn", "Ry", "Rn")) )
spec2 <- c(1,1,1,2)
expect_error(bcaRel(tt = tt2, spec = spec2, infovar = info1) , "spec parameter must be a 2 columns matrix.")
#
# T3 infovar must be a matrix
info3 =c(2,2)
expect_error(bcaRel(tt = tt2, spec = spec1, infovar = info3) , "infovar parameter must be a 2 column numerical matrix with variables numbers in fist column and with sum of 2nd column = ncol\\(tt\\).")
#
# T4: nrow(tt) must equal nrow(spec)
spec2 <- matrix(c(1,1,2,0.75,0.75,0.25), ncol = 2, dimnames = list(NULL, c("specnb", "mass")))
expect_error(bcaRel(tt = tt2, spec = spec2, infovar = info1) ,"Error in input arguments: check your input data.")
#
# T5: sum of masses must equal 1
spec3 <- matrix(c(1,1,1,2,0.75,0.75,75,0.2), ncol = 2, dimnames = list(NULL, c("specnb", "mass")))
expect_error(bcaRel(tt = tt2, spec = spec3, infovar = info1) ,"Sum of masses not equal to 1 : check your data.")
#
# T6: Result is of class "bcaspec"
result <- bcaRel(tt = tt2, spec = spec1, infovar = info1)
expect_is(result, "bcaspec")
# T7: if infovarnames omitted, vars are named v1, v2, etc.
result <- bcaRel(tt = tt2, spec = spec1, infovar = info1, relnb = 6)
expect_equal(names(result$infovaluenames), c("v1", "v2"))
#
# T7: check for column names
tt3 <- matrix(c(0,1,1,0,1,0,1,0,1,0,0,1,1,1,1,1),nrow=4, byrow = TRUE )
expect_error(bcaRel(tt = tt3, spec = spec1, infovar = info1), "Column names of tt matrix are missing.")
})
```

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