inst/what_frac_ex.R

In vinny-paris/TripleFrac: Triple Fold Designs

x <- matrix(c(1,0,0,2,2,1), nrow = 3, byrow = TRUE)
what_frac(x)

y <- matrix(c(1,2,1,2), byrow = TRUE, nrow = 2)
what_frac(y)

z <- matrix(c(1,2,0,1,2,1,1,1,2), nrow = 3, byrow = TRUE)
what_frac(z)

w <- matrix(c(1,1,1,2,2,2,0,0,0), nrow = 3, byrow = TRUE)
what_frac(w)

t <- matrix(c(0,0,0,1,2,1,2,1,2), nrow = 3, byrow = TRUE)
what_frac(t)