R Bridge Week 1 Assignment 1

Problem 1

Create a 12! loop

x = 12
for(i in 1:(x-1)){
 x = x*i 
}
print(x)
## [1] 479001600

Problem 2

Numeric vector sequence 20-50 by 5

numvec = seq(20,50,5)
as.numeric(numvec)
## [1] 20 25 30 35 40 45 50

Problem 3

“Factorial” function Input a, b, c Solves quadratic equation Two outputs

factorial = function(a,b,c){
  if((b^2) -(4*a*c)>=0){
    x=((-b) +sqrt((b^2) -(4*a*c)))/ (2*a)
    y=((-b) -sqrt((b^2) -(4*a*c)))/ (2*a)
    print(x)
    print(y)
  }
  else{
    z= sqrt(as.complex((b^2) -(4*a*c)))
    x=((-b) +z)/ (2*a)
    y=((-b) -z)/ (2*a)
    print(x)
    print(y)  
  }
}