Bonjour,
Je rencontre des difficultés lors de ma convolution. Voici mon code

I <- function(t) {
100*exp(t*(-1/15.3))
#Exponentielle décroissante

n = 100
p = runif(n)
serial_interval <- function(t) qnorm(p,t,4.15)
#distribution normal

Convolution <- function(z) integrate(function(t,z) serial_interval(z-t)*I(t),0,Inf,z)$value
Convolution <- Vectorize(Convolution)
z <- seq(0,100)
lines(z,Convolution(z),lty=2,col="red")
Error in integrate(function(t, z) s(z - t) * I(t), 0, Inf, z) :
evaluation of function gave a result of wrong length De plus : Warning message:
In s(z - t) * I(t) :
la taille d'un objet plus long n'est pas multiple de la taille d'un objet plus court

Et je suis bloqué a cet endroit. Le but étant pour moi d'obtenir une nouvelle fonction a partir de la convolution afin de l'intégrer à mon modèle. Je débute donc il y a probablement pas mal de fautes dans mon code.
Je vous remercie par avance pour vos reponses
Dentifrice