Check Armstrong Number In R Programming