ecuacion<-function(a,b,c){
  
  if((b^2-4*a*c)>=0)
  {x1<-(-b+sqrt(b^2-(4*a*c)))/(2*a)
  x2<-(-b-sqrt(b^2-(4*a*c)))/(2*a)
  solucion<-list(x1,x2)
  print(solucion)}
  
else {print(paste0("No se puede realizar la solucion debido a que contiene una raiz compleja"))}
}

Prueba de la Formula

a<-2
b<-(-7)
c<-3
ecuacion(a,b,c)
## [[1]]
## [1] 3
## 
## [[2]]
## [1] 0.5
a<-1
b<-3
c<-5
ecuacion(a,b,c)
## [1] "No se puede realizar la solucion debido a que contiene una raiz compleja"