##Problem 2
GenreTrain<-read.table(file.choose(), header=T, sep=",") #Train
GenreTrain = data.frame(GENRE=as.factor(GenreTrain$GENRE),GenreTrain[,1:191])
set.seed(1)
sam = sample(1:10000,6000,replace=F)
G.train = GenreTrain[sam,]
G.test = GenreTrain[-sam,]

##LDA
table(G.train$GENRE)
table(G.test$GENRE)
g.lda = lda(GENRE~.,data=G.train)
summary(g.lda)
yfit = predict(g.lda,newdata = G.train)
misclass(yfit$class,G.train$GENRE)

yfit = predict(g.lda,newdata = G.test)
misclass(yfit$class,SATtest$class)

##QDA
g.qda = qda(GENRE~.,data = G.train)
yfit = predict(g.qda,newdata = G.train)
misclass(yfit$class,G.train$GENRE)

yfit = predict(g.qda,newdata = G.test)
misclass(yfit$class,G.test$GENRE)