# This function have to be run last!
## "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]]
## "External_set.csv" should be with the following form
## ID property SelectedDesc1 SelectedDesc2 ...
# new_nom2<-'External_set.csv'
# newdata2<-read.csv(new_nom2,header=TRUE , sep=" ")
# mynewdata2=newdata2[,2:dim[2]]
#graphe_3Sets(fit,mynewdata,mynewdata2,dim(MLR)[2])
Run the code above in your browser using DataLab