<div dir="ltr"><div>Não sei se eu entendi certo, mas acho que o problema é simples é só usar a integrate duas vezes.<br>Talvez isso resolva seu problema.<br><br></div>## Primeiro fiz uma função pra integrar o y.<br><br><div>my.function <- function(y,x){<br>    2*exp(-2*x)*(3*exp(-3*y))}<br><br></div><div>## A função precisa ser vetorizada eu fiz um for vc pode melhorar isso.<br></div><div>my.function2 <- function(x){<br>    temp <- c()<br>    for(i in 1:length(x)){<br>    temp[i] = integrate(my.function, lower = c(0), upper = x[i], x=x[i])$value}<br>    return(temp)<br>}<br><div><br></div><div>## Depois apenas use a integrate novamente<br clear="all"></div><div><div class="gmail_extra"><br>integrate(my.function2, lower = 0, upper = Inf)<br><br></div><div class="gmail_extra">Não é muito eficiente usar uma integral dentro da outra, mas pra situação simples parece razoável.<br><br><br></div><div class="gmail_extra">-- <br><div><div dir="ltr"><div><div dir="ltr"><div>Wagner Hugo Bonat<br>----------------------------------------------------------------------------------------------<br>Department of Mathematics and Computer Science (IMADA)<br>University of Southern Denmark (SDU) and<br>Laboratório de Estatística e Geoinformação (LEG)<br>Universidade Federal do Paraná (UFPR)<br><br></div></div></div></div></div>
</div></div></div></div>