m = matrix( round(runif(9,1,10)), ncol=3 )
print(m)
relative.position(m)
relative.rank(m)
## Not run:
# focal.function("dem",fun=relative.rank,radius=5)
# focal.function("dem",fun=relative.position,radius=5)
# relrank = as.vector(read.ascii.grid("relrank")$data)
# relpos = as.vector(read.ascii.grid("relpos")$data)
# plot(relpos,relrank,pch=".")
# cor(relpos,relrank,use="complete.obs",method="pearson")
# ## End(Not run)
Run the code above in your browser using DataLab