#t2<-dtable[dtable[,'cl']==clnb+1,][,-ncol(dtable)]
t1<-dtable[which(cl[,1]==clnb),]#[,-ncol(dtable)]
t2<-dtable[which(cl[,1]==clnb+1),]#[,-ncol(dtable)]
#t2<-dtable[dtable[,'cl']==clnb+1,][,-ncol(dtable)]
t1<-dtable[which(cl[,1]==clnb),]#[,-ncol(dtable)]
t2<-dtable[which(cl[,1]==clnb+1),]#[,-ncol(dtable)]