두 희소 행렬의 열을 균등화하는 방법

Question

훈련 및 테스트 세트에 대해 두 개의 희소 행렬이 있고, 두 행에서 모두 동일한 열을 제거해야합니다. 순간 나는 루프 그렇게하고 있어요,하지만 난 그것을 할 수있는 더 효율적인 방법이 확신 : 당신이 원하는 모든 것 같습니다 나에게

# take out features in training set that are not in test 
    i<-0 
    for(feature in testmatrix@Dimnames[2][[1]]){ 
    i<-i+1 
    if(!(feature %in% trainmatrix@Dimnames[2][[1]])){ 
     removerows<-c(removerows, i) 
    } 
    } 
    testmatrix<-testmatrix[,-removerows] 

# and vice versa... 

Answer 1

이 testmatrix의 열을 유지있다가 또한 trainmatrix에 나타나며 그 반대의 경우도 마찬가지입니다.

# keep will be a vector of colnames that appear in BOTH train and test matrices 
keep <- intersect(colnames(test) , colnames(train)) 

# Then subset on this vector 
testmatrix <- testmatrix[ , keep ] 
trainmatrix <- trainmatrix[ , keep ]