Если сначала вы определяете слои отдельно, вы можете создать новую модель, используя те же слои:
model <- keras_model_sequential()
firstLayer <- layer_dense(units=5,activation = "relu",input_shape = c(4))
secondLayer <- layer_dense(units=Height,activation = "relu",input_shape = c(4))
model %>% firstLayer %>%
secondLayer %>%
layer_dense(units=1)
Новая модель:
model2 <- keras_model_sequential()
model2 %>% firstLayer %>%
secondLayer