Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/r
- TSVSNAP.FILE = paste("snap/", Sys.Date(),".tsv", sep="")
- tsvsnap = function(obj, ...){
- UseMethod("tsvsnap")
- }
- tsvsnap.summary.lm = function(obj) tsvsnap.table( as.table( coefficients( obj ) ) )
- tsvsnap.table = function(obj){
- cat("", colnames(obj), file=TSVSNAP.FILE, sep="\t", append=TRUE, "\n")
- rows = rownames(obj)
- row.num = length(rows)
- for( x in 1:row.num ){
- cat(rows[x], obj[x,], file=TSVSNAP.FILE, sep="\t", append=TRUE, "\n")
- }
- cat("\n",file=TSVSNAP.FILE, append=TRUE)
- }
- tsvsnap.default = function(obj) cat(obj, file=TSVSNAP.FILE, sep="\t", append=TRUE,"\n\n")
Add Comment
Please, Sign In to add comment