# NOT RUN {
require(gdistance)
# w<-wind.dl(2015,2,12,0,-10,5,35,45)
data(wind_data)
w<-wind.fit(wind_data)
dl<-wind2raster(w)
sl<-wind2raster(w, type="speed")
Conductance<-flow.dispersion(dl,sl,"passive", "transitionLayer")
transitionMatrix(Conductance)
image(transitionMatrix(Conductance))
# }
Run the code above in your browser using DataLab