m <- rbind(c(FALSE, TRUE),
c(TRUE, TRUE),
c(FALSE, FALSE))
x <- rvec(m)
x
prob(x)
## logical rvec created on the fly
## through operations such as '>'
m <- rbind(c(-1, 1.3, 2),
c(2, 0.1, -1),
c(Inf, 0, -0.5))
y <- rvec(m)
y
prob(y > 0)
prob(y >= 0)
prob(y^2 > 0)
Run the code above in your browser using DataLab