Question 1 - Write a loop that calculates 12 factorial

n <- as.integer(readline(prompt=“Enter a number:”)) factorial = 1 #set factorial variable to 1

if(n < 0) {print(“factorial does not exist for negative numbers”) } else if(n == 0) { print(“The factorial of 0 is 1”) } else { for(i in 1:n) #for loop to expand n up to 1 { factorial = factorial * i } print(paste(“The factorial of”, n ,“is”,factorial)) }

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

x=20
seq(20, 50, by =5)
## [1] 20 25 30 35 40 45 50
class(x)
## [1] "numeric"

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) {
  x1 <- ((-b) + sqrt(b^2 - (4*a*c))/ (2*a))
  x2 <- ((-b) - sqrt(b^2 - (4*a*c))/ (2*a))
  
  c(x1, x2)
}

factorial(1, -2, 1)
## [1] 2 2