#' @title Instantaneous growth rates for two calcified ageing structures.
#'
#' @description Instantaneous growth rates (percent change per day) for body growth and two calcified ageing structures from age 1-4 female Northern Pike (\emph{Esox lucius}) from Wickett Lake, Ontario.
#'
#' @name Casselman1990
#'
#' @docType data
#'
#' @format A data frame with 12 observations on the following 4 variables.
#' \describe{
#' \item{day}{A numeric vector of days since the beginning of the study.}
#' \item{body}{A numeric vector of instantaneous growth rates (percent change per day) for body growth.}
#' \item{cleithrum}{A numeric vector of instantaneous growth rates (percent change per day) for cleithra.}
#' \item{scale}{A numeric vector of instantaneous growth rates (percent change per day) for scales.}
#' }
#'
#' @section Topic(s):
#' \itemize{
#' \item Other
#' }
#'
#' @concept Other
#'
#' @source From Figure 8 of Casselman, J.M. 1990. Growth and relative size of calcified structures of fish. Transactions of the American Fisheries Society. 119:673-688. \href{https://raw.githubusercontent.com/fishR-Core-Team/FSAdata/main/data-raw/Casselman1990.csv}{CSV file}
#'
#' @keywords datasets
#'
#' @examples
#' data(Casselman1990)
#'
#' # recreation of Casselman's (199) Figure 8.
#' p <- c(19,17,15); clr <- c("black","red","blue"); l <- 1
#' with(Casselman1990,
#' matplot(day,cbind(body,cleithrum,scale),type="b",lwd=2,pch=p,col=clr,lty=l,
#' ylab="Instantaneous Growth Rate",xaxt="n",xlab="")
#' )
#' axis(1,at=c(0,31,60,91,121,152,182,213,243,274,304,335,365),tick=TRUE,labels=FALSE)
#' axis(1,at=c(15,46,76,107,137,168,198,229,260,291,321,352),tick=FALSE,
#' labels=c("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"))
#' legend("topleft",legend=c("Body","Cleithrum","Scale"),pch=p,col=clr,lty=l,lwd=2)
#'
NULL
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.