для тщательной демонстрации регрессии по группам.
у использоватьaggregate с этой пользовательской функцией:
#linear regression f-n
CalculateLinRegrDiff = function (sample){
fit <- lm(value~ date, data = sample)
diff(range(fit$fitted))
}
dataset2 = aggregate(value ~ id + col, dataset, CalculateLinRegrDiff(dataset))
Я получаю ошибку:
Error in get(as.character(FUN), mode = "function", envir = envir) :
object 'FUN' of mode 'function' was not found
Что случилось?