703 R hist example