dig_root: Find the digital root of an integer
In zkamvar/digroot: Calculate Digital Roots of Integers

Description Usage Arguments Value References See Also Examples

This function will calculate the sum of all the single-length integers [0-9] in a given integer recursively until the result is a single-length integer

1	dig_root(x)

`x`	an integer

the digital root of the integer

From Thomas Morril on Twitter:

https://twitter.com/tsmorrill/status/1028108510746226688 https://twitter.com/tsmorrill/status/1028142110342504448

dig_sum()

dig_root(77) # 7 + 7 = 14; 1 + 4 = 5;

# Get the multiplication table of digital roots
print(mult <- outer(1:9, 1:9))
matrix(dig_root(mult), ncol = 9, nrow = 9)