# NOT RUN {
## Create a timer object. Record events. Get all records.
timeTT <- createTimer(FALSE) # print is disabled
timeTT <- createTimer() # print is enabled
timeTT$start("event1")
Sys.sleep(1)
timeTT$stop("event1", RMSE = 1, MAE = 1.3, stars = "*",
params = "maxiter=100, lr=0.01", comment = "OK for 1",
printmsg = TRUE)
timeTT$start("event2")
Sys.sleep(2)
timeTT$stop("event2", RMSE = 2, MAE = 2.6, stars = "**",
params = "maxiter=1000, lr=0.001", comment = "OK for 2",
printmsg = FALSE)
getTimer(timeTT)
# }
Run the code above in your browser using DataLab