用R做交互式图形，总是显示没有点在0.25英尺内


library(car)
states<-as.data.frame(state.x77[,c("Murder","Population","Illiteracy",
                                    "Income","Frost")])
fit<-lm(Murder~Population+Illiteracy+Income+Frost,data=states)
hat.plot<-function(fit){
  p<-length(coefficients(fit))
  n<-length(fitted(fit))
  plot(hatvalues(fit),main="Index Plot of Hat Values")
  abline(h=c(2,3)*p/n,col="red",lty=2)
  identify(1:n,hatvalues(fit),names(hatvalues(fit)))
}
hat.plot(fit)

代码如上，做完回归然后检验高杠杆值，图是出来了，然后点击高杠杆点总是显示
警告：没有点在0.25英尺内

img

你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答


本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。


因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。