T apply s apply

 values<-c(10,20,30,40,50,60,70,80)

groups<-factor(c("A","B","A","B","A","B","A","B"))

mean_tapply<-tapply(values,groups,mean)

print("Mean values using tapply:")

print(mean_tapply)

split_values <- split(values, groups)

mean_sapply<-sapply(split_values,mean)

print("Mean values using sapply:")

print(mean_sapply)