R/as.matrix.alignment.R

In seqinr: Biological Sequences Retrieval and Analysis

Defines functions as.matrix.alignment

Documented in as.matrix.alignment

as.matrix.alignment <- function(x, ...){
    nc <- nchar(x$seq[[1]])
    res <- matrix(data = sapply(x$seq, s2c), nrow = x$nb, ncol = nc,
                  byrow = TRUE)
    rownames(res) <- x$nam
    colnames(res) <- seq_len(nc)
    return(res)
}

Try the seqinr package in your browser