Analisis varians

av = aov(r ~ tm)
summary(av) #tabel ANOVA