Распараллеливание обучения нескольких сетей в R (с Keras)

Question

Я хочу обучить n различных нейронных сетей в R параллельно , как я могу это сделать? Я довольно плохо знаком с параллелизмом, поэтому нахожу это немного сложным.

Вот мой код для 1 сети (пока):

model<-keras_model_sequential()
# Define bulk of the network
model %>% layer_dense(units=Height,activation = "relu",input_shape = 1)


for(i in 1:Depth){
  model %>% layer_dense(units=Height,activation = "relu",input_shape = 1) 
}

# Readout Layer (ffNN)
model %>% layer_dense(units=1)

# Compile (ffNN)
model %>% keras::compile(loss="mse",
                         optimizer="adam",
                         metrics="mse")


## Report Model (Summary)
model %>% summary()

# Fit ffNN
fit.ffNN.start<-Sys.time()
fittedmodel<- model %>%
  keras::fit(train_data,
             trainingtarget,
             epochs=epochs,
             batch_size=(round(min(1,abs(Batch.size.percent))*nrow(train_data),digits = 0)), # Computes batch-size as a percentage of total data-size
  )
fit.ffNN.end<-Sys.time()