mnist-cheese.R

``` r
# pak::pkg_install("stillmatic/MNIST")
library(MNIST)

# 1 is the most common digit in train
table(MNIST::mnist_train$y) / nrow(MNIST::mnist_train)
#> 
#>          0          1          2          3          4          5          6 
#> 0.09871667 0.11236667 0.09930000 0.10218333 0.09736667 0.09035000 0.09863333 
#>          7          8          9 
#> 0.10441667 0.09751667 0.09915000

# and also in test
table(MNIST::mnist_test$y) / nrow(MNIST::mnist_test)
#> 
#>      0      1      2      3      4      5      6      7      8      9 
#> 0.0980 0.1135 0.1032 0.1010 0.0982 0.0892 0.0958 0.1028 0.0974 0.1009
```

<sup>Created on 2023-07-06 with [reprex v2.0.2](https://reprex.tidyverse.org)</sup>