Update 02-sensor-metadata.Rmd

Author: dlebauer

sensors/02-sensor-metadata.Rmd

@@ -32,18 +32,16 @@ For further information about sensor metadata see the [Sensor Data Standards](/s
 * ndvi: https://terraref.ncsa.illinois.edu/clowder/api/datasets/5873a8f64f0cad7d8131af54/metadata.jsonld
 
 
-### Looking at PAR sensor RSR
+### PAR sensor metadata
 
 ```{r}
 
 par_metadata <- jsonlite::fromJSON("https://terraref.ncsa.illinois.edu/clowder/api/datasets/5873a8ce4f0cad7d8131ad86/metadata.jsonld")
-
 print(par_metadata$content)
-
 knitr::kable(par_metadata$content$rsr)
 
 ```
-#### RSR curve 
+#### PAR sensor RSR curve 
 
 ```{r rsr-curve}
 par_rsr <- data.frame(wavelength = unlist(par_metadata$content$rsr$wavelength),
@@ -55,16 +53,15 @@ ggplot(data = par_rsr, aes(x = wavelength, y = response), alpha = 0.4) +
   ylab('relative response')
 ```
 
-### Looking at Skye NDVI meta-data
+### Skye NDVI meta-data
 
 ```{r}
 
 ndvi_metadata <- jsonlite::fromJSON("https://terraref.ncsa.illinois.edu/clowder/api/datasets/5873a8f64f0cad7d8131af54/metadata.jsonld")
-
 knitr::kable(t(ndvi_metadata$content[-21]), col.names = '')
 
 ```
-#### RSR curve 
+#### NDVI sensor RSR curve 
 
 ```{r rsr-curve}
 ndvi_up_rsr <- cbind(direction = 'up',