> newdata<-read.csv("C:/Users/Administrator/Desktop/finance.csv",sep=",",header=T,na.strings = ".")
> library(mice)
> imp<-mice(newdata,seed=1234,m=1)

iter imp variable
  1   1  B003000000Error in solve.default(xtx + diag(pen)) :
  system is computationally singular: reciprocal condition number = 8.22272e-18
> imp$imp$B001101000
NULL