Ecuacion Cuadratica

Ecu_cuadratica<-function(A,B,C)
                    {
  ifelse((B^2)-(4*A*C)<0, "Raices Complejas",{
               Raiz_1<- ((-B+sqrt((B^2)-(4*A*C)))/(2*A)) 
               Raiz_2<- ((-B-sqrt((B^2)-(4*A*C)))/(2*A))
                resultados<-list(Raiz_1, Raiz_2)
                names(resultados)<-c("Raiz 1", "Raiz 2")
                return(resultados)
                    })
                    }

prueba de funcion

prueba<-Ecu_cuadratica(4,9,5)
print(prueba)

## $`Raiz 1`
## [1] -1
## 
## $`Raiz 2`
## [1] -1.25

Prueba para raices complejas

prueba2<-Ecu_cuadratica(1,2,3)
print(prueba2)

## [1] "Raices Complejas"