#FactoMineRのインストールが済んでいない場合，以下の行を実行してください．

install.packages("FactoMineR")

#パッケージの読み込み

library(FactoMineR)

#以下を実行したときに表示されるフォルダ名にデータ（v08c1tv.csv）を置いてください．

getwd()

#ファイルの読み込み．Mac，Linuxユーザーの場合，文字化けが発生しますので，文字コードを変更してください．

c1tv <- read.csv("v08c1tv.csv")

#問1:クロス集計表の作成．table(行, 列)で作成できます．

(c1GenrePurchase <- table(c1tv$好きなジャンル,c1tv$購入したい機種))

#問5:コレスポンデンス分析の実行．クロス集計表に，FactoMineRの関数CAを実行しています．

c1res.CA <- CA(c1GenrePurchase)

#====================================================

#2022.09.08 齋藤朗宏・荘島宏二郎