experiments-performance_estimation/perfestimation-samplesize.r at master · vcerqueira/experiments-performance_estimation · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
load("data/tsl_uni_90_mix.rdata")

source("src/utils.r")
source("src/estimation-procedures.r")
source("src/workflows.r")
source("src/metrics.r")
source("src/learning-models.r")

library(tsensembler)
#unloadNamespace("tsensembler")

load("series_length.rdata")

ts_list <- ts_list[len >= 1000]

form <- target~.
nfolds <- 30


library(parallel)
final_results <-
  mclapply(1:length(ts_list),
           function(i) {
             #i<-1
             cat(i, "\n\n")
             ds <- ts_list[[i]]

             x <-
               wf_sample_size(
                 ds = ds,
                 form = form,
                 predictive_algorithm = "rbr",
                 nfolds = nfolds,
                 outer_split = .7)

             x
           }, mc.cores = 10)


save(final_results, file = "final_results_samplesize_rbr.rdata")

##