Nothing
minnz <-
function(V) {
# Calculates the smallest value of the vector except for 0 (non-zero minumum)
# Argument: vector
C <- NULL # prepare
k <- length(V) # count to
for (i in 1:k) { # ceck all
if ((V[i] == 0) == FALSE) (C[i] <- V[i]) else (C[i] <- 9999919) # if V[i] is not 0, add it to C
}
m <- min(C) # minimum of V, not counting 0
if (max(V) == 1) (m <- 1) # fix for binary vectors (0,1)
if (m == 9999919) (warning("Error: Minimum calculation failed.")) # warning because of hard-coded replacement
return(m)
}
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.