# NOT RUN {
## With 2019 legacy code, no longer usable with 2020 trainPredict
old <- options("digits.secs" = 4)
timeTT <- createTimer()
timeTT$start("event")
y0 <- 1:19
y_pred <- y0 + rnorm(length(y0), sd = 0.3)
timeTT$stop("event")
time <- getTimer(timeTT)
NNsummary(y_pred, y0, time[,4], 4)
## With 2020 code
timestart()
y0 <- 1:19
y_pred <- y0 + rnorm(length(y0), sd = 0.3)
time <- timediff()
NNsummary(y_pred, y0, time, 4)
options(old)
# }
Run the code above in your browser using DataLab