Homework 1

#Question 1
factorialFunction <- function(num)
{
  result1 <- 1
  for(number in 1:num)
  {
    if(number == 1)
    {
      next
    }
    else
    {
      result1 <- number * result1
    }
  }
  return(result1)
}

factorialFunction(12)

## [1] 479001600

#Question 2
myVector <- seq(20,50,by=5)
myVector

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

#Question 3
quadraticFunction <- function(a, b, c)
{
  if (((b ^ 2 - (4 * a * c)) >= 0) & (a != 0) )
  {
    value1 <- ((-1 * b) + sqrt(b ^ 2 - (4 * a * c))) / (2 * a)
    value2 <- ((-1 * b) - sqrt(b ^ 2 - (4 * a * c))) / (2 * a)
    sprintf("value1 is %s and value2 is %s", value1, value2)
  }
  else
  {
    print("Invalid results")
  }
}
quadraticFunction(1, 2, 1)

## [1] "value1 is -1 and value2 is -1"

quadraticFunction(1, 6, 5)

## [1] "value1 is -1 and value2 is -5"

quadraticFunction(1, 1, 1)

## [1] "Invalid results"