Commit 716d3a49 authored by Alison Beamish's avatar Alison Beamish
Browse files

Minor changes updated

parent a0e9bcc9
Pipeline #22955 failed with stage
in 10 seconds
......@@ -37,7 +37,7 @@ wd <- paste(tools::file_path_as_absolute("./"), "/", sep = "")
metadat <- read.csv(paste(wd, "Data/S2_stack_metadata.csv", sep = ""), header = T, sep = ",")
colnames(metadat) <- c("Sentinel-2 bands", "Band 2", "Band 3", "Band 4", "Band 5", "Band 6", "Band 7", "Band 8", "Band 11", "Band 12")
metadat[1,] <- c("","blue", "green", "red", "Vegetation Red Edge 1", "Vegetation Red Edge 2", "Vegetation Red Edge 3", "NIR", "SWIR 1", "SWIR 2")
knitr::kable(metadat, caption = "Table 1. Sentinel-2 bands included in the timeseries stack and the correspoding band ID in the HaSa tool") %>% kable_styling(font_size = 10)
knitr::kable(metadat, caption = "Sentinel-2 bands included in the timeseries stack and the correspoding band ID in the HaSa tool") %>% kable_styling(font_size = 9)
```
Example reference data are provided in two formats, as a data table and a point shapefile. The table includes spectral information from each class type desired for the classification and can be used directly to train the models (rows = class, columns = spectral bands). The first row must contain the spectral bands names and this must match the bands of the input image data.
......@@ -135,7 +135,7 @@ colnames(ref) <- c("SentinelStack_2018.1","SentinelStack_2018.2","SentinelStack_
rownames(ref) <- c("deciduous","coniferous","heather_young","heather_old",
"heather_shrub","bare_ground","xeric_grass")
ref[,4] <- "..."
knitr::kable(ref[,c(1:5)], caption = "Table 2. Reference data") %>% kable_styling(font_size = 10)
knitr::kable(ref[,c(1:5)], caption = "Reference data") %>% kable_styling(font_size = 9)
```
### 3.2.2 Reference points
......@@ -150,14 +150,6 @@ ref <- HaSa::load_reference_as_shape(
shp_crs_str = '+proj=utm +zone=33 +datum=WGS84 +units=m +no_defs'
)
```
```{r eval = TRUE, echo = FALSE}
ref <- read.table(table_data_path, header = T)
colnames(ref) <- c("SentinelStack_2018.1","SentinelStack_2018.2","SentinelStack_2018.3","...", "SentinelStack_2018.54")
rownames(ref) <- c("deciduous","coniferous","heather_young","heather_old",
"heather_shrub","bare_ground","xeric_grass")
ref[,4] <- "..."
knitr::kable(ref[,c(1:5)], caption = "Table 2. Reference data") %>% kable_styling(font_size = 10)
```
### 3.2.3 Define class names
The class names should be passed as a vector in the same order as the reference spectra (rows = class).
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment