Nothing
# Uncertainty
Unc <- function(time, nger) {
n <- nger[1]
for (i in 2:length(nger)) {
n <- c(n, nger[i]-nger[i-1])
}
E <- c()
f <- c()
for (i in 1:length(n)) {
f <- c(f,n[i]/sum(n))
if (f[i] > 0) {
E <- c(E, f[i]*log2(f[i]))
}
}
result <- -sum(E)
return(result)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.