Merge branch 'NBISweden:master' into master

NBISweden · Oct 28, 2024 · 01774ac · 01774ac
2 parents 6e4ab2a + caf62b3
commit 01774ac
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/slide_r_basic_statistic.Rmd b/slide_r_basic_statistic.Rmd
@@ -201,8 +201,10 @@ text(x = var2_mode - 90 , y = 600, labels = paste("Mode =", round(var2_mode, 2))
 ```
 
 ```{r mode, echoo = T, eval = T}
-mode(data$var1)
-mode(data$var2)
+density_data1 <- density(data$var1)
+density_data1$x[which.max(density_data1$y)]
+density_data2 <- density(data$var2)
+density_data2$x[which.max(density_data2$y)]
 ```
 ---
 name: Spread