[R-br] Coeficiente de determinação (cv): experimentos com mais de uma estimativa do erro

[Jose Claudio Faria]

Pessoal,

Alguém teria um bom algoritmo em R para determinar a estimativa do
coeficiente de variação (cv - medida estatística básica e clássica
sobre a precisão) dos experimentos com mais de uma estimativa do erro
(por exemplo: parcelas subdivididas, subsubdividads, etc).

Tenho um feito apenas para experimentos com apenas uma estimativa do erro:
#===============================================================================
# Name           : cv
# Author         : José Cláudio Faria/UESC/DCET
# Date           : 26/7/2006 15:25:07
# Version        : v3
# Aim            : Calculate coefficient variation from aov objects
#===============================================================================

# Arguments:
# av  aov object

cv <- function(av)
{
  if(is.null(av))
    stop('Please, check the parameter!')
  qmee <- with(av, sum(residuals^2) / df.residual)
  cv   <- 100 * sqrt(qmee) / mean(av$fitted.values)
  return(round(cv, 2))
}

# Exemplo de uso:
> av <- aov(Sepal.Length ~ Species, data=iris)

> cv(av)
[1] 8.81

Ab,
///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\
Jose Claudio Faria
Estatistica
UESC/DCET/Brasil
joseclaudio.faria at gmail.com
Telefones:
55(73)3680.5545 - UESC
55(73)9966.9100 - VIVO
55(73)9100.7351 - TIM
55(73)8817.6159 - OI
///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\