# NOT RUN {
hapmat = matrix(c(1,1,1,0,
0,0,0,0,
1,1,1,1,
1,0,0,0,
1,1,0,0,
1,0,0,1,
1,0,0,1), byrow = TRUE, ncol = 4)
snvnames = c(paste("SNV", 1:4, sep = ""))
allhaps = c("h1", "h2", "h3", "h4", "h5", "h6", "h7")
# Physical positions
posns = c(1000, 2000, 3000, 4000)
# Create hapMat data object
ex_hapMat <- createHapMat(hapmat = hapmat,
snvNames = snvnames,
hapNames = allhaps,
posns = posns)
# }
Run the code above in your browser using DataLab