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
Este foro tiene un número limitado de mensajes para enviar en un cierto período de tiempo. El ajuste se ha establecido en 5 mensaje(s) en 1 día