У меня есть функция для вычисления прироста:
Код: Выделить всё
tr <- function(d1, d2){
if (d1>0) s = round((d2 - d1) / d1 * 100, 1)
if (s > 99.999) s = paste('\u2b\u432', round(d2 / d1, 1), '\u440\u430\u437\u430')
return(s)
}
> tr(2,7)
[1] "+в 3.5 раза"
А если использовать векторы в качестве аргументов, то не получается:
Код: Выделить всё
n1 <- sample(0:5, 10, replace = T)
n2 <- sample(0:5, 10, replace = T)
> n1
[1] 3 5 4 1 3 1 0 0 2 5
> n2
[1] 5 4 2 3 3 5 2 1 2 2
> tr(n1,n2)
[1] 66.7 -20.0 -50.0 200.0 0.0 400.0 Inf Inf 0.0 -60.0
Предупреждения:
1: В if (d1 > 0) s = round((d2 - d1)/d1 * 100, 1) :
длина условия > 1, будет использован только первый элемент
2: В if (s > 99.999) s = paste("+в", round(d2/d1, 1), "раза") :
длина условия > 1, будет использован только первый элемент
Подскажите пожалуйста!