R/ff.hap.R

Defines functions ff.hap

ff.hap <- function(k){
    if (k==1) {
        x <- 6 + c(1, 2)
    } else {
        x <- 6 + c((2*k - 1), (2*k))
    }
    return(x)
}
GreenwoodLab/RVPedigree documentation built on May 6, 2019, 6:33 p.m.