检查R包keras是否编译了模型答案

【问题标题】：Check whether the R package keras has compiled a model检查R包keras是否编译了模型
【发布时间】：2017-06-15 14:20:56
【问题描述】：

当我运行以下 R 脚本时，我获得了有关 keras 模型及其添加层的摘要信息，但没有确认模型已编译。如何检查编译步骤是否完成？

library(keras)

model <- keras_model_sequential()

model %>% 
  layer_dense(units = 64, activation = 'relu', input_shape = c(20)) %>% 
  layer_dropout(rate = 0.5) %>% 
  layer_dense(units = 64, activation = 'relu') %>% 
  layer_dropout(rate = 0.5) %>% 
  layer_dense(units = 10, activation = 'softmax') %>%
  compile(
    loss = 'categorical_crossentropy',
    optimizer = optimizer_sgd(lr = 0.01, decay = 1e-6, 
    momentum = 0.9, nesterov = TRUE),
    metrics = c('accuracy')     
    )

summary(model)

【问题讨论】：

标签： r rstudio keras

【解决方案1】：

检查构建的标志？

library(keras)
model <- keras_model_sequential()

model$built # False

model %>% 
  layer_dense(units = 64, activation = 'relu', input_shape = c(20)) %>% 
  layer_dropout(rate = 0.5) %>% 
  layer_dense(units = 64, activation = 'relu') %>% 
  layer_dropout(rate = 0.5) %>% 
  layer_activation(activation = 'relu') %>% 
  layer_dense(units = 10) %>% 
  layer_activation(activation = 'softmax')

model$built # False

model %>%
  compile(
    loss = 'categorical_crossentropy',
    optimizer = optimizer_sgd(lr = 0.01, decay = 1e-6, 
                          momentum = 0.9, nesterov = TRUE),
    metrics = c('accuracy')     
  )

model$built # True

【讨论】：