"[.DNAbin" <- function(x, i, j, drop = TRUE)
{
"[.DNAbin" <- function(x, i, j, drop = TRUE)
{
if (is.list(x)) {
if (length(unique(unlist(lapply(x, length)))) != 1)
stop("DNA sequences in list not of the same length.")
if (is.list(x)) {
if (length(unique(unlist(lapply(x, length)))) != 1)
stop("DNA sequences in list not of the same length.")
print.DNAbin <- function(x, ...)
{
n <- 1 # <- if is.vector(x)
print.DNAbin <- function(x, ...)
{
n <- 1 # <- if is.vector(x)
- BF <- .C("BaseProportion", x, n, double(4),
+ BF <- .C("BaseProportion", x, n, double(4), freq,
DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")[[3]]
names(BF) <- letters[c(1, 3, 7, 20)]
BF
DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")[[3]]
names(BF) <- letters[c(1, 3, 7, 20)]
BF
ans <- .C("SegSites", x, n, s, integer(s),
DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")
which(as.logical(ans[[4]]))
ans <- .C("SegSites", x, n, s, integer(s),
DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")
which(as.logical(ans[[4]]))