Deep Learning with R - Chapter 2

The example code from Deep Learning with R Chapter 2.

library(keras)
mnist <- dataset_mnist()
train_images <- mnist$train$x
train_labels <- mnist$train$y
test_images <- mnist$test$x
test_labels <- mnist$test$y

str(train_images)

 int [1:60000, 1:28, 1:28] 0 0 0 0 0 0 0 0 0 0 ...

dim(train_images)

[1] 60000    28    28

digit <- train_images[5,,]
plot(as.raster(digit, max = 255))

str(train_labels)

 int [1:60000(1d)] 5 0 4 1 9 2 1 3 1 4 ...

str(test_images)

 int [1:10000, 1:28, 1:28] 0 0 0 0 0 0 0 0 0 0 ...

str(test_labels)

 int [1:10000(1d)] 7 2 1 0 4 1 4 9 5 9 ...

network <- keras_model_sequential() %>%
  layer_dense(units = 512, activation = "relu", input_shape = c(28 * 28)) %>%
  layer_dense(units = 10, activation = "softmax")

network %>% compile(
  optimizer = "rmsprop",
  loss = "categorical_crossentropy",
  metrics = c("accuracy")
)

train_images <- array_reshape(train_images, c(60000, 28 * 28))
train_images <- train_images / 255
test_images <- array_reshape(test_images, c(10000, 28 * 28))
test_images <- test_images / 255

train_labels <- to_categorical(train_labels)
test_labels <- to_categorical(test_labels)

network %>% fit(train_images, train_labels, epochs = 10, batch_size = 256)

Epoch 1/10

  256/60000 [..............................] - ETA: 26s - loss: 2.2983 - acc: 0.1758
 1792/60000 [..............................] - ETA: 5s - loss: 1.3647 - acc: 0.5965 
 3328/60000 [>.............................] - ETA: 3s - loss: 1.0624 - acc: 0.6941
 4864/60000 [=>............................] - ETA: 3s - loss: 0.8897 - acc: 0.7512
 6400/60000 [==>...........................] - ETA: 2s - loss: 0.7900 - acc: 0.7802
 7936/60000 [==>...........................] - ETA: 2s - loss: 0.7190 - acc: 0.7983
 9472/60000 [===>..........................] - ETA: 2s - loss: 0.6672 - acc: 0.8149
11008/60000 [====>.........................] - ETA: 2s - loss: 0.6283 - acc: 0.8261
12288/60000 [=====>........................] - ETA: 2s - loss: 0.5970 - acc: 0.8348
13824/60000 [=====>........................] - ETA: 1s - loss: 0.5708 - acc: 0.8417
15616/60000 [======>.......................] - ETA: 1s - loss: 0.5441 - acc: 0.8479
17408/60000 [=======>......................] - ETA: 1s - loss: 0.5215 - acc: 0.8538
19200/60000 [========>.....................] - ETA: 1s - loss: 0.5031 - acc: 0.8583
20992/60000 [=========>....................] - ETA: 1s - loss: 0.4878 - acc: 0.8627
22784/60000 [==========>...................] - ETA: 1s - loss: 0.4710 - acc: 0.8668
24576/60000 [===========>..................] - ETA: 1s - loss: 0.4565 - acc: 0.8706
26368/60000 [============>.................] - ETA: 1s - loss: 0.4434 - acc: 0.8746
28160/60000 [=============>................] - ETA: 1s - loss: 0.4303 - acc: 0.8784
29952/60000 [=============>................] - ETA: 1s - loss: 0.4197 - acc: 0.8812
31744/60000 [==============>...............] - ETA: 1s - loss: 0.4089 - acc: 0.8845
33280/60000 [===============>..............] - ETA: 0s - loss: 0.4011 - acc: 0.8866
35072/60000 [================>.............] - ETA: 0s - loss: 0.3922 - acc: 0.8894
36864/60000 [=================>............] - ETA: 0s - loss: 0.3834 - acc: 0.8916
38656/60000 [==================>...........] - ETA: 0s - loss: 0.3759 - acc: 0.8934
40448/60000 [===================>..........] - ETA: 0s - loss: 0.3676 - acc: 0.8957
41984/60000 [===================>..........] - ETA: 0s - loss: 0.3620 - acc: 0.8972
43776/60000 [====================>.........] - ETA: 0s - loss: 0.3567 - acc: 0.8986
45568/60000 [=====================>........] - ETA: 0s - loss: 0.3501 - acc: 0.9005
47360/60000 [======================>.......] - ETA: 0s - loss: 0.3443 - acc: 0.9019
49152/60000 [=======================>......] - ETA: 0s - loss: 0.3402 - acc: 0.9031
50944/60000 [========================>.....] - ETA: 0s - loss: 0.3347 - acc: 0.9046
52736/60000 [=========================>....] - ETA: 0s - loss: 0.3291 - acc: 0.9063
54528/60000 [==========================>...] - ETA: 0s - loss: 0.3237 - acc: 0.9078
56064/60000 [===========================>..] - ETA: 0s - loss: 0.3203 - acc: 0.9088
57856/60000 [===========================>..] - ETA: 0s - loss: 0.3157 - acc: 0.9099
59648/60000 [============================>.] - ETA: 0s - loss: 0.3115 - acc: 0.9109
60000/60000 [==============================] - 2s 34us/step - loss: 0.3110 - acc: 0.9110
Epoch 2/10

  256/60000 [..............................] - ETA: 4s - loss: 0.2005 - acc: 0.9414
 1280/60000 [..............................] - ETA: 3s - loss: 0.1481 - acc: 0.9555
 2816/60000 [>.............................] - ETA: 2s - loss: 0.1443 - acc: 0.9560
 4608/60000 [=>............................] - ETA: 2s - loss: 0.1609 - acc: 0.9520
 6400/60000 [==>...........................] - ETA: 2s - loss: 0.1606 - acc: 0.9533
 8192/60000 [===>..........................] - ETA: 1s - loss: 0.1593 - acc: 0.9535
 9984/60000 [===>..........................] - ETA: 1s - loss: 0.1606 - acc: 0.9520
