#' Database of thermosensitive period of development for sex determination #' @title Database of thermosensitive period of development for sex determination #' @author Marc Girondot \email{marc.girondot@@universite-paris-saclay.fr} #' @docType data #' @name TSP.list #' @description Database of thermosensitive period of development for sex determination.\cr #' This database can be used with the functions plot() or info.nests().\cr #' The attributes TSP.begin.stages and TSP.end.stages for each dataframe give #' respectively the first and the last stages for TSP. Then the metrics for the limits of TSP #' are the average sizes before and after the TSP (see example, below).\cr #' If the metric for the stages before the TSP or after the TSP is not known, it will use the #' available information. #' @references Mrosovsky, N., Pieau, C., 1991. Transitional range of temperature, pivotal #' temperatures and thermosensitive stages for sex determination in reptiles. #' Amphibia-Reptilia 12, 169-179. #' @keywords datasets #' @family Functions for temperature-dependent sex determination #' @usage TSP.list #' @examples #' \dontrun{ #' library(embryogrowth) #' data(TSP.list) #' names(TSP.list) #' reference <- "Emys_orbicularis.mass" #' metric <- TSP.list[[reference]] #' TSP.begin <- attributes(TSP.list[[reference]])$TSP.begin.stages #' TSP.end <- attributes(TSP.list[[reference]])$TSP.end.stages #' # Metric at the beginning of the TSP #' del <- ifelse(all(metric$stages == TSP.begin - 1)==FALSE, 0, 1) #' (metric$metric[metric$stages == TSP.begin - del] + #' metric$metric[metric$stages == TSP.begin]) / 2 #' # Metric at the end of the TSP #' del <- ifelse(all(metric$stages == TSP.begin + 1)==FALSE, 0, 1) #' (metric$metric[metric$stages == TSP.end] + #' metric$metric[metric$stages == del + TSP.end]) / 2 #' } #' @format A list with dataframes including attributes NULL