besthint not working

[LouisLeNezet]

Hi,

Here is an issue regarding the besthint function.
Using the following example:

  data(sample.ped)
  ped <- with(sample.ped, pedigree(id, father, mother, sex))
  besthint(ped, wt = c(100, 10, 1), tolerance = 100)

Doesn't work due to missing momid and dadid.
By modifying the besthint with:

    momid <- unique(ped$id[ped$mindex[ped$mindex!=0]])
    dadid <- unique(ped$id[ped$findex[ped$findex!=0]])
    mom <- match(momid, ped$id)
    dad <- match(ped$id, dadid)
    founders <- ped$id[ped$mindex == 0 & ped$findex == 0]  #founders and marry-ins
    fpair <-  !(is.na(match(momid, founders)) |
                is.na(match(dadid, founders)))
    fmom  <- unique(match(momid[fpair], ped$id)) #row num of founding moms

This works until autohint where it broke:
The problem seems to come from the hint random generation:

hint <-cbind(1:n, rep(0,n))

Could you fix the issue ?