Learn R Programming

embryogrowth (version 6.2)

plot.tsd: Plot results of tsd() that best describe temperature-dependent sex determination

Description

Plot the estimates that best describe temperature-dependent sex determination.

Usage

"plot"(x, ..., males.freq = TRUE, las.x = 1, las.y = 1, lab.PT = "Pivotal temperature", lab.TRT = paste0("Transitional range of temperatures l=", l * 100, "%"), col.TRT = "gray", col.TRT.CI = rgb(0.8, 0.8, 0.8, 0.5), col.PT.CI = rgb(0.8, 0.8, 0.8, 0.5), show.CI = TRUE)

Arguments

x
A result file generated by tsd()
...
Parameters for plot()
males.freq
Should the graph uses males frequency [TRUE] or females [FALSE]
las.x
las parameter for x axis
las.y
las parameter for y axis
lab.PT
Label to describe pivotal temperature
lab.TRT
Label to describe transitional range of temperature
col.TRT
The color of TRT
col.TRT.CI
The color of CI of TRT based on range.CI
col.PT.CI
The color of CI of PT based on range.CI
show.CI
Do the CI for the curve should be shown

Value

Nothing

Details

plot.tsd plot result of tsd() that best describe temperature-dependent sex determination

References

Girondot, M. 1999. Statistical description of temperature-dependent sex determination using maximum likelihood. Evolutionary Ecology Research, 1, 479-486.

Godfrey, M.H., Delmas, V., Girondot, M., 2003. Assessment of patterns of temperature-dependent sex determination using maximum likelihood model selection. Ecoscience 10, 265-272.

Hulin, V., Delmas, V., Girondot, M., Godfrey, M.H., Guillon, J.-M., 2009. Temperature-dependent sex determination and global change: are some species at greater risk? Oecologia 160, 493-506.

Girondot M., Submited. On the concept of embryological thermosensitive period for sex determination in reptiles.

Examples

Run this code
## Not run: 
# CC_AtlanticSW <- subset(STSRE_TSD, RMU=="Atlantic, SW" & 
#                           Species=="Caretta caretta" & Sexed!=0)
# tsdL <- with (CC_AtlanticSW, tsd(males=Males, females=Females, 
#                                  temperatures=Incubation.temperature-Correction.factor, 
#                                  equation="logistic"))
# plot(tsdL)
# ## End(Not run)

Run the code above in your browser using DataLab