notes/alc.R

alc = function(x, id, gen) {
  anc = ancestors(x, id, maxGen = gen, inclusive = TRUE)
  length(anc)/sum(2^seq_len(gen))
}

avk = alc
magnusdv/ribd documentation built on March 29, 2024, 5:20 a.m.