#predicting classification of new data 
#read in new sites 
classify.me<-read.csv("classifyme.csv", header = T)

#predict grouping of new data
predict.group<-predict(LDA, newdata=classify.me)

#give classification for each new site
group.new<-predict.group$class