mergeBinMap {MPR}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

mergeBinMap(geno.fill)

Arguments

geno.fill ~~Describe geno.fill here~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (geno.fill) 
{
    pre <- NULL
    pre.nna <- NULL
    IsUniq <- rep(1, nrow(geno.fill))
    for (j in 1:nrow(geno.fill)) {
        cur.nna <- which(!is.na(geno.fill[j, ]))
        cur <- geno.fill[j, cur.nna]
        if (identical(pre.nna, cur.nna) && identical(pre, cur)) 
            IsUniq[j] <- 0
        else {
            pre <- cur
            pre.nna <- cur.nna
        }
    }
    geno.fill[unique(c(which(IsUniq == 1)[-1] - 1, nrow(geno.fill))), 
        ]
  }

[Package MPR version 0.1 Index]