if (FALSE) {
# define input data required
data <- list(
t = 30,
seeding_time = 7,
horizon = 7
)
# default gaussian process data
create_gp_data(data = data)
# settings when no gaussian process is desired
create_gp_data(NULL, data)
# custom lengthscale
create_gp_data(gp_opts(ls_mean = 14), data)
}
Run the code above in your browser using DataLab