ジニ係数とローレンツ曲線

Rの本がまだ届かないので、昔の宿題でもやってみることとします。

（１）パッケージのインストール＆呼び出し
> install.packages("ineq",rep="http://cran.ism.ac.jp")
> library(ineq)

（２）ジニ係数を求める
> ineq(c(300,600,800,1100,2200),type="Gini")
[1] 0.344

（３）ローレンツ曲線を描画
> plot(Lc(c(300,600,800,1100,2200)),col="darkred",lwd=2)



＞＞＞

（１）データ読み込み
> mydata=read.csv("H21県民所得.csv")
> mydata
todoufuken H21kenminshotoku
1 東京都 3,907
2 神奈川県 3,086
3 愛知県 2,970
4 滋賀県 2,955
5 静岡県 2,926
6 千葉県 2,917
7 大阪府 2,879
8 埼玉県 2,867
9 栃木県 2,859
10 京都府 2,815
　　　　　・
　　　　　・
　　　　　・

（２）ジニ係数を求める
> ineq(mydata$H21kenminshotoku,type="Gini")
[1] 0.3262411

（３）ローレンツ曲線を描画
> plot(Lc(mydata$H21kenminshotoku),col="darkred",lwd=2)



＜＜＜

3年前のレポートなのですが、最初の問題は一致しているものの
次の問題がRの結果と合っていません。

間違えたかも～～

・・・って、3年後に気づいてもなぁ（汗）