if (FALSE) {
inputDistribution <- list()
inputDistribution[[1]] <- list("norm",c(4,1))
inputDistribution[[2]] <- list("norm",c(0,1))
inputDimension <- length(inputDistribution)
dir.monot <- c(1, -1)
N.calls <- 80
f <- function(x){
return(x[1] - x[2])
}
probability <- 1e-2
trueQuantile <- qnorm(probability,
inputDistribution[[1]][[2]][1] - inputDistribution[[2]][[2]][1],
sqrt(inputDistribution[[1]][[2]][2] + inputDistribution[[1]][[2]][2]))
resQuantile <- MonotonicQuantileEstimation(f, inputDimension, inputDistribution,
dir.monot, N.calls, p = probability, method = "MonteCarloIS")
quantileEstimate <- resQuantile[[1]][N.calls, 3]
}
Run the code above in your browser using DataLab