科学・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
関連記事
Core Concept in Data Analysis – Week 3
2d Analsysis 分布図 相関 回帰分析 因果関係 ガルトンはダーウィンのいとこ Related posts:DictVectorizerを使ってカテゴリデータについて特徴抽出をするPytho …
Statistical Reasoning for Public Health
Module up to 3 SES – 社会経済的地位 Cognitive function – 認知機能 The authors used the graphic alon …
データ分析の勉強をするときに便利なUCI datasets https://archive.ics.uci.edu/ml/datasets.html Related posts:R Dataset – …
(1)学部によりテストの結果に有意な差があるかを調べる。 データはcsv形式で作成し、7_1_test_score.csvとする。以下はデータの内容。 法学部,文学部,理学部,工学部 75,62,65 …
One of the most comprehensible non-parametric methods is k-nearest-neighbors: find the points which …
詰めが甘いですね。
plot(Lc(revenue$TotalRevenues), col=”red”, lwd=2)
ではなく，
plot(Lc(revenue$TotalRevenues_n), col=”red”, lwd=2)
ですね。
ありがとうございます。確かに0.3と0.5だと形が明らかに違いました。