Nothing
isodecre <-
function(a, w){
n <- length(a)
is <- numeric(n)
uu <- 0
while(uu < n) {
v <- uu + 1
b <- cumsum(a[v:n] )
d <- cumsum(w[v:n])
b <- b/d
u <- max(b)
m <- match(u, rev(b))
m <- length(b)-m+v
is[v:m] <- u
uu <- m
}
is
}
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.