mergeBinMap {MPR} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
mergeBinMap(geno.fill)
geno.fill |
~~Describe geno.fill here~~ |
~~ If necessary, more details than the description above ~~
~Describe the value returned If it is a LIST, use
comp1 |
Description of 'comp1' |
comp2 |
Description of 'comp2' |
...
....
~~further notes~~
~Make other sections like Warning with section{Warning }{....} ~
~~who you are~~
~put references to the literature/web site here ~
~~objects to See Also as help
, ~~~
##---- 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))), ] }