История изменений
Исправление Karthago, (текущая версия) :
Ну, твоя ошибка возникает уже на этапе as.numeric(raspredel).
Как вариант, выводить через sprintf("%s", raspredel), но там вид вывода несколько другой.
Не до конца понял изначальную задачу, ТС хочет округлить или просто вывести в округлённом виде?
Исходная версия Karthago, :
Ну, твоя ошибка возникает уже на этапе as.numeric(raspredel).