Entropy: Difference between revisions

Content added Content deleted
No edit summary
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>▼
▲<lang r>entropy =<- function(sstr) {
vec <- strsplit(str, "")[[1]]
N <- length(vec)
p_xi <- table(vec) / N
▲ -sum(freqp_xi * log(freqp_xi, base = 2))}
}
</lang>
 
{{out}}
<pre>
▲print(> entropy("1223334444")) # 1.846439</lang>
[1] 1.846439
</pre>
 
=={{header|Racket}}==
Retrieved from "https://rosettacode.org/wiki/Entropy"