attributepattern(3)
q <- matrix(scan(text = "0 1 2 1 0 1 1 2 0"),ncol = 3)
q
attributepattern(ncol(q),poly=TRUE,q)
q <- matrix(scan(text = "0 1 1 1 0 1 1 1 0"),ncol = 3)
q
attributepattern(ncol(q),poly=TRUE,q)
Run the code above in your browser using DataLab