mtcars数据下 对R2做bootstrap

for (i in 1:999){
ran<-sample(rownames(mtcars),replace=T)
d<-mtcars[ran,]
fit<-lm(mpg~wt+disp,d)
rsq<-NULL
rsq<-summary(fit)$r.square
}

rsq出来很多NA
不知问题所在
求解