diff --git a/NAMESPACE b/NAMESPACE index db18cd70..929598f2 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -130,9 +130,7 @@ export(bab) export(baseFreq) export(bootstrap.phyDat) export(bootstrap.pml) -export(c.phyDat) export(candidate_tree) -export(cbind.phyDat) export(cladePar) export(coalSpeciesTree) export(codon2dna) diff --git a/R/phyDat.R b/R/phyDat.R index 156a2243..737ec83f 100644 --- a/R/phyDat.R +++ b/R/phyDat.R @@ -88,8 +88,7 @@ print.phyDat <- function (x, ...){ cat("The states are",attr(x,"levels"), "\n") } - -#' @export cbind.phyDat +#' @rdname phyDat #' @export cbind.phyDat <- function(..., gaps="-", compress=TRUE){ object <- as.list(substitute(list(...)))[-1] @@ -160,8 +159,7 @@ cbind.phyDat <- function(..., gaps="-", compress=TRUE){ } -# @rdname phyDat -#' @export c.phyDat +#' @rdname phyDat #' @export rbind.phyDat <- function(...){ x <- list(...) @@ -190,8 +188,7 @@ rbind.phyDat <- function(...){ } -# @rdname phyDat -#' @export c.phyDat +#' @rdname phyDat #' @export c.phyDat <- cbind.phyDat diff --git a/man/phyDat.Rd b/man/phyDat.Rd index 82c13ff9..a3c0652f 100644 --- a/man/phyDat.Rd +++ b/man/phyDat.Rd @@ -5,6 +5,7 @@ \alias{cbind.phyDat} \alias{c.phyDat} \alias{removeUndeterminedSites} +\alias{rbind.phyDat} \alias{subset.phyDat} \alias{[.phyDat} \alias{unique.phyDat} @@ -14,6 +15,12 @@ \usage{ \method{print}{phyDat}(x, ...) +\method{cbind}{phyDat}(..., gaps = "-", compress = TRUE) + +\method{rbind}{phyDat}(...) + +\method{c}{phyDat}(..., gaps = "-", compress = TRUE) + \method{subset}{phyDat}(x, subset, select, site.pattern = TRUE, ...) \method{[}{phyDat}(x, i, j, ..., drop = FALSE)