Lissage de Holt Séries Temporelles

Bonjour à tous,
Dans le cadre d'un projet de Séries Temporelles, je dois réaliser un lissage de Holt sur une séries temporelles. Le package forecast de R possède la fonction HoltWinters très utile pour réaliser ce lissage et déterminer les paramètres optimaux du modèle. Or elle détermine ces paramètres en minimisant Erreur Moyenne Quadratique (MSE) et il m'est demandé dans le cadre de mon projet de déterminer les paramètres en minimisant l'Erreur Moyenne en Pourcentage (MAPE). Quelqu'un connaîtrait donc une autre fonction me permettant de faire cela ou aurait-il des pistes à me donner me permettant de réaliser ce que je souhaite.
Bien cordialement,
Chloé