Data_605_Discussion6

Define a function to calculate the number of ways

calculate_ways <- function() {

Calculate the factorial of a number

factorial <- function(n) { if (n == 0) { return(1) }

else 

{
  return(n * factorial(n - 1))
}

}

Calculate the number of ways

ways <- factorial(8) / (factorial(3) * factorial(3) * factorial(2))

return(ways) }

Call the function to get the result

result <- calculate_ways()

print(result)

The answer is 560.