Perfeito Gledson! Obrigado Em 25 de abril de 2013 19:03, gledson picharski <gledson.picharski@gmail.com
escreveu:
A questão da chave errada pode ser identificada usando um editor de texto como o notepad++ por exemplo, basta selecionar o R como linguagem de formatação. Além disso, identar de outra forma ajuda a perceber melhor os fechamentos de chaves e as relações entre os ifs.
Além da chave tem um pequeno erro na lógica do isósceles, veja exemplo.
tri <- function(x,y,z){ if ((x + y) > z & (x + z) > y & (y + z) > x){ if ((x==y) | (x==z))return ("equilátero") ##todos os lados iguais else if ((x == y) | (x == z) | (y == z)){ ## ao menos dois lados iguais return ("isosceles")} else{ return ("escaleno")} } else{ return ("não é triângulo")} }
tri(4,4,4) [1] "equilátero" tri(5,4,4) [1] "isosceles" tri(4,5,4) [1] "equilátero" tri(4,4,5) [1] "equilátero" tri(3,4,5) [1] "escaleno"
## versão corrigida. tri <- function(x,y,z){ if ((x + y) > z & (x + z) > y & (y + z) > x){ if ((x==y) & (x==z))return ("equilátero") ##todos os lados iguais else if ((x == y) | (x == z) | (y == z)){ ## ao menos dois lados iguais return ("isosceles")} else{ return ("escaleno")} } else{ return ("não é triângulo")} }
tri(4,4,4) [1] "equilátero" tri(5,4,4) [1] "isosceles" tri(4,5,4) [1] "isosceles" tri(4,4,5) [1] "isosceles" tri(3,4,5) [1] "escaleno"
Em 25 de abril de 2013 18:24, Sérgio Henrique almeida da silva ju < sergio.edfisica@gmail.com> escreveu:
É verdade, que falta de atenção!
Mas tem uma chave errada nessa função, não estou identificando qual!
Obrigado
Em 25 de abril de 2013 18:13, Daniel C Bezerra <danielcbezerra@gmail.com>escreveu:
Vc usou apenas um sinal de "=" após o else
On Apr 25, 2013 5:57 PM, "Sérgio Henrique almeida da silva ju" < sergio.edfisica@gmail.com> wrote:
Prezados
Estou fazendo uma função no R que dado os três lados de um triângulo ele me diz se é um triângulo, se o mesmo é isósceles, escaleno ou equilátero.
tri <- function(x,y,z){ if ((x +y > z) & (x + z > y) & (y + z > x)){ if ((x==y) | (y==z)){return ("equilátero")} else if ((x = y) | (x=z) | (y=z)){ return ("isosceles")} else{ return ("escaleno")} else{ return ("não é triângulo")}}
Porém não estou tendo sucesso, onde posso estar errando?
Abraços
-- Sérgio Henrique Almeida da Silva Junior Doutorando em Epidemiologia em Saúde Pública Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ http://lattes.cnpq.br/1611345552843383 Tel: (21) 68463637 / 94429486
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- Sérgio Henrique Almeida da Silva Junior Doutorando em Epidemiologia em Saúde Pública Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ http://lattes.cnpq.br/1611345552843383 Tel: (21) 68463637 / 94429486
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- Sérgio Henrique Almeida da Silva Junior Doutorando em Epidemiologia em Saúde Pública Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ http://lattes.cnpq.br/1611345552843383 Tel: (21) 68463637 / 94429486