Update Fst Diploids.R

Fixed line i==10000 to i%%10000==0