Error in eigen(LT$K) : infinite or missing values in 'x'

[congzhouczcz]

Dear Dr. Gustavo,
I fit a 'GBLUP' model using BGLR ,this is my code:

nlines=152
d<-read_ped(ped_file='/home/hgc-z3/zc/gs/1520cAset7.ped')
X<-data.frame(matrix(unlist(d[1]), nrow=nlines, byrow=FALSE),stringsAsFactors=FALSE)
Y<-read.table('/home/hgc-z3/zc/gs/cA.trait.txt',header=T,sep="\t")
y<-Y[,2]
nTST<-30
n<-nrow(X);p<-ncol(X);nRep<-100;nIter<-100000;burnIn<-10000
X<-scale(X,center=TRUE,scale=TRUE)
G<-tcrossprod(X)/p
ETA<-list(list(K=G,model='RKHS'))
COR<-matrix(nrow=nRep,ncol=1,NA)
for(i in 1:nRep){
tst<-sample(1:n,size=nTST,replace=FALSE)
yNA<-y;yNA[tst]<-NA
fm<-BGLR(y=yNA,ETA=ETA,nIter=nIter,burnIn=burnIn)
COR[i,1]<-cor(y[tst],fm$yHat[tst]);rm(fm)
}
write.table(COR,file="t.csv",quote=FALSE,sep=",")

However, it give error : Error in eigen(LT$K) : infinite or missing values in 'x' ,I donot where is wrong in my file and they seem no missing value.
where is the wrong?
Thanks a lot !