R Markdown

  1. Write a loop that calculates 12-factorial
x <- 1
for(i in 1:12) {
x = x * i
}
x
## [1] 479001600
  1. Show how to create a numeric vector that contains the sequence from 20 to 50 by 5.
x<-seq(20,50,5)
x
## [1] 20 25 30 35 40 45 50
  1. 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){
quad1 <- (-b+sqrt(b^2-4*a*c))/(2*a)
quad2 <- (-b-sqrt(b^2-4*a*c))/(2*a)
print(quad1)
print(quad2)
}
factorial(1, -1, -1)
## [1] 1.618034
## [1] -0.618034