exportXYZ.r

exportXYZ=function(r,nameout="outfile,txt",sep="\t") {
                   require(sp)
                   require(raster)
                   m=data.frame(sp::coordinates(r),z=raster::getValues(r))
                   write.table(m, file=nameout,sep=sep , col.names = F, row.names = F)
  }