library(flexFitR)library(dplyr)library(kableExtra)library(ggpubr)library(purrr)data(dt_potato)head(dt_potato)|>kable()

plots<-2:7mod<- dt_potato|>modeler(x = DAP,y = Canopy,grp = Plot,fn ="fn_logistic",parameters =c(a =4,t0 =40,k =100),subset = plots  )

# Raw data with fitted curvesplot(mod,type =1,color ="blue",id = plots,title ="Fitted curves")

# Model coefficientsplot(mod,type =2,color ="blue",id = plots,label_size =10)

# Fitted curves onlyc<-plot(mod,type =3,color ="blue",id = plots,title ="Fitted curves")

# Fitted curves with confidence intervalsd<-plot(mod,type =4,n_points =200,title ="Fitted curve (uid = 2)")

# First derivative with confidence intervalse<-plot(mod,type =5,n_points =200,title ="1st Derivative (uid = 2)")

# Second derivative with confidence intervalsf<-plot(mod,type =6,n_points =200,title ="2nd Derivative (uid = 2)")ggarrange(c, d, e, f)