Question 1

1.) Write a loop that calculates 12 factorial.

factorial <- function(x) {
  nums <- 1:x
  y <- 1
  
  for(i in nums) {
    y <- y * nums[i]
  }
  
  y
}

factorial(12)
## [1] 479001600

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

seq(20, 50, 5)
## [1] 20 25 30 35 40 45 50

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