try to correct a bug

Author: GuyliannEngels

inst/tutorials/C01Lb_lda/C01Lb_lda.Rmd

@@ -16,23 +16,6 @@ runtime: shiny_prerendered
 BioDataScience3::learnr_setup()
 SciViews::R()
 library(mlearning)
-
-# prepa data
-read("biometry", package = "BioDataScience") %>.%
-  select(., gender, weight, height, wrist) %>.%
-  drop_na(.) -> bio
-
-# Prepare learn test and set test
-n <- nrow(bio)
-n_learning <- round(n * 2/3)
-set.seed(164)
-learning <- sample(1:n, n_learning)
-
-bio_test <- slice(bio, -learning)
-bio_learn <- slice(bio,learning)
-
-bio_lda <- mlLda(formula = gender ~ ., data = bio_learn)
-
 ```
 
 ```{r, echo=FALSE}
@@ -72,6 +55,25 @@ bio_conf <- confusion(predict(bio_lda, bio_test), bio_test$gender)
 conf_tab <- summary(bio_conf)
 ```
 
+```{r prepa}
+# prepa data
+read("biometry", package = "BioDataScience") %>.%
+  select(., gender, weight, height, wrist) %>.%
+  drop_na(.) -> bio
+
+# Prepare learn test and set test
+n <- nrow(bio)
+nlearning <- round(n * 2/3)
+set.seed(164)
+learning <- sample(1:n, nlearning)
+
+bio_test <- slice(bio, -learning)
+bio_learn <- slice(bio,learning)
+
+bio_lda <- mlLda(formula = gender ~ ., data = bio_learn)
+```
+
+
 ## Création de votre modèle
 
 
@@ -101,7 +103,7 @@ table(bio_test$gender)
 
 Réalisez un modèle avec le set d'apprentissage. Prédisez la variable `gender` à l'aide des 3 variables numériques. 
 
-```{r lda1_h2, exercise = TRUE}
+```{r lda1_h2, exercise = TRUE, exercise.setup = "prepa"}
 bio_lda <- mlLda(formula = ___ ~ ___, data = ___)
 summary(bio_lda)
 ```
@@ -126,7 +128,7 @@ grade_code("Votre premier modèle est une réussite.")
 
 Vous venez de créer votre outils de classification qui se nomme `bio_lda`. Vous devez maintenant tester les performances de votre modèle.
 
-```{r lda2_h2, exercise = TRUE}
+```{r lda2_h2, exercise = TRUE, exercise.setup = "prepa"}
 # prédiction sur le set de test
 bio_pred <- predict(___, ___)
 # matrice de confusion