if (FALSE) {
doSmallExample <- TRUE
if(require(fields)) {
if(doSmallExample){
SN2011fe <- SN2011fe_subset
SN2011fe_newdata <- SN2011fe_newdata_subset
SN2011fe_mle <- SN2011fe_mle_subset
nProc <- 3
} else {
# users should select number of processors based on their system and the
# size of the full example
nProc <- 210
}
n <- nrow(SN2011fe)
m <- nrow(SN2011fe_newdata)
nu <- 2
inputs <- c(as.list(SN2011fe), as.list(SN2011fe_newdata), nu = nu)
prob <- krigeProblem$new("prob", numProcesses = nProc, n = n, m = m,
predMeanFunction = SN2011fe_predmeanfunc, crossCovFunction = SN2011fe_crosscovfunc,
predCovFunction = SN2011fe_predcovfunc, meanFunction =
SN2011fe_meanfunc, covFunction = SN2011fe_covfunc, inputs = inputs,
params = SN2011fe_mle$par, data = SN2011fe$flux, packages = c("fields"))
prob$calcLogDens()
}
}
Run the code above in your browser using DataLab