spdf<-data.frame(rnorm(2))
xy<-data.frame(x=c(4,2),y=c(8,4))
coordinates(spdf)<-xy
m<-matrix(NA,10,10)
costras<-raster(m,xmn=0,xmx=ncol(m),ymn=0,ymx=nrow(m))
costras[]<-runif(ncell(costras),min=1,max=10)
#introduce spatial gradient
for(i in 1:nrow(costras)){
costras[i,]<-costras[i,]+i
costras[,i]<-costras[,i]+i
}
rstack<-pathdistGen(spdf,costras,100)Run the code above in your browser using DataLab