11520/60000 [====>.........................] - ETA: 1s - loss: 0.1592 - acc: 0.9535
13312/60000 [=====>........................] - ETA: 1s - loss: 0.1560 - acc: 0.9549
15104/60000 [======>.......................] - ETA: 1s - loss: 0.1538 - acc: 0.9556
16896/60000 [=======>......................] - ETA: 1s - loss: 0.1523 - acc: 0.9560
18432/60000 [========>.....................] - ETA: 1s - loss: 0.1502 - acc: 0.9569
20224/60000 [=========>....................] - ETA: 1s - loss: 0.1513 - acc: 0.9568
22016/60000 [==========>...................] - ETA: 1s - loss: 0.1516 - acc: 0.9566
23808/60000 [==========>...................] - ETA: 1s - loss: 0.1492 - acc: 0.9573
25600/60000 [===========>..................] - ETA: 1s - loss: 0.1470 - acc: 0.9579
27392/60000 [============>.................] - ETA: 1s - loss: 0.1456 - acc: 0.9582
29184/60000 [=============>................] - ETA: 1s - loss: 0.1445 - acc: 0.9585
30976/60000 [==============>...............] - ETA: 0s - loss: 0.1438 - acc: 0.9589
32768/60000 [===============>..............] - ETA: 0s - loss: 0.1437 - acc: 0.9586
34560/60000 [================>.............] - ETA: 0s - loss: 0.1429 - acc: 0.9591
36352/60000 [=================>............] - ETA: 0s - loss: 0.1410 - acc: 0.9596
38144/60000 [==================>...........] - ETA: 0s - loss: 0.1407 - acc: 0.9599
39936/60000 [==================>...........] - ETA: 0s - loss: 0.1393 - acc: 0.9602
41728/60000 [===================>..........] - ETA: 0s - loss: 0.1389 - acc: 0.9603
43520/60000 [====================>.........] - ETA: 0s - loss: 0.1372 - acc: 0.9608
45312/60000 [=====================>........] - ETA: 0s - loss: 0.1367 - acc: 0.9609
47104/60000 [======================>.......] - ETA: 0s - loss: 0.1355 - acc: 0.9613
48896/60000 [=======================>......] - ETA: 0s - loss: 0.1351 - acc: 0.9613
50688/60000 [========================>.....] - ETA: 0s - loss: 0.1354 - acc: 0.9610
52480/60000 [=========================>....] - ETA: 0s - loss: 0.1343 - acc: 0.9612
54272/60000 [==========================>...] - ETA: 0s - loss: 0.1337 - acc: 0.9613
56064/60000 [===========================>..] - ETA: 0s - loss: 0.1332 - acc: 0.9615
57856/60000 [===========================>..] - ETA: 0s - loss: 0.1321 - acc: 0.9618
59648/60000 [============================>.] - ETA: 0s - loss: 0.1315 - acc: 0.9619
60000/60000 [==============================] - 2s 32us/step - loss: 0.1312 - acc: 0.9620
Epoch 3/10

  256/60000 [..............................] - ETA: 2s - loss: 0.0787 - acc: 0.9727
 2048/60000 [>.............................] - ETA: 1s - loss: 0.0981 - acc: 0.9702
 3584/60000 [>.............................] - ETA: 1s - loss: 0.0959 - acc: 0.9721
 5376/60000 [=>............................] - ETA: 1s - loss: 0.0944 - acc: 0.9730
 7168/60000 [==>...........................] - ETA: 1s - loss: 0.0968 - acc: 0.9713
 8960/60000 [===>..........................] - ETA: 1s - loss: 0.0934 - acc: 0.9730
