5. Write an R Program Compute mean values for vector aggregates defined by factors tapply and sapply. || R

 # Sample data: A numeric vector 

values <- c(42, 55, 38, 65, 49, 72, 53, 66, 41, 58) 

# Factor variable to define groups 

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

"B", "A", "B")) 

# Compute mean values for each group using tapply 

mean_by_group <- tapply(values, groups, mean) 

# Compute mean values for each group using sapply 

mean_by_group_sapply <- sapply(unique(groups), 

function(group) { 

mean(values[groups == group]) 

}) 

# Print the results 

cat("Mean values by group (tapply):\n") 

print(mean_by_group) 

cat("\nMean values by group (sapply):\n") 

print(mean_by_group_sapply)