Nothing
Var <-
function(S.PLFN){
n <- dim(S.PLFN)[3]
knot.n <- dim(S.PLFN)[1] - 2
M = Mean(S.PLFN)
Sq = 0
for(k in 1:n) {
Sq <- Sq + ( cuts.to.PLFN(S.PLFN[,,k]) - M )^2
}
v <- (1/n) * Sq
return(v)
}
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.