Nothing
ProjectionQuadMethod <- function(InputDim,pmaxi,Designs,Output){
# number of PCE termrs
M <- getM(InputDim,pmaxi)
# generate PCE coefficients
PCE = generatePCEcoeff(M,Designs$Z,Output,Designs$PolyNodes,Designs$NDWi)
return(PCE)
}
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.