10752/60000 [====>.........................] - ETA: 1s - loss: 0.0924 - acc: 0.9730
12288/60000 [=====>........................] - ETA: 1s - loss: 0.0916 - acc: 0.9734
14080/60000 [======>.......................] - ETA: 1s - loss: 0.0911 - acc: 0.9732
15872/60000 [======>.......................] - ETA: 1s - loss: 0.0884 - acc: 0.9742
17408/60000 [=======>......................] - ETA: 1s - loss: 0.0903 - acc: 0.9737
19200/60000 [========>.....................] - ETA: 1s - loss: 0.0904 - acc: 0.9738
20992/60000 [=========>....................] - ETA: 1s - loss: 0.0906 - acc: 0.9735
22784/60000 [==========>...................] - ETA: 1s - loss: 0.0900 - acc: 0.9735
24576/60000 [===========>..................] - ETA: 1s - loss: 0.0894 - acc: 0.9736
26368/60000 [============>.................] - ETA: 1s - loss: 0.0891 - acc: 0.9738
28160/60000 [=============>................] - ETA: 0s - loss: 0.0889 - acc: 0.9738
29952/60000 [=============>................] - ETA: 0s - loss: 0.0887 - acc: 0.9738
31744/60000 [==============>...............] - ETA: 0s - loss: 0.0872 - acc: 0.9742
33536/60000 [===============>..............] - ETA: 0s - loss: 0.0868 - acc: 0.9742
35328/60000 [================>.............] - ETA: 0s - loss: 0.0868 - acc: 0.9742
37120/60000 [=================>............] - ETA: 0s - loss: 0.0866 - acc: 0.9744
38912/60000 [==================>...........] - ETA: 0s - loss: 0.0865 - acc: 0.9742
40704/60000 [===================>..........] - ETA: 0s - loss: 0.0868 - acc: 0.9741
42496/60000 [====================>.........] - ETA: 0s - loss: 0.0877 - acc: 0.9738
44288/60000 [=====================>........] - ETA: 0s - loss: 0.0873 - acc: 0.9740
46080/60000 [======================>.......] - ETA: 0s - loss: 0.0864 - acc: 0.9742
47872/60000 [======================>.......] - ETA: 0s - loss: 0.0865 - acc: 0.9743
49664/60000 [=======================>......] - ETA: 0s - loss: 0.0864 - acc: 0.9744
51456/60000 [========================>.....] - ETA: 0s - loss: 0.0862 - acc: 0.9745
53248/60000 [=========================>....] - ETA: 0s - loss: 0.0854 - acc: 0.9746
55040/60000 [==========================>...] - ETA: 0s - loss: 0.0849 - acc: 0.9748
56832/60000 [===========================>..] - ETA: 0s - loss: 0.0850 - acc: 0.9747
58624/60000 [============================>.] - ETA: 0s - loss: 0.0851 - acc: 0.9747
60000/60000 [==============================] - 2s 31us/step - loss: 0.0853 - acc: 0.9747
Epoch 4/10

  256/60000 [..............................] - ETA: 2s - loss: 0.0925 - acc: 0.9688
 1792/60000 [..............................] - ETA: 2s - loss: 0.0730 - acc: 0.9777
 3584/60000 [>.............................] - ETA: 1s - loss: 0.0729 - acc: 0.9791
 5120/60000 [=>............................] - ETA: 1s - loss: 0.0665 - acc: 0.9816
 6912/60000 [==>...........................] - ETA: 1s - loss: 0.0667 - acc: 0.9818
 8704/60000 [===>..........................] - ETA: 1s - loss: 0.0671 - acc: 0.9810
10496/60000 [====>.........................] - ETA: 1s - loss: 0.0661 - acc: 0.9808
12288/60000 [=====>........................] - ETA: 1s - loss: 0.0655 - acc: 0.9814
14080/60000 [======>.......................] - ETA: 1s - loss: 0.0668 - acc: 0.9810
15872/60000 [======>.......................] - ETA: 1s - loss: 0.0647 - acc: 0.9816
17408/60000 [=======>......................] - ETA: 1s - loss: 0.0649 - acc: 0.9812
18944/60000 [========>.....................] - ETA: 1s - loss: 0.0650 - acc: 0.9811
20480/60000 [=========>....................] - ETA: 1s - loss: 0.0649 - acc: 0.9809
22272/60000 [==========>...................] - ETA: 1s - loss: 0.0652 - acc: 0.9806
24064/60000 [===========>..................] - ETA: 1s - loss: 0.0649 - acc: 0.9807
25856/60000 [===========>..................] - ETA: 1s - loss: 0.0660 - acc: 0.9803
27648/60000 [============>.................] - ETA: 1s - loss: 0.0657 - acc: 0.9806
29440/60000 [=============>................] - ETA: 0s - loss: 0.0648 - acc: 0.9809
31232/60000 [==============>...............] - ETA: 0s - loss: 0.0645 - acc: 0.9810
33024/60000 [===============>..............] - ETA: 0s - loss: 0.0643 - acc: 0.9810
34560/60000 [================>.............] - ETA: 0s - loss: 0.0639 - acc: 0.9810
36096/60000 [=================>............] - ETA: 0s - loss: 0.0636 - acc: 0.9811
37888/60000 [=================>............] - ETA: 0s - loss: 0.0629 - acc: 0.9812
39424/60000 [==================>...........] - ETA: 0s - loss: 0.0627 - acc: 0.9813
40960/60000 [===================>..........] - ETA: 0s - loss: 0.0627 - acc: 0.9813
42496/60000 [====================>.........] - ETA: 0s - loss: 0.0621 - acc: 0.9815
44032/60000 [=====================>........] - ETA: 0s - loss: 0.0620 - acc: 0.9814
45312/60000 [=====================>........] - ETA: 0s - loss: 0.0620 - acc: 0.9814
46848/60000 [======================>.......] - ETA: 0s - loss: 0.0619 - acc: 0.9815
48640/60000 [=======================>......] - ETA: 0s - loss: 0.0618 - acc: 0.9817
50432/60000 [========================>.....] - ETA: 0s - loss: 0.0616 - acc: 0.9817
52224/60000 [=========================>....] - ETA: 0s - loss: 0.0616 - acc: 0.9816
54016/60000 [==========================>...] - ETA: 0s - loss: 0.0614 - acc: 0.9816
55808/60000 [==========================>...] - ETA: 0s - loss: 0.0617 - acc: 0.9815
57600/60000 [===========================>..] - ETA: 0s - loss: 0.0617 - acc: 0.9816
59392/60000 [============================>.] - ETA: 0s - loss: 0.0617 - acc: 0.9816
60000/60000 [==============================] - 2s 32us/step - loss: 0.0617 - acc: 0.9816
Epoch 5/10

  256/60000 [..............................] - ETA: 2s - loss: 0.0436 - acc: 0.9844
 2048/60000 [>.............................] - ETA: 1s - loss: 0.0438 - acc: 0.9873
 3584/60000 [>.............................] - ETA: 1s - loss: 0.0448 - acc: 0.9866
 5120/60000 [=>............................] - ETA: 1s - loss: 0.0446 - acc: 0.9865
 6656/60000 [==>...........................] - ETA: 1s - loss: 0.0474 - acc: 0.9860
 8192/60000 [===>..........................] - ETA: 1s - loss: 0.0486 - acc: 0.9855
 9984/60000 [===>..........................] - ETA: 1s - loss: 0.0467 - acc: 0.9865
