He corrido tu función en mi ordenador. Para empezar, aparece una varaible "r" que no está definida:
Error en ma(1, 2, 3, 4) : objeto 'r' no encontrado
Corrige esto, y si te sigue dando error vuelvo a probar.
Foro de debate
problema con función
This forum has a limit to the number of forum postings you can make in a given time period - this is currently set at 5 posting(s) in 1 day