R code for see click fix competiton