removed extraneous R commands