Correct calculation of mode

NBISweden · Oct 28, 2024 · caf62b3 · caf62b3
1 parent 95295fe
commit caf62b3
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