View source: R/CGGP_neglogpost.R
| CGGP_internal_neglogpost | R Documentation | 
Calculate negative log posterior
CGGP_internal_neglogpost(
  theta,
  CGGP,
  y,
  ...,
  ys = NULL,
  Xs = NULL,
  HandlingSuppData = "Correct"
)
| theta | Correlation parameters | 
| CGGP | CGGP object | 
| y | Measured values of CGGP$design | 
| ... | Forces you to name remaining arguments | 
| ys | Supplementary output data | 
| Xs | Supplementary input data | 
| HandlingSuppData | How should supplementary data be handled? 
 | 
Likelihood
cg <- CGGPcreate(d=3, batchsize=20)
Y <- apply(cg$design, 1, function(x){x[1]+x[2]^2})
cg <- CGGPfit(cg, Y)
CGGP_internal_neglogpost(cg$thetaMAP, CGGP=cg, y=cg$y)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.