[R] Fisher's method in discriminant analysis

[Bernardo Rangel Tura]

At 13:15 5/9/2005, you wrote:

>Hi,
>
>   I'm using mda library to solve a discriminant
>analysis. I get results, but the thing is that I want
>to use Fisher's method to obtain the classification
>functions and I'm lost in what I should do: libraries
>to use, ... Can anybody give me a clue??

Hi Carlos,

I think you need something this
require(mda)
data(iris)
attach(iris)
irisfit <- mda(Species ~ ., data = iris)
irisfit$fit$coef[,1:2]
r1<- 
-4.23481161+0.37972423*Sepal.Length+0.59682846*Sepal.Width+0.01575609*Petal.Length+0.11009570*Petal.Width
r2<-0.31169082-0.05826293*Sepal.Length-0.23855482*Sepal.Width+0.18922693*Petal.Length+0.03917652*Petal.Width
plot(r1,r2,pch = 21, bg = c("red", "green3", "blue")[unclass(iris$Species)])




Bernardo Rangel Tura, MD, MSc
National Institute of Cardiology Laranjeiras
Rio de Janeiro Brazil  


-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.