#パッケージMASSの読み込み
library(MASS)

#行ラベルとして使用する第1列をrowvarに代入
rowvar<-matrix(dat[,1])

#rowvarの値を行ラベルとして読み込む
rownames(dat)<-rowvar

#余剰となった第1列を削除
datca<-as.matrix(dat[,-1])