dir <- system.file('extdata/Forest/', package = "deforestable")
dd <- read_data(filename='_6_33_.jpeg', dir=dir)
hist(dd[,1])
dir <- system.file('extdata/Forest/', package = "deforestable")
dd <- read_data_matrix(filename='_6_33_.jpeg', dir=dir)
dir <- system.file('extdata/Forest/', package = "deforestable")
dd<-read_data_raster(filename='_8_46_.jpeg', dir=dir)
Run the code above in your browser using DataLab