CGGP_internal_neglogpost {CGGP} | 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)