R model modified