R scripts to sample genome at random