R Power Share Analysis