Functions to write stats and evaluation output. If a file name ending with .csv is provided to the function will save using write.csv otherwise the function write.table.
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/Rtmp3zXm8M/stats/sample.txt
write_stat(file = paste0(file.path(tempdir(), "stats"),'/sample.csv'),
stat = sample,
verbose = TRUE)
#> writing /tmp/Rtmp3zXm8M/stats/sample.csv