11776/60000 [====>.........................] - ETA: 1s - loss: 0.0469 - acc: 0.9868
13568/60000 [=====>........................] - ETA: 1s - loss: 0.0468 - acc: 0.9870
15360/60000 [======>.......................] - ETA: 1s - loss: 0.0458 - acc: 0.9870
17152/60000 [=======>......................] - ETA: 1s - loss: 0.0457 - acc: 0.9869
18944/60000 [========>.....................] - ETA: 1s - loss: 0.0457 - acc: 0.9872
20736/60000 [=========>....................] - ETA: 1s - loss: 0.0462 - acc: 0.9870
22528/60000 [==========>...................] - ETA: 1s - loss: 0.0478 - acc: 0.9861
24320/60000 [===========>..................] - ETA: 1s - loss: 0.0472 - acc: 0.9861
26112/60000 [============>.................] - ETA: 1s - loss: 0.0470 - acc: 0.9863
27904/60000 [============>.................] - ETA: 1s - loss: 0.0473 - acc: 0.9862
29440/60000 [=============>................] - ETA: 0s - loss: 0.0468 - acc: 0.9863
30976/60000 [==============>...............] - ETA: 0s - loss: 0.0465 - acc: 0.9865
32512/60000 [===============>..............] - ETA: 0s - loss: 0.0470 - acc: 0.9863
34304/60000 [================>.............] - ETA: 0s - loss: 0.0463 - acc: 0.9866
36096/60000 [=================>............] - ETA: 0s - loss: 0.0456 - acc: 0.9870
37888/60000 [=================>............] - ETA: 0s - loss: 0.0457 - acc: 0.9869
39680/60000 [==================>...........] - ETA: 0s - loss: 0.0456 - acc: 0.9870
41472/60000 [===================>..........] - ETA: 0s - loss: 0.0460 - acc: 0.9867
43264/60000 [====================>.........] - ETA: 0s - loss: 0.0458 - acc: 0.9868
45056/60000 [=====================>........] - ETA: 0s - loss: 0.0457 - acc: 0.9867
46848/60000 [======================>.......] - ETA: 0s - loss: 0.0458 - acc: 0.9867
48640/60000 [=======================>......] - ETA: 0s - loss: 0.0454 - acc: 0.9867
50432/60000 [========================>.....] - ETA: 0s - loss: 0.0456 - acc: 0.9867
52224/60000 [=========================>....] - ETA: 0s - loss: 0.0459 - acc: 0.9866
54016/60000 [==========================>...] - ETA: 0s - loss: 0.0457 - acc: 0.9867
55808/60000 [==========================>...] - ETA: 0s - loss: 0.0459 - acc: 0.9866
57600/60000 [===========================>..] - ETA: 0s - loss: 0.0458 - acc: 0.9867
59392/60000 [============================>.] - ETA: 0s - loss: 0.0464 - acc: 0.9866
60000/60000 [==============================] - 2s 31us/step - loss: 0.0465 - acc: 0.9865
Epoch 6/10

  256/60000 [..............................] - ETA: 2s - loss: 0.0352 - acc: 0.9883
 2048/60000 [>.............................] - ETA: 1s - loss: 0.0383 - acc: 0.9902
 3840/60000 [>.............................] - ETA: 1s - loss: 0.0347 - acc: 0.9906
 5632/60000 [=>............................] - ETA: 1s - loss: 0.0306 - acc: 0.9922
 7424/60000 [==>...........................] - ETA: 1s - loss: 0.0298 - acc: 0.9925
 9216/60000 [===>..........................] - ETA: 1s - loss: 0.0332 - acc: 0.9911
