求问：
> random.imp<-function(x){
+   missing=is.na(x)
+   n.missing=sum(missing)
+   x.obs=x[!missing]
+   imputed=x
+   imputed[missing]=sample(x.obs,n.missing,replace=T)
+ }
> csat_mean<-random.imp(missingdata[!is.na(missingdata$csat),'csat'])
> missingdata[is.na(missingdata$csat),'csat']<-csat_mean
错误于`[<-.data.frame`(`*tmp*`, is.na(missingdata$csat), "csat", value = integer(0)) :
  更换参数长度为零


这种问题咋个子解决呢？