Nothing
`BuildMatrix1` <-
function(nodevalues,n){
# nodevalues = values of the functions f at the nodes
# calculated by 'fevaluation'
# n = number of remaining observed nodes; CAUTION: This 'n' is rather 'nr'
F <- nodevalues
s <- length(F[,1])
N <- matrix(0,nrow=s,ncol=n)
A0 <- cbind(F,N)
A0
}
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.