library(plyr);
setwd("/Users/zahra/Dropbox/0Publications/2017/RE17 Data Track/Iteration2/Clustering");
getwd()
Stack = read.csv("NFR.csv")

d_ply(Stack, .(ID), function(sdf) write.csv(sdf, file=paste(sdf$ID[[1]],".txt",sep="")))