base2Geno {MPR}R Documentation

~~function to do ... ~~

Description

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

Usage

base2Geno(baseData = NULL, allele.matrix = NULL)

Arguments

baseData ~~Describe baseData here~~
allele.matrix ~~Describe allele.matrix 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 (baseData = NULL, allele.matrix = NULL) 
{
    if (nrow(baseData) == ncol(allele.matrix)) 
        allele.matrix <- t(allele.matrix)
    if (nrow(baseData) != nrow(allele.matrix)) 
        stop("nrow(baseData)!=nrow(allele.matrix), allele.matrix error!!!")
    genoData <- baseData
    genoData[baseData == allele.matrix[, 1]] <- 0
    genoData[baseData == allele.matrix[, 2]] <- 1
    genoData[genoData != 1 & genoData != 0] <- NA
    genoData <- matrix(as.numeric(genoData), ncol = ncol(genoData))
    dimnames(genoData) <- dimnames(baseData)
    genoData
  }

[Package MPR version 0.1 Index]