Entropy: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,575: / Line 2,575: @@
 =={{header|R}}==
-<lang r>entropy = function(s)
-   {freq = prop.table(table(strsplit(s, '')[1]))
-    -sum(freq * log(freq, base = 2))}
+<lang rsplus>
-print(entropy("1223334444"))   # 1.846439</lang>
+entropy <- function(str) {
+  vec   <- strsplit(str, "")[[1]]
+  N     <- length(vec)
+  p_xi  <- table(vec) / N
+  -sum(p_xi * log(p_xi, 2))
+}
+</lang>
+{{out}}
+<pre>
+> entropy("1223334444")
+[1] 1.846439
+</pre>
 =={{header|Racket}}==