R/convert_init_dist_to_df.R

In sams25/rcombinator_old: Tools to Simulate the Evolution of Genetic Sequences

#' Prints summary statistics for distances to initial sequence for a timestep
#' @param seq_data The data returned by a simulation for a single timestep
#' @param timestep What this timestep is
#' @return A data frama of summary statistics for that time
#' @importFrom magrittr "%>%"
#' @export

convert_init_dist_to_df <- function(summ_init_data, current_time)
{
  init_data_raw <- summ_init_data$distances

  size <- length(init_data_raw)
  init_data <- data.frame(time = rep(NA_integer_, size),
                          seq1 = rep(NA_integer_, size),
                          seq2 = rep(NA_integer_, size),
                          seq_dist = rep(NA, size))
  for(i in 1:size)
  {
    new_row <- list(current_time, 1, i, init_data_raw[i])
    init_data[i, ] <- new_row
  }
  return(init_data)
}