In this section, we will load an existing model (VGGNet) in Keras and use it to classify a new image. The code for this section can be found in the Chapter11/vgg_model.R. We will begin by loading the model and looking at its architecture:
> library(keras)> model <- application_vgg16(weights = 'imagenet', include_top = TRUE)> summary(model)_________________________________________________________________________Layer (type) Output Shape Param # =========================================================================input_1 (InputLayer) (None, 224, 224, 3) 0 _________________________________________________________________________block1_conv1 (Conv2D) (None, 224, 224, 64) 1792 _________________________________________________________________________ ...
