科学・IＴ・登山の話題
投稿日：2014年5月15日 更新日：
ジニ係数について修正した。とりあえずコード。
revenue<-read.csv(file="data.csv", head=TRUE) revenue$TotalRevenues_n <- as.numeric(gsub(pattern = ",", replacement = "", x = revenue$TotalRevenues, fixed = TRUE)) head(revenue) class(revenue$TotalRevenues_n) ineq(revenue$TotalRevenues_n, type="Gini") plot(Lc(revenue$TotalRevenues_n), col="red", lwd=2)
ロレンツカーブ
執筆者：admin
関連記事
Statistical Reasoning for Public Health
Module up to 3 SES – 社会経済的地位 Cognitive function – 認知機能 The authors used the graphic alon …
boneのspnbmdを使って年齢別に男女差があるかを確認してみる。検定ではWilcoxonの符号付順位決定を利用する。 boneは特定個人について骨密度を計測している。データにはIDと骨密度以外に性 …
利益 = 売り上げ – コスト 売り上げ = 客数 x 客単価 コスト ≒ 人件費 + 廃棄コスト 客数 客単価 = Σ 品物i x 購入数 客数を増やす方法 来てもらう方法 安売りキャン …
k-Meansの概要 k-Meansは教師なし学習の一つであり、あらかじめ指定された数にグループを分ける。 例えば今身長である程度まとまって席に座っている生徒を考えます。k-Meansでは最初に分ける …
# tidyデータの原則 # 1カラム = 1変数 # 1行 = 1観察 # 1テーブル = 1 unique key # foreign key to link # テーブル全体で見ること # カラ …
詰めが甘いですね。
plot(Lc(revenue$TotalRevenues), col=”red”, lwd=2)
ではなく，
plot(Lc(revenue$TotalRevenues_n), col=”red”, lwd=2)
ですね。
ありがとうございます。確かに0.3と0.5だと形が明らかに違いました。