R/my.write.R

my.write <-
function (x, file = "data", ncolumns = if (is.character(x)) 1 else 5,
    append = FALSE, sep = " ")
cat(x, sep = c(rep(sep, ncolumns - 1), "\n"), file = file, append = append)
Auburngrads/SMRD documentation built on Sept. 14, 2020, 2:21 a.m.