Matrix에서 행별로 다른 칼럼에 있는 data가져오기

out_prob<-pred_data[cbind(seq_along(1:nrow(pred_data)),bf_y[batch]+1)]

df<-matrix(c(1,2,3,4,5,6,7,8,9),ncol=3)

df

### 1,2,3 행의 1,2,3열 데이터 뽑기

df[cbind(seq_along(1:nrow(df)),c(1,2,3))]

### 1,2,3 행의 2,1,3열 데이터 뽑기

df[cbind(seq_along(1:nrow(df)),c(2,1,3))]

data(cbind(seq_along(1:nrow(data)), 뽑고자하는 열의 정보))

로 추출할 수 있습니다.