ethod="simple")
aa.pr2 <- predict(aa.lda2, Xcon)$post[, c("p","b")] %*% c(1,1)
contour(x, y, matrix(aa.pr2, length(x), length(y)),
levels=0.5, add=T, lty=3,method="simple")
aa.pr3 <- predict(aa.lda2, Xcon)$post[, c("f","p")] %*% c(1,1
aa.ld,c(rep('f',13),rep('b',10),rep('p',10)))
> aa.mean<-lda(aa.ld,AA$group)$means
> points(aa.mean,pch=3)
Best,
Thomas Larsen
Leibniz-Laboratory for Stable Isotope Research
Max-Eyth-Str. 11-13, 24118 Kiel, Germany
Work: +49-431-880-3896
--
View this mess
2 matches
Mail list logo