Fix log method

aravind-j · aravind-j · commit 81f7e70ce698 · 2026-05-07T13:56:47.000+05:30
diff --git a/R/allocate.basic.R b/R/allocate.basic.R
@@ -154,7 +154,7 @@ allocate.basic <- function(data,
   ## "log" ----
   if (method == "log") {
     log_gpsize <- log(gpsize, base = log.base)
-    freq <- log(log_gpsize) / sum(log_gpsize)
+    freq <- log_gpsize / sum(log_gpsize)
   }
 
   ## "sqrt" ----

Original file line number	Diff line number	Diff line change
`@@ -154,7 +154,7 @@ allocate.basic <- function(data,`
`154`	`154`	`## "log" ----`
`155`	`155`	`if (method == "log") {`
`156`	`156`	`log_gpsize <- log(gpsize, base = log.base)`
`157`		`- freq <- log(log_gpsize) / sum(log_gpsize)`
	`157`	`+ freq <- log_gpsize / sum(log_gpsize)`
`158`	`158`	`}`
`159`	`159`
`160`	`160`	`## "sqrt" ----`