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