R Keras连接两个神经网络

Question

我需要连接两个神经网络，如下图所示。但是，我收到以下错误消息：

  

Op的float32类型与参数的int32类型不匹配

如何连接两个网络？

源代码：

layer1 <- layer_input(shape = c(MAX), dtype = "int32")
output_tensor <- layer1 %>%
    layer_dense(units = 32, activation = "relu") %>%
    layer_dense(units = 32, activation = "relu")

Answer 1

您可以执行以下操作：

library(keras)

max_words <- 20
nb_words <- 1000

text_one_hot <- layer_input(nb_words)
text_as_int <- layer_input(max_words)

vec_1 <- text_one_hot %>%
  layer_dense(100)

vec_2 <- layer_embedding(
  input_dim = nb_words, output_dim = 128, 
  input_length = max_words
  ) %>%
  layer_lstm(128)

out <- layer_concatenate(list(vect_1, vec_2))

model <- keras_model(list(input_1, input_2))

This link有一个类似的例子。