R/J2.R

In mixsep: Forensic Genetics DNA Mixture Separation

## List of possible configurations for two-person DNA mixtures

## List of possible best matching pair configurations
J2 <- list(list(matrix(c(2,2),1,2)),
          list(matrix(c(1,1,1,1),2,2),matrix(c(2,0,0,2),2,2),matrix(c(1,1,0,2),2,2),matrix(c(0,2,1,1),2,2)),
          list(matrix(c(2,0,0,0,1,1),3,2),matrix(c(1,1,0,0,0,2),3,2),matrix(c(1,0,1,0,1,1),3,2),matrix(c(0,0,2,1,1,0),3,2)),
          list(matrix(c(1,1,0,0,0,0,1,1),4,2)))

## Complete list of two-person mixture configurations
J20 <- list(list(matrix(c(2,2),1,2)),
           list(matrix(c(1,1,1,1),2,2),matrix(c(2,0,0,2),2,2),matrix(c(1,1,0,2),2,2),matrix(c(0,2,1,1),2,2),
                matrix(c(1,1,2,0),2,2),matrix(c(2,0,1,1),2,2),matrix(c(0,2,2,0),2,2)),
           list(matrix(c(2,0,0,0,1,1),3,2),matrix(c(1,1,0,0,0,2),3,2),matrix(c(1,0,1,0,1,1),3,2),matrix(c(0,0,2,1,1,0),3,2),
                matrix(c(1,1,0,0,1,1),3,2),matrix(c(1,1,0,1,0,1),3,2),matrix(c(1,0,1,1,1,0),3,2),matrix(c(1,0,1,0,2,0),3,2),
                matrix(c(0,2,0,1,0,1),3,2),matrix(c(0,1,1,2,0,0),3,2),matrix(c(0,1,1,1,1,0),3,2),matrix(c(0,1,1,1,0,1),3,2)),
           list(matrix(c(1,1,0,0,0,0,1,1),4,2),matrix(c(1,0,1,0,0,1,0,1),4,2),matrix(c(1,0,0,1,0,1,1,0),4,2),
                matrix(c(0,1,1,0,1,0,0,1),4,2),matrix(c(0,1,0,1,1,0,1,0),4,2),matrix(c(0,0,1,1,1,1,0,0),4,2)))