これは私のコードです。テキストのデータフレームを数値に変換したいと思います。
library(reldist)
year_return[complete.cases(year_return), ]
year_returnGINI <- as.numeric(as.character(year_return[2:19]))
しかし、数値データフレームの代わりにNAのリストを取得します。
[1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
私は何をすべきか ？
データセットのサンプルは次のとおりです。
Date .SXQR .SXTR .SXNR .SXMR .SXAR .SX3R .SX6R
[1,] "2000-01-03" " 364.9400" "223.93" "489.0400" "586.3800" " 306.5600" " 246.8100" "385.360"
[2,] "2000-01-04" " 345.0400" "218.90" "474.0500" "566.1500" " 301.1300" " 239.2400" "374.640"
[3,] "2000-01-05" " 338.2200" "215.88" "464.2000" "542.2900" " 298.2200" " 239.5500" "373.260"
これが完全なデータセットへのリンクです
更新：
図書館のreldistのジニ係数を使用する方法を知りたいです。
私のコードは今です：
library(reldist)
year_return <- read.csv("year_return.csv")
year_return[3:19] <- lapply(year_return[3:19], function(x)
as.numeric(as.character(x)))
year_return[[2]] <- as.Date(year_return[[2]])
str(year_return)
gini(year_return[3:19],w)
そして、私はこのメッセージエラーを受け取ります：（x、ox）のエラー[.data.frame：未定義の列が選択されました。
注：「w」は：
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 0.04591712 0.04078667 0.04126135 0.05131896 0.04349168 0.04834431 0.04694083 0.03904389 0.04117694
[,10] [,11] [,12] [,13] [,14] [,15] [,16] [,17] [,18]
[1,] 0.04537461 0.04692524 0.04045692 0.04696848 0.05087293 0.1713231 0.08499888 0.04396601 0.0708321
私は何をすべきか ？
これは非常に簡単です。as.numeric(as.character(.))データフレームには適用せず、列ベクトルごとに適用します。
year_return <- read.csv("year_return.csv")
year_return[3:19] <- lapply(year_return[3:19], function(x)
as.numeric(as.character(x)))
year_return[[2]] <- as.Date(year_return[[2]])
str(year_return)
また、2番目のベクトルは日付です。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加