Seria isso?

dados <- rnorm(10)
a <- c(0.05767, 0.89000)

sapply(a, function(x) as.integer(dados<x))
sapply(a, FUN=">", dados)

À disposição.

Walmes.