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