training_data <- rnorm(1e3, mean = 100, sd = 10)
probs <- c(1-1e-1, 1-0.5e-1, 1-1e-2)
probs_interest <- c(1-1e-6, 1-1e-7)
bootstrap_size <- 1000
bootstrap_training_sims <- 100
maxk_line <- RESTK_training(training_data = training_data,
probs = probs,
probs_interest = probs_interest,
bootstrap_size = bootstrap_size,
bootstrap_training_sims = bootstrap_training_sims)
Run the code above in your browser using DataLab