короче я сначла обираю только тех кого надо предсказывать
деление на 8 и нечетные
# оставляем только тех кого можно предсказать
library(readr)
train <- read_csv("VK_Chalenge/train.csv")
# View(train)
# Отбираем тех кого надо предсказать
target_train <- unique(train[ train$u %% 8 == 1 ,c("u") ])
# Отбираем тех кого можно предсказaть (все нечетные)
candidate_train_u <- unique(train[ train$u %% 2 == 1 , c("u") ])
candidate_train_v <- unique(train[ train$v %% 2 == 1 , c("v") ])
names (candidate_train_u) <- c("v")
names (candidate_train_v) <- c("v")
candidate_train <- unique(rbind( candidate_train_u , candidate_train_v ))