Create the function “quadratic” that takes a trio of input numbers a, b, and c and solve the quadratic

equation. The function should print as output the two solutions. quadratic <- function(a,b,c) { x1 <- ((-b) + (sqrt((b^2- (4(ac))))))/(2*a) print (x1)

x2 <- ((-b) - (sqrt((b^2- (4(ac))))))/(2*a) print (x2) }

quadratic (1,-2,-15)