R/fiscm.R

write.fiscm = function(data, filename) {
    unlink(filename)
    sink(filename)
    cat(nrow(data), '\n')
    sink()
    write.table(data, filename, append=TRUE, row.names=FALSE, col.names=FALSE)
}
btjones16/ocean documentation built on May 13, 2019, 8:40 a.m.