我有一个44*100的数据框I，我想用两重循环将其中所有的数据放进另一个数据框K的一列，因为I中有部分是空的，所以在转换中想把它剔除，但是目前输出的结果K完全不是I中的数据，想请教各位是哪里出错了？


I <- read.table('IDregion.txt',fill=TRUE,sep='<',header = FALSE)
I<- data.frame(I)
K<- c(1)
K<- data.frame(K)
i=1
j=1
a=1
while( i<45 ){
               while(j<101){
                 if( I[i,j]!='NA'){
               I[i,j]->K[a,1]
               a<-a+1}
               j<-j+1 }
               i<-i+1
               j<-1}