Using the data set “gomp1.csv”, find the parameters of the reparameterised Gompertz model.
\[\begin{equation} y= y_0 + (y_{max} -y_0)*exp(-exp(k*(lag-x)/(y_{max}-y_0) + 1) ) \end{equation}\]
Import the data set.
dat <- read.csv("gomp1.csv", sep=";", header=T) plot(dat$Time, dat$logN) str(dat) ## 'data.frame': 13 obs. of 2 variables: ## $ Time: int 0 2 4 6 8 10 12 14 16 18 ... ## $ logN: num -0.105 0.108 -0.111 0.734 2.453 ... The next step is define the Gompertz function.