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