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



script <- function(){
	#reset diversion of output to a file; corresponding function to report()
	sink()
}