R studio/Sweave 'closure' 类型的对象不可子集化
R studio/Sweave object of type 'closure' is not subsettable
我做了一个逻辑回归，不管我的准确度总是 0。因为我一直在尝试解决这个问题，所以我现在收到错误消息“'closure' 类型的对象不是可子集化的”
我的数据集是 adultData
这是我的代码
options(scipen = 999)
glm.fit=glm (adultData$income~adultData$nativeCountry+adultData$sex+adultData$age, family=binomial)
summary(glm.fit)
glm.probs=predict(glm.fit,type="response")
glm.probs[1:10]
head(table(glm.probs, adultData$income))
dfU <- adultData
dfU$Pr = glm.probs
dfU$Label = ifelse(dfU$Pr>0.5, "YES", "NO")
head(dfU)
dfU$correct <- ifelse(dfU$income=="<=50k" && dfU$Label=="NO", 1,0)
dfU$correct <- ifelse(dfU$income==">50k" && dfU$Label=="YES", 1, dfU$correct)
accuracy = (sum(df$correct)/nrow(dfU)*100)
cat("accuracy is ", accuracy)
倒数第二行有错字，df$correct 应该读作 dfU$correct。
这至少应该可以解决准确性问题。
我做了一个逻辑回归，不管我的准确度总是 0。因为我一直在尝试解决这个问题，所以我现在收到错误消息“'closure' 类型的对象不是可子集化的” 我的数据集是 adultData 这是我的代码
options(scipen = 999)
glm.fit=glm (adultData$income~adultData$nativeCountry+adultData$sex+adultData$age, family=binomial)
summary(glm.fit)
glm.probs=predict(glm.fit,type="response")
glm.probs[1:10]
head(table(glm.probs, adultData$income))
dfU <- adultData
dfU$Pr = glm.probs
dfU$Label = ifelse(dfU$Pr>0.5, "YES", "NO")
head(dfU)
dfU$correct <- ifelse(dfU$income=="<=50k" && dfU$Label=="NO", 1,0)
dfU$correct <- ifelse(dfU$income==">50k" && dfU$Label=="YES", 1, dfU$correct)
accuracy = (sum(df$correct)/nrow(dfU)*100)
cat("accuracy is ", accuracy)
倒数第二行有错字，df$correct 应该读作 dfU$correct。
这至少应该可以解决准确性问题。