knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
Execution time was measured when executing some commands presented in the user guide "Forecasting the Mean Monthly CVSS Scores". The results were obtained with a computer that has 15.9 GB usable RAM and Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz 2.40GHz.
> start_time <- Sys.time() > c <- CWE$new() > c$setBaseData() > c$setTimeSeriesData(c$getInterestingMonthlyData()) > end_time <- Sys.time() > end_time - start_time Time difference of 5.066274 secs > > start_time <- Sys.time() > cf <- CVSSForecaster$new() > cf$setCWEs(c) > end_time <- Sys.time() > end_time - start_time Time difference of 0 secs > > start_time <- Sys.time() > cf$setBenchmark() > end_time <- Sys.time() > end_time - start_time Time difference of 28.29203 secs > > start_time <- Sys.time() > cf$setTSLinear() > end_time <- Sys.time() > end_time - start_time Time difference of 0.8551829 secs > > start_time <- Sys.time() > cf$setETS() > end_time <- Sys.time() > end_time - start_time Time difference of 13.48054 secs > > start_time <- Sys.time() > cf$setStructTS() > end_time <- Sys.time() > end_time - start_time Time difference of 3.740569 secs > > start_time <- Sys.time() > cf$setBaggedETS() > end_time <- Sys.time() > end_time - start_time Time difference of 24.89006 mins > > start_time <- Sys.time() > cf$setARIMA(stepwise = F, approximation = F) > end_time <- Sys.time() > end_time - start_time Time difference of 4.059665 mins > > start_time <- Sys.time() > cf$setARFIMA() > end_time <- Sys.time() > end_time - start_time Time difference of 2.438971 secs > > start_time <- Sys.time() > cf$setNNAR(pi_simulation = T) > end_time <- Sys.time() > end_time - start_time Time difference of 6.456933 mins > > start_time <- Sys.time() > cf$setTBATS() > end_time <- Sys.time() > end_time - start_time Time difference of 28.61853 secs > > start_time <- Sys.time() > c2 <- CWE$new() > c2$setStartYear(2017) > c2$setEndYear(2017) > c2$setBaseData(c("nvdcve-2.0-2011.xml","nvdcve-2.0-2012.xml","nvdcve-2.0-2013.xml","nvdcve-2.0-2014.xml","nvdcve-2.0-2015.xml","nvdcve-2.0-2016.xml","nvdcve-2.0-2017.xml")) > end_time <- Sys.time() > end_time - start_time Time difference of 2.308802 mins > > start_time <- Sys.time() > c2$setTimeSeriesData(c2$getMonthlyData(cf$getCWENames())) > end_time <- Sys.time() > end_time - start_time Time difference of 0.5726199 secs
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.