<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Seria isso?<br><br><span style="font-family:monospace,monospace">dados <- rnorm(10)<br>a <- c(0.05767, 0.89000)<br><br>sapply(a, function(x) as.integer(dados<x))<br>sapply(a, FUN=">", dados)<br></span><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div>​</div>