d <- read.csv("disc.csv")
d
library(MASS)
zz <- lda(Group~X1+X2,data=d)#判別分析

Y <- predict(zz,d)#予測値
Y

table(d[,1],Y$class)#交差確認