distribution = list()
distribution[[1]] = list("gamma",c(2,1))
distribution[[2]] = list("gamma",c(3,1))
func <- function(X){
X[1]/sum(X) - qbeta((1e-5),2,3)
}
res.list <- FORM(func,
u.dep = c(0,0.1),
choice.law = distribution,
N.calls = 1000,
eps = 1e-7,
Method = "HLRF",
IS = "TRUE",
q = 0.1,
copula = "unif")Run the code above in your browser using DataLab