11008/60000 [====>.........................] - ETA: 1s - loss: 0.0335 - acc: 0.9909
12800/60000 [=====>........................] - ETA: 1s - loss: 0.0334 - acc: 0.9910
14592/60000 [======>.......................] - ETA: 1s - loss: 0.0339 - acc: 0.9905
16384/60000 [=======>......................] - ETA: 1s - loss: 0.0340 - acc: 0.9904
18176/60000 [========>.....................] - ETA: 1s - loss: 0.0337 - acc: 0.9906
19712/60000 [========>.....................] - ETA: 1s - loss: 0.0342 - acc: 0.9904
21504/60000 [=========>....................] - ETA: 1s - loss: 0.0336 - acc: 0.9907
23040/60000 [==========>...................] - ETA: 1s - loss: 0.0342 - acc: 0.9904
24832/60000 [===========>..................] - ETA: 1s - loss: 0.0341 - acc: 0.9905
26624/60000 [============>.................] - ETA: 1s - loss: 0.0340 - acc: 0.9905
28416/60000 [=============>................] - ETA: 0s - loss: 0.0345 - acc: 0.9902
30208/60000 [==============>...............] - ETA: 0s - loss: 0.0346 - acc: 0.9902
32000/60000 [===============>..............] - ETA: 0s - loss: 0.0346 - acc: 0.9902
33792/60000 [===============>..............] - ETA: 0s - loss: 0.0349 - acc: 0.9900
35584/60000 [================>.............] - ETA: 0s - loss: 0.0352 - acc: 0.9899
37376/60000 [=================>............] - ETA: 0s - loss: 0.0352 - acc: 0.9900
39168/60000 [==================>...........] - ETA: 0s - loss: 0.0348 - acc: 0.9900
40960/60000 [===================>..........] - ETA: 0s - loss: 0.0347 - acc: 0.9902
42752/60000 [====================>.........] - ETA: 0s - loss: 0.0354 - acc: 0.9900
44544/60000 [=====================>........] - ETA: 0s - loss: 0.0353 - acc: 0.9900
46336/60000 [======================>.......] - ETA: 0s - loss: 0.0355 - acc: 0.9899
48128/60000 [=======================>......] - ETA: 0s - loss: 0.0354 - acc: 0.9899
49920/60000 [=======================>......] - ETA: 0s - loss: 0.0356 - acc: 0.9898
51712/60000 [========================>.....] - ETA: 0s - loss: 0.0355 - acc: 0.9898
53504/60000 [=========================>....] - ETA: 0s - loss: 0.0358 - acc: 0.9897
55296/60000 [==========================>...] - ETA: 0s - loss: 0.0356 - acc: 0.9898
57088/60000 [===========================>..] - ETA: 0s - loss: 0.0356 - acc: 0.9898
58880/60000 [============================>.] - ETA: 0s - loss: 0.0356 - acc: 0.9897
60000/60000 [==============================] - 2s 31us/step - loss: 0.0355 - acc: 0.9896
Epoch 7/10

  256/60000 [..............................] - ETA: 2s - loss: 0.0282 - acc: 0.9883
 1792/60000 [..............................] - ETA: 2s - loss: 0.0283 - acc: 0.9911
 3584/60000 [>.............................] - ETA: 1s - loss: 0.0238 - acc: 0.9936
 5376/60000 [=>............................] - ETA: 1s - loss: 0.0242 - acc: 0.9935
 7168/60000 [==>...........................] - ETA: 1s - loss: 0.0236 - acc: 0.9937
 8960/60000 [===>..........................] - ETA: 1s - loss: 0.0243 - acc: 0.9935
10752/60000 [====>.........................] - ETA: 1s - loss: 0.0248 - acc: 0.9932
12544/60000 [=====>........................] - ETA: 1s - loss: 0.0247 - acc: 0.9931
14336/60000 [======>.......................] - ETA: 1s - loss: 0.0247 - acc: 0.9932
16128/60000 [=======>......................] - ETA: 1s - loss: 0.0258 - acc: 0.9929
17920/60000 [=======>......................] - ETA: 1s - loss: 0.0261 - acc: 0.9927
19712/60000 [========>.....................] - ETA: 1s - loss: 0.0260 - acc: 0.9928
21248/60000 [=========>....................] - ETA: 1s - loss: 0.0258 - acc: 0.9928
23040/60000 [==========>...................] - ETA: 1s - loss: 0.0254 - acc: 0.9930
24832/60000 [===========>..................] - ETA: 1s - loss: 0.0256 - acc: 0.9930
26624/60000 [============>.................] - ETA: 1s - loss: 0.0255 - acc: 0.9931
28416/60000 [=============>................] - ETA: 0s - loss: 0.0265 - acc: 0.9927
30208/60000 [==============>...............] - ETA: 0s - loss: 0.0261 - acc: 0.9928
32000/60000 [===============>..............] - ETA: 0s - loss: 0.0262 - acc: 0.9927
33792/60000 [===============>..............] - ETA: 0s - loss: 0.0259 - acc: 0.9928
35584/60000 [================>.............] - ETA: 0s - loss: 0.0267 - acc: 0.9926
37376/60000 [=================>............] - ETA: 0s - loss: 0.0265 - acc: 0.9928
39168/60000 [==================>...........] - ETA: 0s - loss: 0.0266 - acc: 0.9927
40960/60000 [===================>..........] - ETA: 0s - loss: 0.0264 - acc: 0.9927
42752/60000 [====================>.........] - ETA: 0s - loss: 0.0268 - acc: 0.9925
44544/60000 [=====================>........] - ETA: 0s - loss: 0.0271 - acc: 0.9924
46336/60000 [======================>.......] - ETA: 0s - loss: 0.0276 - acc: 0.9924
48128/60000 [=======================>......] - ETA: 0s - loss: 0.0276 - acc: 0.9923
49920/60000 [=======================>......] - ETA: 0s - loss: 0.0278 - acc: 0.9922
51712/60000 [========================>.....] - ETA: 0s - loss: 0.0276 - acc: 0.9922
53504/60000 [=========================>....] - ETA: 0s - loss: 0.0276 - acc: 0.9923
55296/60000 [==========================>...] - ETA: 0s - loss: 0.0275 - acc: 0.9923
57088/60000 [===========================>..] - ETA: 0s - loss: 0.0276 - acc: 0.9922
58880/60000 [============================>.] - ETA: 0s - loss: 0.0279 - acc: 0.9920
60000/60000 [==============================] - 2s 31us/step - loss: 0.0283 - acc: 0.9918
Epoch 8/10

  256/60000 [..............................] - ETA: 2s - loss: 0.0194 - acc: 0.9883
 2048/60000 [>.............................] - ETA: 1s - loss: 0.0153 - acc: 0.9971
 3840/60000 [>.............................] - ETA: 1s - loss: 0.0157 - acc: 0.9961
 5632/60000 [=>............................] - ETA: 1s - loss: 0.0186 - acc: 0.9950
 7424/60000 [==>...........................] - ETA: 1s - loss: 0.0192 - acc: 0.9950
 9216/60000 [===>..........................] - ETA: 1s - loss: 0.0189 - acc: 0.9950
