R counting point mutations