科学・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
関連記事
グループ毎に度数分布を作成する by(housing$VAL, housing$SERIALNO, length) グループで平均値を計算するための式 DT[,mean(pwgtp15),by=SEX …
whichではwhich.minとwhich.maxが用意されているという指摘を受けたので調べ見てた。 which.minとwhich.maxはRでいうところのオブジェクト指向を利用した構造にみえる。 …
データの概要 国ごとの相違を距離で表しているクロス表 > dim(countries) [1] 12 12 > names(countries) NULL > str(countri …
さてoneway.test, aov, anovaの違いをもとにしてそれぞれの関数について調べてみる。 機能 advantage disadvantage oneway.test 分散分析 等分散を仮 …
factorを利用することでベクトルやデータフレームで質的変数を取り扱うことができる。 ファクター化するフィールドに対してfactor()関数を適用すると、ファクター化されたベクトルが取得できる。 値 …
詰めが甘いですね。
plot(Lc(revenue$TotalRevenues), col=”red”, lwd=2)
ではなく，
plot(Lc(revenue$TotalRevenues_n), col=”red”, lwd=2)
ですね。
ありがとうございます。確かに0.3と0.5だと形が明らかに違いました。