names(dataexample_2)
summary(dataexample_2)


Add<-sapply(split(dataexample_2, dataexample_2$Treatment), function(d)     sum(dataexample_2$Variable,na.rm = FALSE))
Table<-as.data.frame(Add)

Add
A1 2.44898
A2 2.44898
A3 2.44898

Add
A1 0.3061
A2 0.8163
A3 1.3265