fix in read.dna and change in write.dna

[ape.git] / R / DNA.R

diff --git a/R/DNA.R b/R/DNA.R
index abf3a4343a33b4d456a6d1edfe549855249d55d0..70b210b14c9622212d05cbd775475e4b09d039dd 100644 (file)
--- a/R/DNA.R
+++ b/R/DNA.R
@@ -382,7 +382,7 @@ dist.dna <- function(x, model = "K80", variance = FALSE, gamma = FALSE,
     if (!pairwise.deletion) {
         keep <- .C("GlobalDeletionDNA", x, n, s,
                    rep(1L, s), PACKAGE = "ape")[[4]]
-        x <- x[,  as.logical(keep)]
+        x <- x[, as.logical(keep)]
         s <- dim(x)[2]
     }
     Ndist <- if (imod == 11) n*n else n*(n - 1)/2