diff --git a/R/epichains.R b/R/epichains.R index ca67c769..8f05335c 100644 --- a/R/epichains.R +++ b/R/epichains.R @@ -17,11 +17,11 @@ #' @author James M. Azam #' @keywords internal new_epichains_tree <- function(tree_df, - ntrees = integer(), - statistic = character(), - offspring_dist = character(), - stat_max = integer(), - track_pop = logical()) { + ntrees, + statistic, + offspring_dist, + stat_max, + track_pop) { # Assemble the elements of the object obj <- structure( tree_df, @@ -58,11 +58,11 @@ new_epichains_tree <- function(tree_df, #' @author James M. Azam #' @export epichains_tree <- function(tree_df, - ntrees = integer(), - statistic = character(), - offspring_dist = character(), - stat_max = integer(), - track_pop = logical()) { + ntrees, + statistic, + offspring_dist, + stat_max, + track_pop) { # Check that inputs are well specified checkmate::assert_data_frame(tree_df) checkmate::assert_integerish(ntrees, null.ok = TRUE) @@ -107,10 +107,10 @@ epichains_tree <- function(tree_df, #' @author James M. Azam #' @keywords internal new_epichains_summary <- function(chains_summary, - ntrees = integer(), - statistic = character(), - offspring_dist = character(), - stat_max = integer()) { + ntrees, + statistic, + offspring_dist, + stat_max) { # Assemble the elements of the object obj <- structure( chains_summary, @@ -139,10 +139,10 @@ new_epichains_summary <- function(chains_summary, #' @author James M. Azam #' @export epichains_summary <- function(chains_summary, - ntrees = integer(), - statistic = character(), - offspring_dist = character(), - stat_max = integer()) { + ntrees, + statistic, + offspring_dist, + stat_max) { # Check that inputs are well specified checkmate::assert_vector(chains_summary) checkmate::assert_integerish(ntrees, null.ok = TRUE) diff --git a/man/epichains_summary.Rd b/man/epichains_summary.Rd index adb2e31c..e96bb8d1 100644 --- a/man/epichains_summary.Rd +++ b/man/epichains_summary.Rd @@ -4,13 +4,7 @@ \alias{epichains_summary} \title{Create an \verb{} object} \usage{ -epichains_summary( - chains_summary, - ntrees = integer(), - statistic = character(), - offspring_dist = character(), - stat_max = integer() -) +epichains_summary(chains_summary, ntrees, statistic, offspring_dist, stat_max) } \arguments{ \item{chains_summary}{a \verb{} of chain sizes and lengths.} diff --git a/man/epichains_tree.Rd b/man/epichains_tree.Rd index e1389f60..05fd536c 100644 --- a/man/epichains_tree.Rd +++ b/man/epichains_tree.Rd @@ -4,14 +4,7 @@ \alias{epichains_tree} \title{Create an \verb{} object} \usage{ -epichains_tree( - tree_df, - ntrees = integer(), - statistic = character(), - offspring_dist = character(), - stat_max = integer(), - track_pop = logical() -) +epichains_tree(tree_df, ntrees, statistic, offspring_dist, stat_max, track_pop) } \arguments{ \item{tree_df}{a \verb{} containing at least columns for diff --git a/man/new_epichains_summary.Rd b/man/new_epichains_summary.Rd index 2a2301d0..f7c02a05 100644 --- a/man/new_epichains_summary.Rd +++ b/man/new_epichains_summary.Rd @@ -6,10 +6,10 @@ \usage{ new_epichains_summary( chains_summary, - ntrees = integer(), - statistic = character(), - offspring_dist = character(), - stat_max = integer() + ntrees, + statistic, + offspring_dist, + stat_max ) } \arguments{ diff --git a/man/new_epichains_tree.Rd b/man/new_epichains_tree.Rd index 0646ca72..cbc766a7 100644 --- a/man/new_epichains_tree.Rd +++ b/man/new_epichains_tree.Rd @@ -6,11 +6,11 @@ \usage{ new_epichains_tree( tree_df, - ntrees = integer(), - statistic = character(), - offspring_dist = character(), - stat_max = integer(), - track_pop = logical() + ntrees, + statistic, + offspring_dist, + stat_max, + track_pop ) } \arguments{