Nothing
#' @export
#' @rdname sim_stBD
sim_sptree_bdp<- function(sbr,
sdr,
numbsim,
n_tips,
gsa_stop_mult = 10) {
warning("please use sim_stBD instead of sim_sptree_bdp", call. = FALSE)
sim_stBD(sbr, sdr, numbsim, n_tips, gsa_stop_mult)
}
#' @export
#' @rdname sim_stBD_t
sim_sptree_bdp_time <- function(sbr,
sdr,
numbsim,
t) {
warning("please use sim_stBD_t instead of sim_sptree_bdp_time", call. = FALSE)
sim_stBD_t(sbr, sdr, numbsim, t)
}
#' @export
#' @rdname sim_ltBD
sim_locustree_bdp <- function(species_tree,
gbr,
gdr,
lgtr,
num_loci,
transfer_type = "random") {
warning("please use sim_ltBD instead of sim_locustree_bdp", call. = FALSE)
sim_ltBD(species_tree, gbr, gdr, lgtr, num_loci, transfer_type)
}
#' @export
#' @rdname sim_cophyBD_ana
sim_cophylo_bdp_ana <- function(hbr,
hdr,
sbr,
sdr,
s_disp_r,
s_extp_r,
host_exp_rate,
cosp_rate,
time_to_sim,
numbsim,
host_limit = 0) {
warning("please use sim_cophyBD_ana instead of sim_cophylo_bdp_ana", call. = FALSE)
sim_cophyBD_ana(hbr,
hdr,
sbr,
sdr,
s_disp_r,
s_extp_r,
host_exp_rate,
cosp_rate,
time_to_sim,
numbsim,
host_limit)
}
#' @export
#' @rdname sim_cophyBD
sim_cophylo_bdp <- function(hbr,
hdr,
sbr,
sdr,
host_exp_rate,
cosp_rate,
time_to_sim,
numbsim,
host_limit = 0) {
warning("please use sim_cophyBD instead of sim_cophylo_bdp", call. = FALSE)
sim_cophyBD(hbr,
hdr,
sbr,
sdr,
host_exp_rate,
cosp_rate,
time_to_sim,
numbsim,
host_limit)
}
#' @export
#' @rdname sim_msc
sim_multispecies_coal <- function(species_tree,
ne,
num_sampled_individuals,
num_genes,
rescale = TRUE,
mutation_rate = 1) {
warning("please use sim_msc() instead of sim_multispecies_coal()", call.=FALSE)
sim_msc(species_tree,
ne,
num_sampled_individuals,
num_genes,
rescale,
mutation_rate)
}
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.