The first function is to produce a factorial using a for-loop. I included a 'stopifnot' prior to running the loop to prevent an infinite loop from occuring in the case of entry of a negative number.