#get user ids
uchar <- data.frame(user_id_hash = ulist[,'user_id_hash'])
uchar <- cbind(uchar,matrix(0,nrow=dim(uchar)[1],ncol = (dim(train)[2] - 2)))
names(uchar) <- names(train)[2:dim(train)[2]]