Nothing
segsites_feat_class <- R6Class("seg_sites_feat", inherit = feature_class,
public = list(
initialize = function() super$initialize(locus_group = "all"),
print = function() cat("Generating Seg. Sites\n")
)
)
#' @describeIn conv_to_ms_arg Feature conversion
#' @export
conv_to_ms_arg.seg_sites_feat <- function(feature, model) {
if (!any(vapply(get_features(model), is_feat_mutation, logical(1)))) {
stop("model requires mutation to calculate summary statistics")
}
""
}
#' @describeIn conv_to_ms_arg Feature conversion
#' @export
conv_to_msms_arg.seg_sites_feat <- conv_to_ms_arg.seg_sites_feat #nolint
#' @describeIn conv_to_ms_arg Feature conversion
#' @export
conv_to_scrm_arg.seg_sites_feat <- conv_to_ms_arg.seg_sites_feat #nolint
#' @describeIn conv_to_ms_arg Feature conversion
#' @export
conv_to_seqgen_arg.seg_sites_feat <- conv_to_ms_arg.seg_sites_feat #nolint
trees_feat_class <- R6Class("trees_feat", inherit = feature_class,
public = list(
initialize = function() super$initialize(locus_group = "all"),
print = function() cat("Generating Trees\n")
)
)
#' @describeIn conv_to_ms_arg Feature conversion
#' @export
conv_to_ms_arg.trees_feat <- function(feature, model) "-T "
#' @describeIn conv_to_ms_arg Feature conversion
#' @export
conv_to_msms_arg.trees_feat <- conv_to_ms_arg.trees_feat
#' @describeIn conv_to_ms_arg Feature conversion
#' @export
conv_to_scrm_arg.trees_feat <- conv_to_ms_arg.trees_feat
#' @describeIn conv_to_ms_arg Feature conversion
#' @export
conv_to_seqgen_arg.trees_feat <- function(feature, model) {
stop("generation of trees is not supported.")
}
files_feat_class <- R6Class("files_feat", inherit = feature_class,
public = list(
initialize = function() super$initialize(locus_group = "all"),
print = function() cat("Generating Files\n")
)
)
#' @describeIn conv_to_ms_arg Feature conversion
#' @export
conv_to_ms_arg.files_feat <- ignore_par
#' @describeIn conv_to_ms_arg Feature conversion
#' @export
conv_to_msms_arg.files_feat <- ignore_par
#' @describeIn conv_to_ms_arg Feature conversion
#' @export
conv_to_scrm_arg.files_feat <- ignore_par
#' @describeIn conv_to_ms_arg Feature conversion
#' @export
conv_to_seqgen_arg.files_feat <- ignore_par
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.