## 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