Consider this example:
team <- rep(c("A","B","C"), times=c(7,4,10))
trip <- rep(NA,length(team))
for(i in 1:length(unique(team))){
trip[which(team==unique(team)[i])] <- 1:days[i]
}
obs < -c(rnorm(days[1],100,30), rnorm(days[1],100,5), rnorm(days[1],100,15))
data <- data.frame(team, trip, obs)
boxplot(obs~team, data)
It is pretty clear that the variance in each team is different, but the mean is similar.
How can I infer this statistically? How can I compare intra-group (within-group) variance with the inter-group (between-group) variance?