'Find P(X<Y<Z) in R

I want to find the P(X<Y<Z) in r. For each value of z_i, I want to check whether it satisfies the conditions or not. I demonstrated the problem below. Here I used the ifelse function in r. I don't how to put multiple statements within ifelse. When I type ifelse(z[i]>y>x, 1, 0) I get errors. I want to know how to include this.

x = c(1,1)
y = c(2,2)
z = c(3,3)


value = NULL
n1 = length(x)
n2 = length(y)
n3 = length(z)
for(i in 1: length(z)){
  value[i] = sum (ifelse(z[i]>y & z[i]> x & y > x, 1, 0))  
}
value

The desired output should be 4 4. But the above code gives 2 2. Thanks in advance.

rfunctionfor-loop


Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source

Related Questions