algos.R srf fix for nbins