knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(halk)
The halk package is built to implement the hierarchical age-length key (HALK) method. This method creates a series of aggregate age-length keys using data from across levels, and then assigns age from length using the aggregate age-length key from the most specific level.
The HALK is a data-borrowing age assignment method primarily used in fisheries ecology. It extends the traditional method of an age-length key (ALK) by borrowing data across time, space, or any other nested level to create aggregate, nested ALKs used to assign age to fish based on empirically measured length. For example, a HALK can be created by borrowing age-length data from a single lake across time, from other waterbodies within a certain area, or any other nested categorical level. Subsequent surveys that are then sampled for length, but not age, can be assigned ages using the HALK.
A HALK is created by passing paired age-length data to the make_halk
function. There are two main arguments to this function: data
, which represents the paired age-length data, and levels
, which is a character vector of the column names that represent the different nested levels in the HALK. For example, if the following data were used in HALK creation, you could pass any combination of spp
, county
, and waterbody
as levels:
head(wb_spp_laa_data)
This will fit a HALK based on the user specified levels. Say that we include spp
, county
and waterbody
as levels to the function make_halk
. This will create an ALK for each waterbody, each county, and then a species-wide global ALK.
spp_county_wb_alk <- make_halk( wb_spp_laa_data, levels = c("spp", "county", "waterbody") ) head(spp_county_wb_alk)
The returned tibble contains a list-column named alk
that stores an ALK for each level provided to the levels
argument (note that the ALK for county_A
has an NA in the waterbody column indicating that this is a county-wide ALK). Each object in this list-column is simply an ALK that is created using all data from the level indicated by the respective non-NA columns in that row.
# Bluegill ALK for lake_a in county_A, from row #1 above head(spp_county_wb_alk$alk[[1]])
The halk package makes it easy to assign ages to length data from a HALK using the assign_ages
function. Once you have created a HALK, simply pass it to assign_ages
along with the length data you wish to have ages estimated on---make sure that your length data has all columns used in the levels
argument used in make_halk
.
est_ages <- assign_ages(wb_spp_length_data, spp_county_wb_alk) head(est_ages)
Notice below that there are lakes in the est_ages
object that were not present in the original length-at-age data used to create the spp_county_wb_alk
object (lake_x in county_A).
Ages for the lengths in lake_x in this example were assigned using the ALK from the
county level (specifically, the ALK from county_A) as noted in the alk
column.
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.