R/read_collected_postr_liks.R

In richelbilderbeek/wiritttea: WIRITTTE analysis

#' Read all the collected tree likelihoods of all posteriors
#' @param filename name of the file with all the collected
#'   posteriors' likelihoods
#' @return a dataframe
#' @usage
#'   read_collected_pstr_liks(
#'     filename = wiritttea::find_path(
#'       "collect_files_posterior_likelihoods.csv")
#'   )
#' @examples
#'   df <- wiritttea::read_collected_pstr_liks()
#'   testit::assert(
#'     all(
#'       names(df) ==
#'       c(
#'         "filename", "sti", "ai",
#'         "pi", "si", "likelihood"
#'       )
#'     )
#'   )
#' @author Richel Bilderbeek
#' @export
read_collected_pstr_liks <- function(
  filename = wiritttea::find_path("collect_files_posterior_likelihoods.csv")
) {
  testit::assert(file.exists(filename))
  df <- utils::read.csv(
   file = filename,
   header = TRUE,
   stringsAsFactors = FALSE,
   row.names = 1
  )
  df$sti <- as.factor(df$sti)
  df$ai <- as.factor(df$ai)
  df$pi <- as.factor(df$pi)
  df$si <- as.factor(df$si)
  df
}