Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup, echo = FALSE------------------------------------------------------
library(halk)
## ----wb_spp_data_example, echo = FALSE----------------------------------------
head(wb_spp_laa_data)
## ----spp_county_wb_alk--------------------------------------------------------
spp_county_wb_alk <- make_halk(
wb_spp_laa_data,
levels = c("spp", "county", "waterbody")
)
head(spp_county_wb_alk)
## ----specific_alk_example-----------------------------------------------------
# Bluegill ALK for lake_a in county_A, from row #1 above
head(spp_county_wb_alk$alk[[1]])
## ----assign_ages_example------------------------------------------------------
est_ages <- assign_ages(wb_spp_length_data, spp_county_wb_alk)
head(est_ages)
## ----missing_lake_example-----------------------------------------------------
head(est_ages[est_ages$waterbody == "lake_x", ])
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.