## Not run:
# library(embryogrowth)
# data(nest)
# formated <- FormatNests(nest)
# newp <- GenerateAnchor(nests=formated, number.anchors=7)
# pfixed <- c(rK=2.093313)
# resultNest_newp <- searchR(parameters=newp, fixed.parameters=pfixed,
# temperatures=formated, derivate=dydt.Gompertz, M0=1.7,
# test=c(Mean=39.33, SD=1.92))
# data(resultNest_newp)
# plotR(resultNest_newp)
# ## End(Not run)
Run the code above in your browser using DataLab