Estaba tratando de escribir una función para analizar y combinar algunos datos. Pero R lanza una excepción de error de símbolo inesperado. He intentado diferentes maneras de resolver este problema, todavía no funciona. Por favor ayuda.

ver codigo

$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)}

Error: símbolo inesperado en "aggall = function (go, grp) {numcols = sapply (go, class)% en% c ('integer', 'numeric') resultados"