No se puede obtener trabajo agregado () para regresión por grupo

Quiero usaraggregate con esta función personalizada:

#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))

Recibo el error:

Error in get(as.character(FUN), mode = "function", envir = envir) : 
  object 'FUN' of mode 'function' was not found

¿Qué está mal

Respuestas a la pregunta(1)

Su respuesta a la pregunta