Create ForFunção.R