11008/60000 [====>.........................] - ETA: 1s - loss: 0.0184 - acc: 0.9954
12800/60000 [=====>........................] - ETA: 1s - loss: 0.0189 - acc: 0.9959
14592/60000 [======>.......................] - ETA: 1s - loss: 0.0180 - acc: 0.9960
16384/60000 [=======>......................] - ETA: 1s - loss: 0.0189 - acc: 0.9955
18176/60000 [========>.....................] - ETA: 1s - loss: 0.0191 - acc: 0.9952
19968/60000 [========>.....................] - ETA: 1s - loss: 0.0194 - acc: 0.9950
21760/60000 [=========>....................] - ETA: 1s - loss: 0.0199 - acc: 0.9946
23552/60000 [==========>...................] - ETA: 1s - loss: 0.0196 - acc: 0.9947
25344/60000 [===========>..................] - ETA: 1s - loss: 0.0200 - acc: 0.9945
27136/60000 [============>.................] - ETA: 1s - loss: 0.0206 - acc: 0.9943
28928/60000 [=============>................] - ETA: 0s - loss: 0.0210 - acc: 0.9943
30720/60000 [==============>...............] - ETA: 0s - loss: 0.0210 - acc: 0.9943
32512/60000 [===============>..............] - ETA: 0s - loss: 0.0212 - acc: 0.9942
34304/60000 [================>.............] - ETA: 0s - loss: 0.0210 - acc: 0.9943
36096/60000 [=================>............] - ETA: 0s - loss: 0.0215 - acc: 0.9941
37888/60000 [=================>............] - ETA: 0s - loss: 0.0217 - acc: 0.9941
39680/60000 [==================>...........] - ETA: 0s - loss: 0.0213 - acc: 0.9941
41472/60000 [===================>..........] - ETA: 0s - loss: 0.0217 - acc: 0.9941
43008/60000 [====================>.........] - ETA: 0s - loss: 0.0216 - acc: 0.9940
44800/60000 [=====================>........] - ETA: 0s - loss: 0.0216 - acc: 0.9941
46592/60000 [======================>.......] - ETA: 0s - loss: 0.0217 - acc: 0.9941
48384/60000 [=======================>......] - ETA: 0s - loss: 0.0218 - acc: 0.9940
50176/60000 [========================>.....] - ETA: 0s - loss: 0.0220 - acc: 0.9941
51968/60000 [========================>.....] - ETA: 0s - loss: 0.0222 - acc: 0.9940
53760/60000 [=========================>....] - ETA: 0s - loss: 0.0222 - acc: 0.9940
55552/60000 [==========================>...] - ETA: 0s - loss: 0.0220 - acc: 0.9940
57344/60000 [===========================>..] - ETA: 0s - loss: 0.0222 - acc: 0.9940
59136/60000 [============================>.] - ETA: 0s - loss: 0.0224 - acc: 0.9939
60000/60000 [==============================] - 2s 31us/step - loss: 0.0223 - acc: 0.9939
Epoch 9/10

  256/60000 [..............................] - ETA: 2s - loss: 0.0072 - acc: 1.0000
 2048/60000 [>.............................] - ETA: 1s - loss: 0.0120 - acc: 0.9976
 3840/60000 [>.............................] - ETA: 1s - loss: 0.0130 - acc: 0.9969
 5632/60000 [=>............................] - ETA: 1s - loss: 0.0132 - acc: 0.9966
 7424/60000 [==>...........................] - ETA: 1s - loss: 0.0137 - acc: 0.9964
 9216/60000 [===>..........................] - ETA: 1s - loss: 0.0150 - acc: 0.9961
