Remove a specific letter and only the number following it

[Ksharp]

data have;
  input string $20.;
  want=prxchange('s/R\d*\b//',1,string);
cards;
A 606R1   3
A 607R2   1
A 607R3   1
A 607R1   1
A 607R    1
;