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

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

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

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

#列ラベルをcolvarに代入
colvar<-colnames(datca)