[R] condition in triple summation

[Sherouk Moawad]

Dear R-Expertsx=c(0,0.3, 0.5,0.6)sum(sapply(1:4, function(i) {sum(sapply(1:3, function(j){sum(sapply(1:2, function(k) {(i>j)*(j>k)*exp(x[i]+x[j]+x[k])}))}))}))
I want to restrict the condition (i>j>k) to only those cases where i>1&j>1&k>1In other words'if i=1 then i>=jif j=1 then j>=kother wise i>j>kcan this be done using coding or notThank you 
	[[alternative HTML version deleted]]