##Problem 2
GTrain<-read.table(file.choose(), header=T, sep=",") #Train
GTrain = data.frame(GENRE=as.factor(GTrain$GENRE),GTrain[,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)