Practical_a: show svd code

Practical_a.Rmd

@@ -1052,7 +1052,7 @@ as_tibble(data_f_pca$x) %>%
 Compare the results of your `data_f_pca` to the one obtained with the following code.
 </div>
 
-```{r echo=FALSE}
+```{r}
 data_f_svd <- data %>%
   filter(sex == "female") %>% 
   select(c(bill_length_mm, bill_depth_mm, flipper_length_mm, body_mass_g)) %>%