R/pairwise_distances_bursts.R

#' Gets pairwise distances from the sequence data when burst events are possible
#' @param seq_data A data frame that contains a list of sequences
#' @param min_timestamp The timestamp to begin calculating distances from
#' @return A data frame with the pairwise distances between the sequences for each time step
#' @importFrom magrittr "%>%"
#' @export
pairwise_distances_bursts <- function(seq_data, min_timestamp = 1, dist_method)
{
  max_timestamp <- max(seq_data$time)
  pair_data <- NULL
  for (t in min_timestamp:max_timestamp)
  {
    pair_data <- rbind(pair_data, pairwise_distances_timestamp(seq_data, t, dist_method))
  }
  return(pair_data)
}
sams25/rcombinator_old documentation built on May 28, 2019, 8:40 a.m.