11008/60000 [====>.........................] - ETA: 1s - loss: 0.0148 - acc: 0.9962
12800/60000 [=====>........................] - ETA: 1s - loss: 0.0146 - acc: 0.9962
14592/60000 [======>.......................] - ETA: 1s - loss: 0.0153 - acc: 0.9958
16384/60000 [=======>......................] - ETA: 1s - loss: 0.0151 - acc: 0.9958
18176/60000 [========>.....................] - ETA: 1s - loss: 0.0154 - acc: 0.9957
19968/60000 [========>.....................] - ETA: 1s - loss: 0.0156 - acc: 0.9956
21760/60000 [=========>....................] - ETA: 1s - loss: 0.0152 - acc: 0.9957
23552/60000 [==========>...................] - ETA: 1s - loss: 0.0154 - acc: 0.9956
25344/60000 [===========>..................] - ETA: 1s - loss: 0.0150 - acc: 0.9957
27136/60000 [============>.................] - ETA: 1s - loss: 0.0149 - acc: 0.9958
28928/60000 [=============>................] - ETA: 0s - loss: 0.0150 - acc: 0.9959
30720/60000 [==============>...............] - ETA: 0s - loss: 0.0150 - acc: 0.9958
32512/60000 [===============>..............] - ETA: 0s - loss: 0.0153 - acc: 0.9958
34304/60000 [================>.............] - ETA: 0s - loss: 0.0155 - acc: 0.9957
36096/60000 [=================>............] - ETA: 0s - loss: 0.0155 - acc: 0.9957
37376/60000 [=================>............] - ETA: 0s - loss: 0.0156 - acc: 0.9957
38912/60000 [==================>...........] - ETA: 0s - loss: 0.0156 - acc: 0.9956
40704/60000 [===================>..........] - ETA: 0s - loss: 0.0156 - acc: 0.9957
42496/60000 [====================>.........] - ETA: 0s - loss: 0.0155 - acc: 0.9956
44288/60000 [=====================>........] - ETA: 0s - loss: 0.0156 - acc: 0.9956
46080/60000 [======================>.......] - ETA: 0s - loss: 0.0156 - acc: 0.9957
47872/60000 [======================>.......] - ETA: 0s - loss: 0.0159 - acc: 0.9956
49664/60000 [=======================>......] - ETA: 0s - loss: 0.0159 - acc: 0.9956
51456/60000 [========================>.....] - ETA: 0s - loss: 0.0162 - acc: 0.9955
53248/60000 [=========================>....] - ETA: 0s - loss: 0.0164 - acc: 0.9954
55040/60000 [==========================>...] - ETA: 0s - loss: 0.0163 - acc: 0.9955
56832/60000 [===========================>..] - ETA: 0s - loss: 0.0165 - acc: 0.9955
58624/60000 [============================>.] - ETA: 0s - loss: 0.0167 - acc: 0.9954
60000/60000 [==============================] - 2s 31us/step - loss: 0.0172 - acc: 0.9953
Epoch 10/10

  256/60000 [..............................] - ETA: 2s - loss: 0.0034 - acc: 1.0000
 2048/60000 [>.............................] - ETA: 1s - loss: 0.0078 - acc: 0.9985
 3840/60000 [>.............................] - ETA: 1s - loss: 0.0082 - acc: 0.9982
 5632/60000 [=>............................] - ETA: 1s - loss: 0.0078 - acc: 0.9982
 7424/60000 [==>...........................] - ETA: 1s - loss: 0.0078 - acc: 0.9984
 8960/60000 [===>..........................] - ETA: 1s - loss: 0.0085 - acc: 0.9984
10752/60000 [====>.........................] - ETA: 1s - loss: 0.0097 - acc: 0.9976
12544/60000 [=====>........................] - ETA: 1s - loss: 0.0097 - acc: 0.9976
14336/60000 [======>.......................] - ETA: 1s - loss: 0.0104 - acc: 0.9969
16128/60000 [=======>......................] - ETA: 1s - loss: 0.0106 - acc: 0.9968
17920/60000 [=======>......................] - ETA: 1s - loss: 0.0114 - acc: 0.9970
19712/60000 [========>.....................] - ETA: 1s - loss: 0.0117 - acc: 0.9970
21504/60000 [=========>....................] - ETA: 1s - loss: 0.0113 - acc: 0.9971
23296/60000 [==========>...................] - ETA: 1s - loss: 0.0111 - acc: 0.9973
25088/60000 [===========>..................] - ETA: 1s - loss: 0.0113 - acc: 0.9972
26880/60000 [============>.................] - ETA: 1s - loss: 0.0114 - acc: 0.9972
28672/60000 [=============>................] - ETA: 0s - loss: 0.0120 - acc: 0.9970
30464/60000 [==============>...............] - ETA: 0s - loss: 0.0121 - acc: 0.9969
32256/60000 [===============>..............] - ETA: 0s - loss: 0.0124 - acc: 0.9969
33792/60000 [===============>..............] - ETA: 0s - loss: 0.0126 - acc: 0.9968
35584/60000 [================>.............] - ETA: 0s - loss: 0.0124 - acc: 0.9969
37376/60000 [=================>............] - ETA: 0s - loss: 0.0123 - acc: 0.9969
39168/60000 [==================>...........] - ETA: 0s - loss: 0.0129 - acc: 0.9967
40960/60000 [===================>..........] - ETA: 0s - loss: 0.0128 - acc: 0.9967
42752/60000 [====================>.........] - ETA: 0s - loss: 0.0131 - acc: 0.9967
44544/60000 [=====================>........] - ETA: 0s - loss: 0.0133 - acc: 0.9967
46336/60000 [======================>.......] - ETA: 0s - loss: 0.0134 - acc: 0.9967
48128/60000 [=======================>......] - ETA: 0s - loss: 0.0133 - acc: 0.9967
49920/60000 [=======================>......] - ETA: 0s - loss: 0.0134 - acc: 0.9966
51712/60000 [========================>.....] - ETA: 0s - loss: 0.0136 - acc: 0.9964
53504/60000 [=========================>....] - ETA: 0s - loss: 0.0137 - acc: 0.9963
55296/60000 [==========================>...] - ETA: 0s - loss: 0.0141 - acc: 0.9961
57088/60000 [===========================>..] - ETA: 0s - loss: 0.0142 - acc: 0.9961
58624/60000 [============================>.] - ETA: 0s - loss: 0.0140 - acc: 0.9962
60000/60000 [==============================] - 2s 31us/step - loss: 0.0139 - acc: 0.9963

