Existe em algum lugar, ou alguém tem implementado este no modelo no R para imagens?