final<-for(i in unique(modeldata$market)){ temp<-modeldata[modeldata$market==i] setDT(temp) features <- subset(temp,select=features) #featu