[R-br] recuperar coeficientes da função discriminante quadrática

Boa noite, por favor, preciso dos coeficientes da função discriminante quadrática. Estou usando o exemplo da função "qda" para tentar enteder a função. #código R tr <- sample(1:50, 25) train <- rbind(iris3[tr,,1], iris3[tr,,2], iris3[tr,,3]) test <- rbind(iris3[-tr,,1], iris3[-tr,,2], iris3[-tr,,3]) cl <- factor(c(rep("s",25), rep("c",25), rep("v",25))) z <- qda(train, cl) predict(z,test)$class Desde já, muito obrigado. Att -- Guilherme Moraes Ferraudo Jaboticabal/Campinas - SP http://lattes.cnpq.br/2096118558794430