# This function have to be run after choise of the model.
## "Test_set.csv" should be with the following form
## ID property SelectedDesc1 SelectedDesc2 ...
#new_nom<-'Test_set.csv'
#newdata<-read.csv(new_nom,header=TRUE , sep=" ")
#mynewdata=newdata[,2:dim[2]]
#prediction(fit,mynewdata,dim(MLR)[2])
Run the code above in your browser using DataLab