科学・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
関連記事
One of the most comprehensible non-parametric methods is k-nearest-neighbors: find the points which …
線形解析の基本手順 データの読み込み データフォーマット確認 EDA データクレンジング トレーニングデータ構築 モデル構築 モデル評価 予想 メトリック Related posts:kaggle T …
マニュアル conjointパッケージ caFactorialDesign Rでconjointパッケージを利用した例 Rでコンジョイント分析 Rでコンジョイント分析 |極めて個人的なメモ コンジョイ …
開発生産性は調和平均で計算する。 安全性の在庫の計算には正規分布を利用できる。 標準偏差=5であることを利用すると何が言えるか。 Z=1.96で95%をカバーする。 よって 5 x 1.96でほぼ10 …
一時間に平均７通のメールが来るとき１００回試行した時のメール受信件数を調べる > rpois(100,7) [1] 7 10 2 8 5 4 4 9 2 3 9 6 9 …
詰めが甘いですね。
plot(Lc(revenue$TotalRevenues), col=”red”, lwd=2)
ではなく，
plot(Lc(revenue$TotalRevenues_n), col=”red”, lwd=2)
ですね。
ありがとうございます。確かに0.3と0.5だと形が明らかに違いました。