Con R el cálculo seria de la siguiente manera