401k.RAW 中的數(shù)據(jù)是帕普克（Papke， 1995）所分析數(shù)據(jù)的一個子集，帕普克是為了研究 401

（k）養(yǎng)老金計劃的參與率和該計劃的慷慨程度之間的關(guān)系。變量 prate 是有資格參與該計劃

的員工中擁有活動賬戶的百分比，也是我們要解釋的變量。慷慨程度指標(biāo)是計劃的匹配率

mrate。這個變量給出了員工每向這個賬戶存 1 美元，公司為該員工匹配的平均數(shù)量。例如，

mrate=0.50，則員工每投入 1 美元，公司就匹配 50 美分。

（1）求出該計劃的樣本中平均參與率和平均匹配率。

（2）現(xiàn)在估計下面這個簡單回歸方程

在 RStudio 中導(dǎo)入 401k

attach(X401K) #綁定數(shù)據(jù)集 x401k，由于 401k 文件由數(shù)字打頭， R 自動將數(shù)據(jù)集 401k 的名稱

改為了 X401K

library(mice) #載入檢查缺失值的包 mice。

md.pattern(X401K) #檢查一下是否有缺失值。結(jié)果是沒有。

mean(salary) #計算平均年薪，結(jié)果是 865.8644（千美元）。

mean(ceoten) #計算平均任期，結(jié)果是 7.954802（年）。

（2）有多少 CEO 尚處于擔(dān)任 CEO 的第一年（也就是說， ceoten=0） ?最長的 CEO 任期是多

少？

table(ceoten) #獲得 CEO 任期變量 ceoten 的頻數(shù)表：

ceoten

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 24 26 28 34 37

5 19 10 21 21 10 11 6 11 8 8 4 7 7 5 2 2 2 1 2 4 1 1 3 2 1 1 2

結(jié)果顯示 ceoten 為 0 的人數(shù)有 5 個。任期最長為 37 年，有 2 人。