helloplease can anyone help me, I find it difficult to calculate this integrali have this programmx<-rnorm(10,0,1)y<-rexp(10,2)z<-exp(10,3)s<-vector()for (? j in 1:10)s[j]<-x[j+1]+x[j]s1[i]<-s[j]/2f<-function(y,u){exp(y-u)}sapply(x, function(i){ ?z[j] integrate(f,lower=s1[j],upper=,s1[j+1] x=i)$value for each value of x I will have a vectori can't calculate thisthank you in advance [[alternative HTML version deleted]]