> fomula=paste(names(Data)[6+i],"~ GGender*Gdrought*Gnitrogen")
>   sig=Anova(lm(fomula,data = Data),type = 3)%>%.[-8,]
> fomula=paste(names(Data)[6+i],"~ GGender*Gdrought*Gnitrogen")
>   sig=Anova(aov(fomula,data = Data),type = 3)%>%.[-8,]
错误: $ operator is invalid for atomic vectors
>