## The input file should be with the following form
## id_molecule propriete x1 x2 x3 ... # Header line
## molecule1 1 0.02 500 ...
## molecule2 5 0.06 600 ...
# nom<-"NameOfInputFile.csv"
# data<-read.csv(nom,header = TRUE , sep=" ")
# dim<-dim(data)
# mydesc<-data[,3:dim[2]]
# id<-data[,1]
# y<-data[,2]
# d<-preselection(mydesc)
Run the code above in your browser using DataLab