Collection of R codes for handicapping horse race