# NOT RUN {
x <- matrix(runif(10), ncol=2, nrow=5)
y <- funSphere(x)
y[1] <- NA
control <- spotControl(dimension = 2)
# no imputation function, i.e, w/o imputation
imputeY(x=x, y=y, control=control)
# with imputation
control$yImputation$handleNAsMethod <- handleNAsKrigingWorst
y <- imputeY(x=x, y=y, control=control)
# no imputation required:
imputeY(x=x, y=y, control=control)
# }
Run the code above in your browser using DataLab