added SCRarea.R for effective area/densityR