Problem with csd locus when choosing to simulate only two csd alleles #585
Description
founderGenomes <- quickHaplo(nInd = 4, nChr = 1, segSites = 50)
SP <- SimParamBee$new(founderGenomes, nCsdAlleles = 2)
basePop <- createCastePop(founderGenomes, caste = "virginQueens")
This returns the error
Error in x[1, ] : incorrect number of dimensions
Because of the following check in the editCsdLocus()
if (any(sapply(alleles, FUN = function(x) all(x[1, ] == x[2, ])))) {
stop("You must provide two different alleles for each individual!")
}