Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----eval = FALSE-------------------------------------------------------------
# library(tidyverse)
# library(neonSoilFlux)
## ----eval=FALSE---------------------------------------------------------------
# out_env_data <- acquire_neon_data(site_name = 'SJER',
# download_date = '2021-06',
# )
## ----eval=FALSE---------------------------------------------------------------
# # Extract data
# VSWC_data <- out_env_data$site_data |>
# filter(measurement == 'VSWC') |>
# unnest(cols=c("data"))
#
# # Plot data
# VSWC_data |>
# ggplot(aes(x=startDateTime,y=VSWCMean)) +
# geom_point(aes(color=as.factor(VSWCFinalQF))) +
# facet_grid(verticalPosition~horizontalPosition)
## ----eval=FALSE---------------------------------------------------------------
# out_fluxes <- compute_neon_flux(input_site_env = out_env_data$site_data,
# input_site_megapit = out_env_data$site_megapit
# )
## ----eval = FALSE-------------------------------------------------------------
# env_fingerprint_plot(out_fluxes)
## ----eval = FALSE-------------------------------------------------------------
# flux_fingerprint_plot(out_fluxes)
## ----eval=FALSE---------------------------------------------------------------
# out_fluxes |>
# select(-diffusivity) |>
# unnest(cols=c(flux_compute)) |>
# ggplot(aes(x=startDateTime,y=flux,color=method)) +
# geom_line() +
# facet_wrap(~horizontalPosition,scales = "free_y")
## ----eval=FALSE---------------------------------------------------------------
# out_fluxes |>
# select(-flux_compute) |>
# unnest(cols=c(diffusivity)) |>
# ggplot(aes(x=startDateTime,y=diffusivity,color=as.factor(zOffset))) +
# geom_line() +
# facet_wrap(~horizontalPosition,scales = "free_y")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.