Prezado Faria,

Embora eu seja contrário à interpretação ou uso, ou melhor, abuso do CV por certas pessoas e revistas, eu antigamente calculava assim, só para que tenha uma idéia. Sempre em cursos eu argumento contra o CV e meus códigos raramente o fazem aparecer. Isso porque muitas pessoas acham que um CV alto invalidam o experimento ou a análise. Argumento que não. Enfim, segue minha contribuição.

##-----------------------------------------------------------------------------

da <- expand.grid(a=gl(4,1), b=gl(3,1), c=gl(5,1))
da$y <- rnorm(da$a, mean=3)

m0 <- aov(y~a+b*c+Error(a:b), da)
summary(m0)

a0 <- summary(m0)
str(a0)

qms <- sapply(a0,
              function(i){
                  i[[1]]["Residuals",3]
              })
m <- mean(da$y)

100*qms/m

##-----------------------------------------------------------------------------

À disposição.

Walmes.