Merge pull request #5 from Bayer-Group/main

Zhenglei-BCS · web-flow · commit 8fe375a1d828 · 2025-03-07T12:31:52.000+01:00
added tidyveres in LMM, GLMM and GAMM results
diff --git a/vignettes/articles/LMM-GLMM-and-GAMM.Rmd b/vignettes/articles/LMM-GLMM-and-GAMM.Rmd
@@ -9,6 +9,7 @@ knitr::opts_chunk$set(
   warning = FALSE,
   message = FALSE
 )
+library(tidyverse)
 ```
 
 ```{r setup}
@@ -40,7 +41,7 @@ sim_data_inhomogeneous <- simulate_dose_response(
   include_individuals = TRUE
 )
 
-prelimPlot3(sim_data_inhomogeneous%>% group_by(Dose,Tank)%>%summarise(Response=mean(Response)))
+prelimPlot3(sim_data_inhomogeneous%>% group_by(Dose,Tank)%>%summarise(Response=mean(Response),.groups = "drop"))
 
 ```
 

Original file line number	Diff line number	Diff line change
`@@ -9,6 +9,7 @@ knitr::opts_chunk$set(`
`9`	`9`	`warning = FALSE,`
`10`	`10`	`message = FALSE`
`11`	`11`	`)`
	`12`	`+library(tidyverse)`
`12`	`13`	```
`13`	`14`
`14`	`15`	```{r setup}
`@@ -40,7 +41,7 @@ sim_data_inhomogeneous <- simulate_dose_response(`
`40`	`41`	`include_individuals = TRUE`
`41`	`42`	`)`
`42`	`43`
`43`		`-prelimPlot3(sim_data_inhomogeneous%>% group_by(Dose,Tank)%>%summarise(Response=mean(Response)))`
	`44`	`+prelimPlot3(sim_data_inhomogeneous%>% group_by(Dose,Tank)%>%summarise(Response=mean(Response),.groups = "drop"))`
`44`	`45`
`45`	`46`	```
`46`	`47`