R code to select breeders from an advanced intercross line so that they minimize inbreeding in the offspring