Pessoal, 

Preciso de uma ajuda na execução desse script abaixo:


#Data.Frame

> data.frame(A)
   M     R
1  1 0.150
2  1 0.117
3  1 0.125
4  2 0.312
5  2 0.288
6  2 0.262
7  3 0.318
8  3 0.315
9  3 0.299
10 4 0.395
11 4 0.312
12 4 0.365

#ANOVA One Way
av<-aov(R ~ M, data.frame(A))
summary(av)

#Teste de Scott Knott
sk <- SK(x=av, y=A$R,  model='y~x', which='x', dispersion='se')

summary(sk)

Quando vou executar a rotina, aparece esta mensagem:

> sk <- SK(x=av, y=A$R,  model='y~x', which='x', dispersion='se')
Error in SK.aov(x = av, y = A$R, model = "y~x", which = "x", dispersion = "se") : 
  No factors in the fitted model!
In addition: Warning message:
In replications(paste("~", xx), data = mf) : non-factors ignored: M


Como poderia resolver isto?

Obrigado

----

Pedro Henrique Campelo Felix
Bachelor of Food Engineering (UNI-BH)
Msc. Chemical Engineering (UFMG)
PhD Student of Food Science (UFLA)

+55 (31) 97560-1545 (TIM)
"Nós somos aquilo que fazemos repetidamente. Excelência, então, não é um modo de agir, mas um hábito." Aristóteles