Calculate Digit Sum

Calculate digit sum of a number x.

DigitSum(x)

Arguments

x

an integer number

Value

the digit sum

References

URL: https://stackoverflow.com/questions/18675285/digit-sum-function-in-r

Author

Andri Signorell <andri@signorell.net> based on code by Julius benchmarked by Uwe

See also

IsPrime

Examples

DigitSum(c(124, 45, 268))
#> [1]  7  9 16
# [1]  7  9 16