我正在尝试使用FSelector包计算R中数据集的权重。数据取from this location。
data = read.csv("filepath/Indian Liver Patient Dataset (ILPD).csv")
names(data)<-c("Age","Gender", "TB", "DB", "Alkphos", "Sgpt", "Sgot", "TP", "ALB", "A/G Ratio", "Selector")
library(FSelector)
weights <- gain.ratio(Selector ~., data)
print(weights)
我无法计算所有重量。当我使用gain.ratio
函数时,Age
权重为NaN。当我使用chi.squared
函数时,Age
和A/G Ratio
都是零。当我从data
获取前200个元素并计算权重时,其中只有5个是核心计算的,而其他的是零或NaN。
我尝试通过data <- na.omit(data)
从数据中删除错误的元素,但它没有改变结果。
如何正确计算体重?
以下是重量打印的示例。
Age 0.0000000
Gender 0.1304229
TB 0.3281865
DB 0.3238010
Alkphos 0.2965842
Sgpt 0.2734633
Sgot 0.3120432
TP 0.2504747
ALB 0.3051724
A/G Ratio 0.0000000
答案 0 :(得分:2)
零是特征重要性的有效值 - 这意味着该特征没有关于分类目标的任何信息。 NaN是由FSelector中的一个错误引起的,如果一个功能没有信息,则该错误除以0。我已经在开发版中解决了这个问题。
名称&#34; A / G比率&#34;不是有效的R标识符,因此会导致某些方法出现问题。在解决此问题的代码下方并安装FSelector的开发版本。
data = read.csv("Indian\ Liver\ Patient\ Dataset\ (ILPD).csv")
names(data)<-c("Age","Gender", "TB", "DB", "Alkphos", "Sgpt", "Sgot", "TP", "ALB", "AGRatio", "Selector")
library(devtools)
install_github("larskotthoff/fselector")
library(FSelector)
weights = gain.ratio(Selector~., data)
print(weights)
weights = chi.squared(Selector~., data)
print(weights)
输出:
attr_importance
Age 0.00000000
Gender 0.01539699
TB 0.09711392
DB 0.11547683
Alkphos 0.06593879
Sgpt 0.06566624
Sgot 0.07667241
TP 0.08836895
ALB 0.07766682
AGRatio 0.15403574
attr_importance
Age 0.0000000
Gender 0.1304229
TB 0.3281865
DB 0.3238010
Alkphos 0.2965842
Sgpt 0.2734633
Sgot 0.3120432
TP 0.2504747
ALB 0.3051724
AGRatio 0.0000000