Function to read stats and evaluation output
Examples
sample <- read_stat(file = paste0(system.file("extdata", package = "eva3dm"),"/sample.txt"),
verbose = TRUE)
#> reading /home/runner/work/_temp/Library/eva3dm/extdata/sample.txt
sample <- read_stat(file = paste0(system.file("extdata", package = "eva3dm"),"/sample.csv"),
verbose = TRUE)
#> reading /home/runner/work/_temp/Library/eva3dm/extdata/sample.csv