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