Commit: 154d30e4eb43633f94bbb37a642e4e3e6a5f6f3a - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revision: 154d30e4eb43633f94bbb37a642e4e3e6a5f6f3a (tree)
• Time: 2024-10-06 02:51:59
• Author: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I added a function to generate random numbers with a given sum.

Change Summary

• modified: R-codes/stat_lib.R

Incremental Difference

diff -r a52506589994 -r 154d30e4eb43 R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Fri Oct 04 17:43:49 2024 +0200
+++ b/R-codes/stat_lib.R	Sat Oct 05 19:51:59 2024 +0200
@@ -7667,3 +7667,21 @@
   
   return(result)
 }
+
+
+
+## function to generate n positive real number whose sum is a given total
+
+random_sum <- function(total, n){
+
+    ss <- runif(n+1, 0, 1) |>
+        scale01() |>
+        multiply_by(total) |>
+        sort()
+
+    res <- diff(ss)
+
+    return(res)
+
+    
+}