result1<-aggregate(brsi$v6, list(group = brsi$v1), sum)
Error in Summary.factor(c(10005L, 10005L, 10005L, 10005L, 9912L, 9912L, :
sum not meaningful for factors
tapply(brsi$v6,brsi$v1,sum)
Error in Summary.factor(c(10005L, 10005L, 10005L, 10005L, 9912L, 9912L, :
sum not meaningful for factors