Nothing
################################################################################
##
##
## NGSSM: BAYESIAN ESTIMATION
##
##
################################################################################
##
##
#'@noRd
gridfunction<-function(npoints,linf,lsup){
npar=length(linf)
xgrid=matrix(0,npoints,npar)
for(i in 1:npar){
xgrid[,i]=seq(linf[i], lsup[i], length.out = npoints)
}
grid.l=data.frame(xgrid)
gridoutput=make.surface.grid(grid.l)
return(gridoutput[,])
}
################################################################################
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.