search for: irisfit

...problems: predVals <- expand.grid(list(Sepal.Length = seq(from = min(iris$Sepal.Length), to = max(iris$Sepal.Length), length = 50), Petal.Length = seq(from = min(iris$Petal.Length), to = max(iris$Petal.Length), length = 50))) irisFit <- lm(Sepal.Width ~ Sepal.Length * Petal.Length, data = iris) predSurf <- data.frame(predVals, Sepal.Width = predict(irisFit, predVals)) trellis.device("X11",width = 8, height = 8) levelplot(Sepal.Width ~ Sepal.Length * Petal.Length, predSurf, main = "Produced at...

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?? Thanks. Carlos Niharra L??pez

...>> For the default method essentially `table(object, true)', but with >> some useful attribute(s). >> >> See Also: >> >> `fda', `predict.fda' >> >> Examples: >> >> data(iris) >> irisfit <- fda(Species ~ ., data = iris) >> confusion(predict(irisfit, iris), iris$Species) >> ## Setosa Versicolor Virginica >> ## Setosa 50 0 0 >> ## Versicolor 0 48 1 >> ## Virg...