#読み込んだ頻度表の第1行（単語ラベル行）は自動的に列ラベルとして
#認識されるが，第1列（人名列）は，自動的には行ラベルと認識されない．
#行ラベルを設定するために，まず関数matrixを利用して，第1列をrowvarに代入する．
rowvar <- matrix(dat[,1])					

#関数rownamesを用いて，rowvarをdatの行ラベルに代入．						
rownames(dat) <- rowvar	

#頻度分割表datから余剰な第1列（人名列）削除し,datpcaとして記録．
datpca <- as.matrix(dat [,-1])	

#関数colnamesを用いて，datpcaの行ラベルをcolvarとして記録．	
colvar<-colnames(datpca)

#データの行数をnrとして記録．
nr<-nrow(datpca)

#データの行数をncとして記録．
nc<-ncol(datpca)

#PC数の上限値（行，列のうち小さい方）
maxpc<-min(nr,nc)