[R] calculate the integral

[malika yassa]

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]]