factor level 맞추기
features = colnames(allDD)
for (f in features){
\tif( (class(allDD[[f]]) == "character") || (class(allDD[[f]]) == "factor"))
\t{
\t\tlevels = unique(allDD[[f]])
\t\tallDD[[f]] = factor(allDD[[f]], level = levels)
\t}
} 								features = colnames(allDD)
for (f in features){
\tif( (class(allDD[[f]]) == "character") || (class(allDD[[f]]) == "factor"))
\t{
\t\tlevels = unique(allDD[[f]])
\t\tallDD[[f]] = factor(allDD[[f]], level = levels)
\t}
}