calc 12 factorial

fact12 = 1 for (i in 12:1) { fact12 <- (fact12 * i) # print (fact12) # print (i) } print (fact12) }