founderGenomes <- quickHaplo(nInd = 3, nChr = 1, segSites = 100)
SP <- SimParam$new(founderGenomes)
SP$setSexes(sexes = "yes_sys")
pop <- newPop(founderGenomes)
isFemale(pop)
isMale(pop)
pop[isFemale(pop)]
pop[isFemale(pop)]@sex
Run the code above in your browser using DataLab