#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.