Add calculateR