Nothing
`predictMu` <-
function(gp, newTheta) {
if (gp$constantMean == 0) {
return (gp$Bhat%*%c(1, newTheta))
}
return (gp$mu[1]) ## otherwise mu is constant
}
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.