我需要使用ANOVA调试此代码的帮助
我尝试了以下代码，但在过程结束时出现了错误
df1 <- read.table('x.csv',header = TRUE);df1
r <- c(t(as.matrix(df1)))
r
f = c("RACE1", "RACE2", "RACE3", "RACE4","RACE5","RACE6")
k = 6
n = 6
tm = gl(k, 1, n*k, factor(f)) # matching treatments
tm
av = aov(r ~ tm)
summary(av)
model.frame.default（formula = r〜tm，drop.unused.levels = TRUE）中的错误： 可变长度有所不同（为“ tm”找到）