## Not run:
# library(embryogrowth)
# data(nest)
# formated <- FormatNests(nest)
# # The initial parameters value can be:
# # "T12H", "DHA", "DHH", "Rho25"
# # Or
# # "T12L", "DT", "DHA", "DHH", "DHL", "Rho25"
# x <- structure(c(306.174998729436, 333.708348843241, 299.856306141849,
# 149.046870203155), .Names = c("DHA", "DHH", "T12H", "Rho25"))
# # K or rK are not used for dydt.linear or dydt.exponential
# resultNest_4p_linear <- searchR(parameters=x, fixed.parameters=NULL,
# temperatures=formated, derivate=dydt.linear, M0=1.7,
# test=c(Mean=39.33, SD=1.92))
# ## End(Not run)
Run the code above in your browser using DataLab