| IGP_LOOEC_laGP_GauPro | R Documentation |
Class providing object with methods for fitting a GP model. This mixes laGP and GauPro. It fits the model using laGP, then copies the parameters to a GauPro model for prediction. The predicted errors are adjusted by fitting a third GP model to the leave-one-out absolute t-values.
R6Class object.
Object of R6Class with methods for fitting GP model.
For full documentation of each method go to https://github.com/CollinErickson/IGP/
new(X=NULL, Z=NULL, package=NULL,
estimate.nugget=T, nugget0=F, ...)This method
is used to create object of this class with X and Z as the data.
The package tells it which package to fit the GP model.
update(Xall=NULL, Zall=NULL, Xnew=NULL, Znew=NULL, ...)This method updates the model, adding new data if given, then running optimization again.
IGP::IGP -> IGP_LOOEC_laGP_GauPro
XDesign matrix
ZResponses
NNumber of data points
DDimension of data
XDesign matrix
ZResponses
NNumber of data points
DDimension of data
IGP::IGP$at.max.var()IGP::IGP$delete()IGP::IGP$finalize()IGP::IGP$grad()IGP::IGP$grad_from_theta()IGP::IGP$grad_norm()IGP::IGP$grad_num()IGP::IGP$init()IGP::IGP$max.var()IGP::IGP$mean()IGP::IGP$nugget()IGP::IGP$plot()IGP::IGP$predict()IGP::IGP$predict.se()IGP::IGP$predict.var()IGP::IGP$prop.at.max.var()IGP::IGP$s2()IGP::IGP$sample()IGP::IGP$theta()IGP::IGP$update()new()IGP_LOOEC_laGP_GauPro$new( X = NULL, Z = NULL, package = NULL, corr = "gauss", estimate.nugget = TRUE, nugget0 = 1e-08, package2 = NULL, ... )
.init()IGP_LOOEC_laGP_GauPro$.init(..., package2)
.update()IGP_LOOEC_laGP_GauPro$.update(..., no_update = FALSE)
.predict()IGP_LOOEC_laGP_GauPro$.predict(XX, se.fit, ...)
.predict.se()IGP_LOOEC_laGP_GauPro$.predict.se(XX, ...)
.predict.var()IGP_LOOEC_laGP_GauPro$.predict.var(XX, ...)
.grad()IGP_LOOEC_laGP_GauPro$.grad(XX)
.delete()IGP_LOOEC_laGP_GauPro$.delete(...)
.theta()IGP_LOOEC_laGP_GauPro$.theta()
.nugget()IGP_LOOEC_laGP_GauPro$.nugget()
clone()The objects of this class are cloneable with this method.
IGP_LOOEC_laGP_GauPro$clone(deep = FALSE)
deepWhether to make a deep clone.
n <- 40
d <- 2
n2 <- 20
f1 <- function(x) {sin(2*pi*x[1]) + sin(2*pi*x[2])}
X1 <- matrix(runif(n*d),n,d)
Z1 <- apply(X1,1,f1) + rnorm(n, 0, 1e-3)
X2 <- matrix(runif(n2*d),n2,d)
Z2 <- apply(X2,1,f1)
XX1 <- matrix(runif(10),5,2)
ZZ1 <- apply(XX1, 1, f1)
u <- IGP_LOOEC_laGP_GauPro$new(X=X1,Z=Z1)
cbind(u$predict(XX1), ZZ1)
u$predict.se(XX1)
u$update(Xnew=X2,Znew=Z2)
u$predict(XX1)
u$delete()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.