Nothing
"slideWeight" <-
function(n, fractions=c(0,1), observations=NULL, locations=NULL)
{
fun.copyright <- "Placed in the public domain 2014 by Burns Statistics Ltd."
fun.version <- "slideWeight 001"
if(!length(locations)) {
if(length(observations)) {
locations <- n - observations
} else {
locations <- fractions * n
}
} else if(length(observations)) {
stop("only one of 'observations' and 'locations' may be given")
}
stopifnot(length(locations) == 2)
locations <- sort(round(locations))
if(locations[1] >= n) {
stop("specification as given produces all zero weights",
" -- you probably inadvertently used the 'fractions'",
" argument")
}
llen <- diff(locations) + 2
slide <- seq(0, 1, length=llen)[-llen]
slideseq <- locations[1]:locations[2]
ans <- rep(1, n)
ssuse <- intersect(slideseq, 1:n)
ans[ssuse] <- slide[ssuse - locations[1] + 1]
if(locations[1] > 1) ans[1:locations[1]] <- 0
ans
}
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.