Я искал довольно элементарную цифровую функцию цифра sum в R.
- Я не нашел предустановленную функцию.
- Даже в Stackoverflow's обширная библиотека R Я не нашел запись.
Поэтому я попробовал себя, заканчивая следующей функцией:
# Function to calculate a digit sum
digitsum = function (x) {sum(as.numeric(unlist(strsplit(as.character(x), split="")))) }
Я работаю, но я все еще борюсь со следующими двумя вопросами:
- Действительно ли в простой R нет функции для суммы цифр?
- Есть ли более умный способ кодирования этой функции?