host_matrix_temp<-cbind(host_matrix_NA_full[,1],host_matrix_NA_full[, colnames(host_matrix_NA_full) %in% cluster ==TRUE]) ...