Week 1 homework

Write a loop that calculates 12!

calculate_factorial <- function(value){
  ret = 1
  if (value == 1){
    return(ret)
  }
  for (x in 2:value) {
    ret = ret*x
  }
  return(ret)
}

calculate_factorial(12)

## [1] 479001600

Do it again for fun

calc_fac <- function(value){
  ret = 1
  for (x in 1:value) {
    ret = value*ret
    value = value - 1
  }
  return(ret)
}

calc_fac(12)

## [1] 479001600

Create numeric vector from 20 to 50 by 5

desired_vector = seq(from=20, to=50, by=5)
desired_vector

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

Create function that solves quadratic equation

quadratic <- function(a, b, c) {
  numer_variable = sqrt(b^2 - 4*a*c)
  denom = 2*a
  value_1 = (-b + numer_variable) / denom
  value_2 = (-b - numer_variable) / denom
  
  return(c(value_1, value_2))
}

quadratic(1,-5,6)

## [1] 3 2