An R model for eyewitness identification