rowvar<-matrix(dat[,1])
rownames(dat)<-rowvar
datclust<-as.matrix(dat[,-1])
colvar<-colnames(datclust)