#创建日志# Import the log4r package.library('log4r')# Create a new logger object with create.logger().logger <- create.logger()# Set the logger's file output.logfile(logger) <- 'peaktrainDebugging.log'