Nothing
#' @rdname allSitesName
#' @title Retrieve position of all the sites
#' @description The function is a way to get position of the resulting sites
#' from \code{\link{SNPsites}}, \code{\link{fixationSites}} and
#' \code{\link{parallelSites}}. The numbering is consistent with what's being
#' set by \code{\link{setSiteNumbering}}
#' @param x The object containing the sites from analysis
#' @param ... Other arguments
#' @return An integer vector for sites position
#' @export
#' @examples
#' data(zikv_tree)
#' msaPath <- system.file('extdata', 'ZIKV.fasta', package = 'sitePath')
#' tree <- addMSA(zikv_tree, msaPath = msaPath, msaFormat = 'fasta')
#' snp <- SNPsites(tree)
#' allSitesName(snp)
allSitesName <- function(x, ...) {
UseMethod("allSitesName")
}
#' @rdname allSitesName
#' @export
allSitesName.SNPsites <- function(x, ...) {
as.character(as.integer(x))
}
#' @rdname allSitesName
#' @export
allSitesName.fixationSites <- function(x, ...) {
names(x)
}
#' @rdname allSitesName
#' @export
allSitesName.parallelSites <- function(x, ...) {
names(x)
}
#' @rdname allSitesName
#' @export
allSitesName.paraFixSites <- function(x, ...) {
names(as.integer(x))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.