Evolutionary algorithms with performance measures based on DrawDown

Hello everyone,

I need your help. I don't know how I can create in RStudio evolutionary algorithms with performance measures based on DrawDown (Calmar Ratio, Sterling ratio, Burke ratio, Pain ratio and Martin ratio).

Many, many thanks!

Adriana