Nothing
add.dimension <- function(x,t.o){
result <- array(dim=c(t.o$count.model,
t.o$eval.steps,
NCOL(x)))
if(is.null(dim(x))){
dim(x) <- c(NROW(x),NCOL(x))
}
for(counter in 1:t.o$count.model){
start <- (counter-1)*t.o$eval.steps+1
end <- (counter)*t.o$eval.steps
result[counter,,] <- as.matrix(x[start:end,])
#achtung: Am Anfang von jedem Lauf NA setzen!
result[counter,1:floor(t.o$window.size/t.o$step.size),] <- NA
}
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.