R/vec2label.R

vec2label <-
function(vec ){

    ## always renumber
    vec = fgl2vec( vec )
    ## calculate valid label
    n = length(vec)
    label = 0
    for( i in 0:(n-1)){
        label = label*i + (vec[i+1] - 1)
    }
    return(label)
}

Try the IBDLabels package in your browser

Any scripts or data that you put into this service are public.

IBDLabels documentation built on May 2, 2019, 5:56 p.m.