sink(file = NULL, append = FALSE)
file
 | 
a character string naming the file to write to, or
NULL to stop ``sink''ing.
 | 
append
 | 
if TRUE, output will be appended to
file; otherwise, it will overwrite the contents of
file.
 | 
file, overwriting the file unless
append is TRUE.
sink() or sink(file=NULL) ends the diversion.
sink("sink-examp.txt")
i <- 1:10
outer(i,i,"*")
sink()