如何计算R中的确定系数（R ^ 2）？

Question

这是我的R代码，我可以用MLE来计算这个函数的相关参数。

x<-c(1360,490,42,2.1,100,1800,100,940,800,10,5.7,1,120,137,100,125.3,400,25,1.75)
y=log10(x)
y.n<-length(y)
y.location<-mean(y)
y.var<-(y.n-1)/y.n*var(y)
y.scale<-sqrt(3*y.var)/pi
library(stats4)
ll.logis<-function(location=y.location,scale=y.scale){-sum(dlogis(y,location,scale,log=TRUE))}
> fit.mle<-mle(ll.logis,method="Nelder-Mead")
fit.location<-coef(fit.mle)[1]
fit.scale<-coef(fit.mle)[2]

然后，我使用＆＃34;摘要（fit.mle）＆＃34;查询决定系数，但我无法找到它。有没有办法计算它？非常感谢你！