<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Por questões de desempenho é interessante que se evite aplicar a mestra instrução repetidas vezes, como por exemplo x>2. O resultado pode ser guardado e depois apenas consultado. Da mesma forma, se você tem o vetor lógico de x>2 basta invetê-lo para ter o de x<=2 uma vez que x>2 é igual à !(x<=2). Segue a adaptação que fiz do código do Jakson.<br><br><span style="font-family:courier new,monospace">fr <- function(x){<br>    i <- x< -3<br>    j <- x> 2<br>    y <- 3*x<br>    y[i] <- 0<br>    y[j] <- 1<br>    y<br>}<br></span><br>fr(x)<br>curve(fr, -4, 6)<br><br>À disposição.<br>Walmes.<br></div>​</div>