[R-br] Ajuda em função

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