Homework1test

This is the first part of the homework where I calculate the factorial of 12

partA <- function(x) {
  numb <- 1
  for(i in 1:x) {
    numb <- numb * i
  }
  return(numb)
}
partA(12)

## [1] 479001600