Нейронная сеть Keras не вписывается в R

Question

Я сделал нейронную сеть в R, используя пакет Keras. Я в основном сделал ту же модель, которую создал в python Я использовал те же данные в том же порядке. Однако, когда я запускаю его в R, модель, похоже, совсем не подходит.

Когда я вызываю прогнозирование для модели, он возвращает одно и то же значение независимо от ввода.

Я предполагаю, что веса обнуляются, и это возвращает смещение.

Вот как я построил модель:

model <- keras_model_sequential()

model %>%
layer_dense(units = 256, activation = 'relu',input=     c(18)) %>%
layer_dense(units = 64, activation = 'relu')%>%
layer_dropout(rate = 0.25) %>% 
layer_dense(units = 32, activation = 'relu') %>%
layer_dropout(rate = 0.25) %>% 
layer_dense(units = 16, activation = 'relu') %>%
layer_dropout(rate = 0.25) %>% 
layer_dense(units = 8, activation = 'relu') %>%
layer_dense(units = 2, activation = 'softmax')

Вот вывод, когда я вызываю предикат:

model%>%
    predict(nbainput_test_x)