n <- 5
p <- 3
X <- matrix(rnorm(n*p), ncol=p)
lengthscale <- c(1:p)
kernel.function <- function(sqdist) {return (exp(-sqrt(sqdist)))}
# approach 1
kernel <- UDF.Kernel(lengthscale, kernel.function=kernel.function)
Evaluate.Kernel(kernel, X)
# approach 2
kernel <- Get.Kernel(lengthscale, type="UDF",
parameters=list(kernel.function=kernel.function))
Evaluate.Kernel(kernel, X)
Run the code above in your browser using DataLab