added actual calc to r pres