stineb

---
title: "Extract values from NetCDF"
author: "Beni Stocker"
date: "2025-02-20"
output: html_document
---

```{r}
library(tidyverse)
library(terra)

stineb

---
title: "Demo aggregate GeoTIFF"
author: "Beni Stocker"
date: "2025-02-19"
output: html_document
---

```{r}
library(terra)
library(stringr)

stineb

---
title: "Time series and z-scores"
author: "Beni Stocker"
date: "2025-02-17"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

stineb

library(rphydro)
library(tidyverse)
library(reshape2)

kphio = 0.087;       # quantum yield efficiency
ppfd = 300;          # umol/m2/s
vpd  = 1000;         # Pa
co2  = 400;          # ppm
elv  = 0;            # m.a.s.l.
fapar = 0.7;         # fraction

stineb

---
title: "GINI"
author: "Beni Stocker"
date: "2025-02-05"
output: html_document
---

```{r}
library(tidyverse)
library(FluxDataKit)

stineb

---
title: "Plots for my inaugural lecture"
author: "Beni Stocker"
date: "4/30/2019"
output:
  html_document:
    toc: true
    toc_depth: 3
    toc_float: true
---

stineb

get_vpd_day_fluxnet2015 <- function(dir){
  
  ## loop over all HH files in the directory 'dir'
  out <- purrr::map( as.list(list.files(dir, pattern = "HH")),
              ~get_vpd_day_fluxnet2015_byfile(paste0(dir, .)))
  
  return(out)
}

get_vpd_day_fluxnet2015_byfile <- function(filename_hh){

stineb

---
title: "World maps"
output:
  html_document:
    df_print: paged
---

```{r echo = FALSE, message = FALSE}
library(tidyverse)
library(sf)