<div dir="ltr">e pra quem quiser comecar a brincar com Rcpp....<div><br></div><div><div>library(Rcpp)</div><div>cppFunction(</div><div>    'NumericVector fr0(NumericVector x){</div><div>        int n=x.size();</div><div>        NumericVector r(n);</div><div>        for (int i=0; i<n; i++){</div><div>           if (x[i] < -3){</div><div>              r[i]=0;</div><div>           }else if(x[i] >= -3 & x[i] <=2){</div><div>              r[i]=3*x[i];</div><div>           }else{</div><div>              r[i]=1;</div><div>           }</div><div>        }</div><div>        return r;</div><div>     }')</div></div><div>x=c(-5,-4,-3,-2,-1,0,1,2,3,4,5)<br></div><div>fr0(x)</div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 29 de setembro de 2014 22:13, walmes . <span dir="ltr"><<a href="mailto:walmeszeviani@gmail.com" target="_blank">walmeszeviani@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><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.<span class="HOEnZb"><font color="#888888"><br>Walmes.<br></font></span></div><span class="HOEnZb"><font color="#888888">​</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>