metrics <- network %>% evaluate(test_images, test_labels)


   32/10000 [..............................] - ETA: 9s
 1632/10000 [===>..........................] - ETA: 0s
 3296/10000 [========>.....................] - ETA: 0s
 5024/10000 [==============>...............] - ETA: 0s
 6720/10000 [===================>..........] - ETA: 0s
 8512/10000 [========================>.....] - ETA: 0s
10000/10000 [==============================] - 0s 32us/step

metrics

$loss
[1] 0.0602231

$acc
[1] 0.9816

network %>% predict_classes(test_images[1:100,])

  [1] 7 2 1 0 4 1 4 9 5 9 0 6 9 0 1 5 9 7 3 4 9 6 6 5 4 0 7 4 0 1 3 1 3 4 7 2 7 1 2 1 1 7 4 2 3 5
 [47] 1 2 4 4 6 3 5 5 6 0 4 1 9 5 7 8 9 3 7 4 6 4 3 0 7 0 2 9 1 7 3 2 9 7 7 6 2 7 8 4 7 3 6 1 3 6
 [93] 9 3 1 4 1 7 6 9

LS0tCnRpdGxlOiAiRGVlcCBMZWFybmluZyB3aXRoIFIgLSBDaGFwdGVyIDIgLSBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhlIGV4YW1wbGUgY29kZSBmcm9tIERlZXAgTGVhcm5pbmcgd2l0aCBSIENoYXB0ZXIgMi4KCmBgYHtyfQpsaWJyYXJ5KGtlcmFzKQoKbW5pc3QgPC0gZGF0YXNldF9tbmlzdCgpCnRyYWluX2ltYWdlcyA8LSBtbmlzdCR0cmFpbiR4CnRyYWluX2xhYmVscyA8LSBtbmlzdCR0cmFpbiR5CnRlc3RfaW1hZ2VzIDwtIG1uaXN0JHRlc3QkeAp0ZXN0X2xhYmVscyA8LSBtbmlzdCR0ZXN0JHkKYGBgCgpgYGB7cn0Kc3RyKHRyYWluX2ltYWdlcykKYGBgCgpgYGB7cn0KZGltKHRyYWluX2ltYWdlcykKYGBgCgoKYGBge3J9CmRpZ2l0IDwtIHRyYWluX2ltYWdlc1s1LCxdCnBsb3QoYXMucmFzdGVyKGRpZ2l0LCBtYXggPSAyNTUpKQpgYGAKCgpgYGB7cn0Kc3RyKHRyYWluX2xhYmVscykKYGBgCgpgYGB7cn0Kc3RyKHRlc3RfaW1hZ2VzKQpzdHIodGVzdF9sYWJlbHMpCmBgYAoKYGBge3J9Cm5ldHdvcmsgPC0ga2VyYXNfbW9kZWxfc2VxdWVudGlhbCgpICU+JQogIGxheWVyX2RlbnNlKHVuaXRzID0gNTEyLCBhY3RpdmF0aW9uID0gInJlbHUiLCBpbnB1dF9zaGFwZSA9IGMoMjggKiAyOCkpICU+JQogIGxheWVyX2RlbnNlKHVuaXRzID0gMTAsIGFjdGl2YXRpb24gPSAic29mdG1heCIpCmBgYAoKCmBgYHtyfQpuZXR3b3JrICU+JSBjb21waWxlKAogIG9wdGltaXplciA9ICJybXNwcm9wIiwKICBsb3NzID0gImNhdGVnb3JpY2FsX2Nyb3NzZW50cm9weSIsCiAgbWV0cmljcyA9IGMoImFjY3VyYWN5IikKKQpgYGAKCgpgYGB7cn0KdHJhaW5faW1hZ2VzIDwtIGFycmF5X3Jlc2hhcGUodHJhaW5faW1hZ2VzLCBjKDYwMDAwLCAyOCAqIDI4KSkKdHJhaW5faW1hZ2VzIDwtIHRyYWluX2ltYWdlcyAvIDI1NQoKdGVzdF9pbWFnZXMgPC0gYXJyYXlfcmVzaGFwZSh0ZXN0X2ltYWdlcywgYygxMDAwMCwgMjggKiAyOCkpCnRlc3RfaW1hZ2VzIDwtIHRlc3RfaW1hZ2VzIC8gMjU1CmBgYAoKYGBge3J9CnRyYWluX2xhYmVscyA8LSB0b19jYXRlZ29yaWNhbCh0cmFpbl9sYWJlbHMpCnRlc3RfbGFiZWxzIDwtIHRvX2NhdGVnb3JpY2FsKHRlc3RfbGFiZWxzKQpgYGAKCgpgYGB7cn0KbmV0d29yayAlPiUgZml0KHRyYWluX2ltYWdlcywgdHJhaW5fbGFiZWxzLCBlcG9jaHMgPSAxMCwgYmF0Y2hfc2l6ZSA9IDI1NikKYGBgCgpgYGB7cn0KbWV0cmljcyA8LSBuZXR3b3JrICU+JSBldmFsdWF0ZSh0ZXN0X2ltYWdlcywgdGVzdF9sYWJlbHMpCm1ldHJpY3MKYGBgCgpgYGB7cn0KbmV0d29yayAlPiUgcHJlZGljdF9jbGFzc2VzKHRlc3RfaW1hZ2VzWzE6MTAwLF0pCmBgYAoK

Deep Learning with R - Chapter 2 - Notebook