x=c(-5,-4,-3,-2,-1,0,1,2,3,4,5);x
fr=function(x){
r=numeric(length = length(x));
for(i in seq(along=x)){
if(x<-3){r[i]=0}
else if(x>=-3 && x<=2){r[i]=3*x}
else{r[i]=1}
}
return(r)
}
rs=fr(x);rs
O resultado saí: 0 0 0 0 0 0 0 0 0 0 0
Se eu tenho só um valor no vetor e não utilizo o "for" consigo resolver, mas se o vetor tem mais de um valor dá erro.
Desde já grato pela atenção/ajuda.
--
Rodolfo Marcondes Silva Souza
Engenheiro Agrônomo
Mestre em Produção Vegetal - UFRPE/UAST
Doutorando em Tecnologias Energéticas e Nucleares - UFPE/DEN