rearrange false positives code and fix rendering error

vignettes/false_positives.Rmd

@@ -102,7 +102,17 @@ bc <- BatchContainer$new(
       trueEffect = rnorm(96, mean = 10, sd = 1)
     )
   )
+```
+
+## Simulating a study in which randomization is not used
 
+First we simulate a study in which randomization is not used. In this context,
+it means that the treatment (controls and compounds in columns) and the plate
+effect are correlated. The following plot visualizes the layout of the plate,
+the true effect, the plate effect, and the measurement as a sum of the true
+effect and the plate effect.
+
+```{r}
 # get observations with batch effect
 get_observations <- function(bc) {
   bc$get_samples() |>
@@ -111,20 +121,12 @@ get_observations <- function(bc) {
       measurement = trueEffect + plateEffect
     )
 }
-
-head(dat) |> gt::gt()
 ```
 
-## Simulating a study in which randomization is not used
-
-First we simulate a study in which randomization is not used. In this context,
-it means that the treatment (controls and compounds in columns) and the plate
-effect are correlated. The following plot visualizes the layout of the plate,
-the true effect, the plate effect, and the measurement as a sum of the true
-effect and the plate effect.
-
 ```{r}
 dat <- get_observations(bc)
+
+head(dat) |> gt::gt()
 ```
 
 ```{r rawPlatePlots, fig.height=5.5, fig.width=8}