Functions to write the output from evaluation functions. If the file name ends with .csv the function write.csv is used otherwise the function write.table is used.
Examples
sample <- read_stat(paste0(system.file("extdata", package = "eva3dm"),"/sample.csv"),
verbose = TRUE)
#> reading /home/runner/work/_temp/Library/eva3dm/extdata/sample.csv
dir.create(file.path(tempdir(), "stats"))
write_stat(file = paste0(file.path(tempdir(), "stats"),'/sample.txt'),
stat = sample,
verbose = TRUE)
#> writing /tmp/RtmpfF4sGf/stats/sample.txt
write_stat(file = paste0(file.path(tempdir(), "stats"),'/sample.csv'),
stat = sample,
verbose = TRUE)
#> writing /tmp/RtmpfF4sGf/stats/sample.csv