# header = TRUE…データファイルの1行目が変数名を表す事を指定する。
データ <- read.table(file.choose(), header = TRUE)

# 小遣いかせぎ歴（量的変数）を二値変数に変換する。
# 12か月以上を1、12か月未満を0に。
小遣いかせぎ歴二値 <- ifelse(データ$小遣いかせぎ歴 >= 12, 1, 0)

# 確認
小遣いかせぎ歴二値

# 二値変数にした小遣いかせぎ歴を度数分布表にする。
table(小遣いかせぎ歴二値)

# ”小遣いかせぎ歴が12か月以上の人”と”ポイントサイトが好きか？”のファイ係数を求める。
# 弱い負の相関があるという事になると思います。（値は適当です。）
cor(小遣いかせぎ歴二値, データ$ポイントサイトが好き)