Description Usage Arguments Details Value Author(s) See Also Examples
Supplied with a growth and survival object, over-writes coefficients, and for growth, the sd of growth
1 2 | coerceGrowthObj(growthObj, coeff, sd)
coerceSurvObj(survObj,coeff)
|
growthObj |
an object of class growthObj |
survObj |
an object of class survObj |
coeff |
a numeric vector |
sd |
a numeric vector of length 1 |
These functions can be used to impose coefficients and sd on growth and survival objects where direct fitting is not desired
an object of class growthObj / survObj
C. Jessica E. Metcalf, Sean M. McMahon, Roberto Salguero-Gomez, Eelke Jongejans & Cory Merow.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | dff<-generateData()
#for growth
gr1 <- makeGrowthObj(dataf=dff,
Formula=sizeNext~size,regType="constantVar")
#halve the slope
gr2 <- coerceGrowthObj(gr1,coeff=c(gr1@fit$coefficients[1],
gr1@fit$coefficients[2]*0.5),
sd=gr1@sd)
par(mfrow=c(1,2),pty="s")
picGrow(dff,gr1)
picGrow(dff,gr2)
#for survival
sv1 <- makeSurvObj(dataf=dff,
Formula=surv~size)
#halve the slope
sv2 <- coerceSurvObj(sv1,coeff=c(sv1@fit$coefficients[1],
sv1@fit$coefficients[2]*0.5))
par(mfrow=c(1,2),pty="s")
picSurv(dff,sv1)
picSurv(dff,sv2)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.