Previously topCor was broken for very small rasters as reported by
@latenooker, because a sample size > ncell(img) was requested.