if (FALSE) {
res = S2MART(dimension = 2,
lsf = kiureghian,
N1 = 1000, N2 = 5000, N3 = 10000,
plot = TRUE)
#Compare with crude Monte-Carlo reference value
reference = MonteCarlo(2, kiureghian, N_max = 500000)
}
#See impact of metamodel-based subset simulation with Waarts function :
if (FALSE) {
res = list()
# SMART stands for the pure metamodel based algorithm targeting directly the
# failure domain. This is not recommended by its authors which for this purpose
# designed S2MART : Subset-SMART
res$SMART = mistral:::SMART(dimension = 2, lsf = waarts, plot=TRUE)
res$S2MART = S2MART(dimension = 2,
lsf = waarts,
N1 = 1000, N2 = 5000, N3 = 10000,
plot=TRUE)
res$SS = SubsetSimulation(dimension = 2, waarts, n_init_samples = 10000)
res$MC = MonteCarlo(2, waarts, N_max = 500000)
}
Run the code above in your browser using DataLab