# NOT RUN {
#computeAuxVariables_noChol
set.seed(8)
N <- 9 #number of observations
testfun <- branin
#a 9 points initial design
design <- data.frame( matrix(runif(2*N),ncol=2) )
response <- testfun(design)
#km object with matern3_2 covariance
#params estimated by ML from the observations
model <- km(formula=~., design = design,
response = response,covtype="matern3_2")
model2 <- computeAuxVariables_noChol(model)
#in this example model2 and model are the same!
# }
Run the code above in your browser using DataLab