bind R hist function