daily pastebin goal
58%
SHARE
TWEET

Untitled

a guest Mar 19th, 2019 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. A=list.files(path ="D:/TELEDETECCION/DATAMOD/A", pattern = "*.tif",full.names=T)
  2. B=list.files(path ="D:/TELEDETECCION/DATAMOD/B", pattern = "*.tif",full.names=T)
  3.      
  4. slope <- overlay(A, B, fun=function(x, y) {if (is.na(x[1])) { NA } else {lm(x[1] ~ y[1])$coefficients[2]}}
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top