numeric<-c(100,200,400,600,800)
factor.numeric<-as.factor(numeric)
factor.numeric
## [1] 100 200 400 600 800 ## Levels: 100 200 400 600 800