message_document <- list()
message_document$image <- message
plotImage(message_document)
if (FALSE) {
message_document <- list()
message_document$image <- message
plotImage(message_document)
message_document$thin <- thinImage(message_document$image)
plotImageThinned(message_document)
message_processList <- processHandwriting(message_document$thin, dim(message_document$image))
}
Run the code above in your browser using DataLab