quadraticRoots <- function(a, b, c) { 
 Sqrt <- (b^2) - (4*a*c)
if (Sqrt > 0) {
x1 <- (-b+sqrt (b^2 - 4*a*c)) / (2*a) 
x2 <- (-b-sqrt (b^2 - 4*a*c)) / (2*a)
x <- c(x1, x2)
x
} else if (Sqrt ==0) {
x <- -b / (2*a)
x
} else {"No results Sqrt < 0."}
}
quadraticRoots (2, -1, 3) 

## [1] "No results Sqrt < 0."

quadraticRoots (2, 7, 6)

## [1] -1.5 -2.0