commented compare_f0.R