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