twoSent_document = list()
twoSent_document$image = twoSent
twoSent_document$thin = thinImage(twoSent_document$image)
twoSent_processList = processHandwriting(twoSent_document$thin, dim(twoSent_document$image))
dims = dim(twoSent_document$image)
plotLine(twoSent_processList$letterList, 1, dims)
Run the code above in your browser using DataLab