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


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