tests/qux.R

In rcdd: Computational Geometry

 library(rcdd)

 d <- 4
 qux <- makeH(- diag(d), rep(0, d), rep(1, d), 1)

 out <- scdd(qux)
 print(out)

 out <- scdd(out$output)
 print(out)

 out <- scdd(out$output, roworder = "mincutoff")
 print(out)

 ##########################

 quux <- addHeq(1:d, (d + 1) / 2, qux)
 print(quux)

 out <- scdd(quux)
 print(out)

 ##########################

 quux <- addHin(c(1, -1, 0, 0), 0, qux)
 print(quux)

 out <- scdd(quux)
 print(out)

 ##########################

 quux <- qux[- 4, ]
 print(quux)

 out <- scdd(quux)
 print(out)

 ##########################

 quux <- makeH(a2 = rep(1, d), b2 = 1)
 print(quux)

 out <- scdd(quux)
 print(out)

 ##########################

 quux <- qux[- 1, ]
 print(quux)

 out <- scdd(quux)
 print(out)

 ##########################

 quux[ , 2] <- quux[ , 2] + 1
 print(quux)

 print(quux)
 out <- scdd(quux)
 print(out)