# \donttest{
data("MultipleFeatures", package = "brglm2")
par(mfrow = c(10, 20), mar = numeric(4) + 0.1)
for (c_digit in 0:9) {
df <- subset(MultipleFeatures, digit == c_digit)
df <- as.matrix(df[, paste("pix", 1:240, sep = ".")])
for (inst in 1:20) {
m <- matrix(df[inst, ], 15, 16)[, 16:1]
image(m, col = grey.colors(7, 1, 0), xaxt = "n", yaxt = "n")
}
}
# }
Run the code above in your browser using DataLab