# NOT RUN {
##- libraries
require(uavRst)
owd <- getwd()
setwd(tempdir())
##- get typical xyz DEM data in this case from the Bavarian authority
utils::download.file("http://www.ldbv.bayern.de/file/zip/10430/DGM_1_ascii.zip",
"testdata.zip")
file<- unzip("testdata.zip",list = TRUE)$Name[2]
unzip("testdata.zip",files = file, overwrite = TRUE)
##- show structure
head(read.table(file))
##- create tiff file
##- NOTE for creating a geotiff you have to provide the correct EPSG code from the meta data
xyz2tif(file,epsgCode = "31468")
##- visualize it
raster::plot(raster::raster(file))
setwd(owd)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab