R/trans.network2tree.R

In wdelva/RSimpactHelp: Pre- and Post-simulation helper functions for RSimpact Cyan

#' Build a transmission tree from a transmission network
#'
#' @param transnetwork The phylo object produced by \code{\link{transmission.network.builder}}.
#' @return Transmission tree object (a phylo object)
#' @examples
#' transm.ls <- transmission.network.builder(datalist = datalist, endpoint = 40)
#' transnetwork <- transm.ls[[1]]
#' tree0 <- trans.network2tree(transnetwork = transnetwork) # transmission tree of seeds 16
#'
#' @export
#'

trans.network2tree <- function(transnetwork = transnetwork){

  transm.phylo <- epi2tree2(transnetwork)

  return(transm.phylo)

}

# trans.network2tree to merge