#対応分析(corresp)を実行．頻度分割表の数字が整数値でない場合，
#警告メッセージが出るが無視しても構わない。
results<-corresp(datca, nf=(min(nrow(datca),ncol(datca))-1))

#行スコア（個体間の関係）を全て表示
results$rscore

#列スコア（変数間の関係）を全て表示
results$cscore

#寄与率(contribution)【単位はパーセント】を表示
contribution<-100*(results$cor^2)/sum(results$cor^2)
print(contribution<-round(contribution, 2))