-## DNA.R (2012-02-14)
+## DNA.R (2012-09-13)
## Manipulations and Comparisons of DNA Sequences
nms <- names(x)
if (n == 1) {
cat("1 DNA sequence in binary format stored in a list.\n\n")
- cat("Sequence length:", length(x[[1]]), "\n\n")
+ nTot <- length(x[[1]])
+ cat("Sequence length:", nTot, "\n\n")
cat("Label:", nms, "\n\n")
} else {
cat(n, "DNA sequences in binary format stored in a list.\n\n")
tmp <- unlist(lapply(x, length))
- mini <- min(tmp)
- maxi <- max(tmp)
+ nTot <- sum(tmp)
+ mini <- range(tmp)
+ maxi <- mini[2]
+ mini <- mini[1]
if (mini == maxi)
cat("All sequences of same length:", maxi, "\n")
else {
}
cat("\nLabels:", paste(nms, collapse = " "), TAIL)
}
- } else if (is.matrix(x)) {
- nd <- dim(x)
- nms <- rownames(x)
- cat(nd[1], "DNA sequences in binary format stored in a matrix.\n\n")
- cat("All sequences of same length:", nd[2], "\n")
- TAIL <- "\n\n"
- if (printlen < nd[1]) {
- nms <- nms[1:printlen]
- TAIL <- "...\n\n"
- }
- cat("\nLabels:", paste(nms, collapse = " "), TAIL)
} else {
- cat("1 DNA sequence in binary format stored in a vector.\n\n")
- cat("Sequence length:", length(x), "\n\n")
+ nTot <- length(x)
+ if (is.matrix(x)) {
+ nd <- dim(x)
+ nms <- rownames(x)
+ cat(nd[1], "DNA sequences in binary format stored in a matrix.\n\n")
+ cat("All sequences of same length:", nd[2], "\n")
+ TAIL <- "\n\n"
+ if (printlen < nd[1]) {
+ nms <- nms[1:printlen]
+ TAIL <- "...\n\n"
+ }
+ cat("\nLabels:", paste(nms, collapse = " "), TAIL)
+ } else {
+ cat("1 DNA sequence in binary format stored in a vector.\n\n")
+ cat("Sequence length:", nTot, "\n\n")
+ }
}
- cat("Base composition:\n")
- print(round(base.freq(x), digits))
+ if (nTot <= 1e6) {
+ cat("Base composition:\n")
+ print(round(base.freq(x), digits))
+ } else cat("More than 1 million nucleotides: not printing base composition\n")
}
as.DNAbin <- function(x, ...) UseMethod("as.DNAbin")
{
if (is.list(x)) x <- unlist(x)
n <- length(x)
- BF <-.C("BaseProportion", x, n, double(17),
+ BF <-.C("BaseProportion", x, as.integer(n), double(17),
DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")[[3]]
names(BF) <- c("a", "c", "g", "t", "r", "m", "w", "s",
"k", "y", "v", "h", "d", "b", "n", "-", "?")
n <- n[1]
}
if (n == 1) return(integer(0))
- ans <- .C("SegSites", x, n, s, integer(s),
- DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")
+ ans <- .C("SegSites", x, as.integer(n), as.integer(s),
+ integer(s), DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")
which(as.logical(ans[[4]]))
}
var <- if (variance) double(Ndist) else 0
if (!gamma) gamma <- alpha <- 0
else alpha <- gamma <- 1
- d <- .C("dist_dna", x, n, s, imod, double(Ndist), BF,
- as.integer(pairwise.deletion), as.integer(variance),
- var, as.integer(gamma), alpha, DUP = FALSE, NAOK = TRUE,
- PACKAGE = "ape")
+ d <- .C("dist_dna", x, as.integer(n), as.integer(s), imod,
+ double(Ndist), BF, as.integer(pairwise.deletion),
+ as.integer(variance), var, as.integer(gamma),
+ alpha, DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")
if (variance) var <- d[[9]]
d <- d[[5]]
if (imod == 11) {