# TODO: Add comment
# 
# Author: E.Korsching 10.9.2009
###############################################################################



report <- function (name="/results/output.txt"){
	#diverts R output to a file; to stop diversion call: script()
	#report() and script() are only compatibility functions for translated S functions
	sink(file = paste(getwd(),name,sep=""), append = TRUE, type = "output", split = FALSE)
}