sample <- read_stat(paste0(system.file("extdata", package = "eva3dm"),"/sample.csv"),
verbose = TRUE)
dir.create(file.path(tempdir(), "stats"))
write_stat(file = paste0(file.path(tempdir(), "stats"),'/sample.txt'),
stat = sample,
verbose = TRUE)
write_stat(file = paste0(file.path(tempdir(), "stats"),'/sample.csv'),
stat = sample,
verbose = TRUE)
Run the code above in your browser using DataLab