Question 1: Write a loop that calculates 12-factorial

i <- 12
factorial <- 1

while (i > 1){
  factorial <- factorial * i
  i <- i -1
}

print(factorial)
## [1] 479001600

Question 2: Show how to create a numeric vector that contains the sequence from 20 to 50 by 5.

numericvector <- c(seq(20, 50, 5))

numericvector
## [1] 20 25 30 35 40 45 50

Question 3: Create the function “factorial” 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.

factorial <- function (a,b,c){
 xpositive <- (((-b)+sqrt(b^2-4*a*c))/2*a)
 xnegative <- (((-b)-sqrt(b^2-4*a*c))/2*a)
 print(xpositive)
 print(xnegative)
}

factorial(1,7,12)
## [1] -3
## [1] -4