# NOT RUN {
##- required packages
require(uavRst)
setwd(tempdir())
##- get the tutorial data
utils::download.file("https://github.com/gisma/gismaData/raw/master/uavRst/data/tutorial_data.zip",
"tutorial_data.zip")
unzip("tutorial_data.zip",exdir = ".")
##- get the files
imageTrainStack <- list()
geomTrainStack <- list()
imageTrainFiles <- Sys.glob("rgb??.tif")
geomTrainFiles <- Sys.glob("rgb??.shp")
##- create stacks from image and geometry files
imageTrainStack<-lapply(imageTrainFiles, FUN=raster::stack)
geomTrainStack <- lapply(geomTrainFiles, FUN=raster::shapefile)
names(imageTrainStack[[1]])<-c("red","green","blue")
names(imageTrainStack[[2]])<-c("red","green","blue")
names(imageTrainStack[[3]])<-c("red","green","blue")
##' finally extraxt the training data to a data frame
trainDF <- get_traindata(rasterStack = imageTrainStack,
trainPlots = geomTrainStack)
##- have a look at the training data
head(trainDF)
# }
Run the code above in your browser using DataLab