add vignettes for canopy and ph

AparicioJohan · Jun 30, 2024 · 6aa0640 · 6aa0640
1 parent 9c4c3f1
commit 6aa0640
Show file tree

Hide file tree

Showing 6 changed files with 27 additions and 21 deletions.
diff --git a/docs/articles/canopy-model.html b/docs/articles/canopy-model.html
diff --git a/docs/articles/height-model.html b/docs/articles/height-model.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -4,7 +4,7 @@ pkgdown_sha: ~
 articles:
   canopy-model: canopy-model.html
   height-model: height-model.html
-last_built: 2024-06-30T20:58Z
+last_built: 2024-06-30T21:12Z
 urls:
   reference: https://apariciojohan.github.io/exploreHTP/reference
   article: https://apariciojohan.github.io/exploreHTP/articles

diff --git a/docs/search.json b/docs/search.json
diff --git a/vignettes/canopy-model.Rmd b/vignettes/canopy-model.Rmd
@@ -56,7 +56,9 @@ kable(mutate_if(results$summ_traits, is.numeric, round, 2))
 ```
 
 
-## Target Function `fn_piwise()`
+## Target Function 
+
+`fn_piwise()`
 
 \begin{equation}
 f(t; t_1, t_2, k) =
@@ -76,7 +78,7 @@ lines(t, y_hat, col = "red")
 abline(v = c(34.9, 61.8), lty = 2)
 ```
 
-## Fitting Models `modeler_HTP()`
+## Fitting Models
 
 ```{r}
 mod_1 <- modeler_HTP(
@@ -94,7 +96,7 @@ plot(mod_1, plot_id = c(195, 40))
 kable(mod_1$param)
 ```
 
-## Providing different initial values per plot
+## Providing different initial values
 
 ```{r}
 initials <- results |>

diff --git a/vignettes/height-model.Rmd b/vignettes/height-model.Rmd
@@ -51,7 +51,7 @@ p2 <- plot(results, type = "time_by_trait", return_gg = TRUE)
 ggarrange(p1, p2, nrow = 2)
 ```
 
-## Estimating days to emergence from the canopy model
+## Estimating days to emergence
 
 \begin{equation}
 f(t; t_1, t_2, k) =
@@ -71,7 +71,7 @@ abline(v = c(34.9, 61.8), lty = 2)
 ```
 
 
-## Fitting models for canopy `modeler_HTP()`
+## Fitting models for canopy
 
 ```{r}
 fixed_params <- results |>
@@ -98,7 +98,9 @@ plot(mod_1, plot_id = c(195, 40))
 kable(mod_1$param)
 ```
 
-## Target function for plant height `fn_exp2_exp()`
+## Target function for plant height 
+
+`fn_exp2_exp()`
 
 \begin{equation}
 f(t; t_1, t_2, \alpha, \beta) =
@@ -124,7 +126,7 @@ lines(t, y_hat, col = "red")
 abline(v = c(35, 55), lty = 2)
 ```
 
-## Fixing parameters and proving initial values
+## Fixing parameters and providing initial values
 
 ```{r}
 fixed_params <- mod_1 |>
@@ -142,9 +144,9 @@ kable(initials)
 ```
 
 
-## Fitting models for plant height `modeler_HTP()`
+## Fitting models for plant height
 
-Using t1 from the prevoius model as a fixed parameter and using t2 as initial per plot.
+Using t1 from the previous model as a fixed parameter and using t2 as initial parameter per plot.
 
 
 ```{r}