2014 年 7 月 18 日 第 14 回
1
統計科学同演習 第 14 回 演習問題
(賃貸データの続き)
学籍番号:
氏名：
準備
前回の演習で最後まで終わらなかった者は，以下を実行し，必要なオブジェクトを作成しなさい．
> source("Rent.R")
> attach(Rent)
> Hiyoshi.a = Rent[sta.name.e=="Hiyoshi" & type=="アパート", ]
> detach(Rent)
> attach(Hiyoshi.a)
日吉のアパートの 1m2 あたりの賃料（つづき）
1
線形モデル rent.area~-1+madori+build.yr+(!is.na(bus))+walk+(area<27)*area をあてはめなさ
い．
問題 1. build.yr, walk, area に対する残差の散布図を描き，3 枚とも印刷しなさい．これらの散布図を参
照しながら，残差が 0 から大きく離れた 3 点を見つけ，その記録番号を記しなさい．
（ヒント：関数 identify）
問題 2. build.yr から 2000 を引いて得られる変数を build.2000 とおき，線形モデル
rent.area~-1+madori+build.2000+(!is.na(bus))+walk+(area<27)*area
をあてはめなさい．こうして得られたモデルを係数の値も含め数式で書き下し，モデルの意味を説明しな
さい．
2014 年 7 月 18 日 第 14 回
今日の演習の感想:
この用紙と印刷出力を提出しなさい．
2

Youth/Adult Doubles - Greater Denver USBC

第 121 回セミナー 「現代科学・技術の最前線」

演習問題13+答え