Guest User

Untitled

a guest
Oct 15th, 2018
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. grd <- Sobj_SpatialGrid(ndvi_pts, maxDim=100)$SG
  2. response <- unclass(ndvi_pts@data)[[1]]
  3. ndvi_idw <- idw(response~1, ndvi_pts, newdata=grd)
  4.  
  5. kriging_result=autoKrige(response~1, ndvi_pts, new_data=grd, nmax=7)
Add Comment
Please, Sign In to add comment