使用下降工具包对PseudoR2进行clculate返回一个错误
使用下降工具包对PseudoR2进行clculate返回一个错误
提问于 2020-09-25 06:53:51
var1<-sample(c('A', 'B', 'C'), replace = T, size=100)
var2<-sample(c(0,1), size=100, replace=T)
var3<-rnorm(100, mean=10, sd=2)
df<-data.frame(var1, var2, var3)
library(nnet)
m1<-multinom(var1~var2, data=df)
m2<-multinom(var1~var3, data=df)
m3<-multinom(var1~var2+var3, data=df)
#install.packages('DescTools')
library(DescTools)
PseudoR2(m1, which='all')我得到了这个错误代码：
as.data.frame.default中的错误( data，可选= TRUE)：无法将类‘’函数‘’强制到一个data.frame之外:警告消息: in PseudoR2(m1，它= "all")：无法找到用于计算PseudoR2 null模型的多个对象的模型或数据元素。将与新的“df”计算值匹配为空模型。确保对象自初始调用以来没有更改，或者尝试使用“model=TRUE”运行多个对象
但是，m1是一个multinom对象，我认为它的格式很好，不是吗？
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-09-25 07:08:52
您需要设置model=T
var1<-sample(c('A', 'B', 'C'), replace = T, size=100)
var2<-sample(c(0,1), size=100, replace=T)
var3<-rnorm(100, mean=10, sd=2)
df<-data.frame(var1, var2, var3)
library(nnet)
m1<-multinom(var1~var2, data=df, model=T)
m2<-multinom(var1~var3, data=df)
m3<-multinom(var1~var2+var3, data=df)
#install.packages('DescTools')
library(DescTools)
PseudoR2(m1, which='all')
PseudoR2(m1, which='all')
McFadden McFaddenAdj CoxSnell Nagelkerke AldrichNelson VeallZimmermann Efron McKelveyZavoina Tjur
0.00623116 -0.03030106 0.01355262 0.01526082 NA NA NA NA NA
AIC BIC logLik logLik0 G2
225.62024056 236.04092130 -108.81012028 -109.49238485 1.36452914
> 页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/64066541
复制相关文章
相似问题
正常选择速度快于计数(*)
为什么发射速度快于反射
为什么减少的速度快于sum或sumBy？
为什么在我的情况下线程速度快于任务
为什么Eclipse的加载速度要快于Can皮？
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
