Я пытался написать функцию для анализа и объединения некоторых данных. Но R выдает неожиданное исключение ошибки символа. Я пробовал разные способы решить эту проблему, все еще не работает. Пожалуйста помоги.

см код

$aggall = function(df,grp){numcols = sapply(df,class) %in% 
c('integer', 'numeric') result = aggregate(df[,numcols],df[grp],mean) 
 counts = as.data.frame(table(df[grp])) names(counts)[1] = 
 grp merge(counts, result, sort=FALSE)}

Ошибка: неожиданный символ в результатах "aggall = function (go, grp) {numcols = sapply (go, class)% в% c ('integer', 'numeric')"